1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
Identification Division.
Program-id. COBPARM.
* CREATION D'UN ENREGISTREMENT SYSIN DEPUIS UN PARM RECU
* JCL :
* //LOADLB SET LOADLB='MY.PGM.LOADLIB'
* //*--------------------------------
* //STEP00 EXEC PGM=IEFBR14 DELETE PREVENTIF
* //SYSUT0 DD DISP=(MOD,DELETE),DSN=&SYSUID..FICHIER.SYSIN,
* // SPACE=(TRK,(1,1)),UNIT=SYSALLDA,
* // DCB=(BLKSIZE=0,LRECL=80,RECFM=FB)
* //*
* //TESTER EXEC PGM=COBPARM,
* // PARM='ENREGISTREMENT RESULTANT PROGRAMME COBPARM DE &LOADLB'
* //STEPLIB DD DISP=SHR,DSN=&LOADLB
* //SYSOUT DD SYSOUT=*
* //SYSUT2 DD DISP=(NEW,CATLG),DSN=&SYSUID..FICHIER.SYSIN,
* // SPACE=(TRK,(1,1)),UNIT=SYSALLDA,
* // DCB=(BLKSIZE=0,LRECL=80,RECFM=FB)
* ============================================================
Environment Division.
Input-Output Section.
File-Control.
Select SORTIE Assign To SYSUT2.
Data Division.
File Section.
FD SORTIE
Recording Mode is F
Block 0.
01 ENR-SORTIE Pic X(80).
*=======================
Working-Storage Section.
*-----------------------
Linkage Section.
*-----------------------
01 LS-PARM.
05 LS-PARM-LNG Pic S9(4) Binary.
05 LS-PARM-DATA Pic x(100).
*================================
Procedure Division Using LS-PARM.
*--------------------------------
Main Section.
Open Output SORTIE
If LS-PARM-LNG > 0
Move LS-PARM-DATA(1:LS-PARM-LNG) to ENR-SORTIE
Write ENR-SORTIE
End-If
Close SORTIE
Goback.
End Program COBPARM. |
Partager