Bonjour,
Je vous propose un nouvel élément à utiliser : JCL/COBOL - Exemple de Compilation COBOL sous z/OS (Enterprise COBOL)
Ceci est un exemple complet de compilation sur z/OS (MVS) d'un petit programme COBOL.
Le compilateur utilisé est Enterprise COBOL (IGYCRCTL).
L'exemple inclut :
- Un JCL de compilation (Compilation_COBOL.jcl)
- Un JCL d'exécution (Execution_COBOL.jcl)
- Un code source exemple (code.cob) !! RETIRER LA PREMIERE LIGNE QUI SERT DE REFERENCE SUR ISPF !!
- Un fichier lu et traité par COBOL (DEP$JAN.dat)
Voici les spécificités des datasets :
- METAL.MALIB.JCL => PDS, organization=PO
RECFM=FB,LRECL=80,BLKSIZE=800,1stExt=200,second=10,DIRBlock=10
Contient les JCL
- METAL.MALIB.COBOL => PDS, organization=PO
RECFM=FB,LRECL=80,BLKSIZE=80,1stExt=200,second=40,DIRBlock=10
Contient le code source
- METAL.MALIB.OBJ => PDS, organization=PO
RECFM=FB,LRECL=80,BLKSIZE=80,1stExt=200,second=40,DIRBlock=10
Contient les objets générés à la compilation
- METAL.MALIB.OUT => PDS, organization=PO
RECFM=U,LRECL=80,BLKSIZE=256,1stExt=200,second=40,DIRBlock=10
Contient le load module/binaire final
- METAL.MALIB.DATA.IN.DEP$JAN => organisation=PS
RECFM=FB,LRECL=35,BLKSIZE=350,1stExt=10,second=5
Contient mes données en entrée [le LRECL dépend du format codé dans COBOL en FD]
- METAL.MALIB.DATA.OUT.TOTAL => organisation=PS
RECFM=FB,LRECL=37,BLKSIZE=370,1stExt=10,second=5
Contient mes données en sortie [le LRECL dépend du format codé dans COBOL en FD]
IGYCRCTL est le compilateur compilateur, et IEWL en linker/binder.
Ne pas oublier d'adapter dans la partie de link les libs !
Rechercher un CEE.SCEELKED (ou un SCEELKED), un IGY410.SIGYCOMP (ou SIGYCOMP), et IGY410.SIGYPROC (ou SIGYPROC).
Je remercie grandement toute les équipes et membres des sections COBOL et z/OS.
Qu'en pensez-vous ?
Partager