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 ?