//HELLO JOB ,NOTIFY=DEARTH
//*
//* COBOL COMPILATION
//*
//COBOL EXEC PGM=IGYCRCTL,PARM='NODECK,OBJECT,LIB'
//STEPLIB DD DSN=COBOL.V4R1M0.SIGYCOMP,DISP=SHR
//SYSIN DD *
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
MAIN.
DISPLAY 'HELLO, RTCZ.'.
STOP RUN.
/*
//SYSLIN DD DSN=DEARTH.SAMPLE.OBJ(HELLO),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
//LINKEDIT EXEC PGM=IEWBLINK,PARM='LIST,LET,MAP,XREF,REUS,RENT'
//SYSLIN DD *
INCLUDE SYSLIB(HELLO)
NAME HELLO(R)
/*
//SYSLIB DD DSN=DEARTH.SAMPLE.OBJ,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
//SYSLMOD DD DSN=DEARTH.SAMPLE.LOAD(HELLO),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
.submitJCL <PDS(MEMBRE)>
Avez-vous obtenu l'aide souhaitée ? Vous pouvez envoyer des commentaires en retour à Jazz.net (inscription nécessaire) : Commentaire dans les forums ou signaler un bogue