COBOL: SYSIN JCL pour la compilation source PDS

Question

Je viens juste de commencer COBOL, et a couru dans cette JCL ... Comment puis-je compiler un programme COBOL de base de mon PDS, je sais par instream ce serait juste

// SYSIN DD * code code /*

J'ai essayé quelque chose comme

// SYSIN DD DSN = the.pds.location (fichier), DISP = SHR

mais tous ce coup de retour était des ordures et un code de retour de 12, je pense.

Si quelqu'un pouvait aider, je serais reconnaissant.

Answer 1

D'après les informations que vous avez affichées, votre JCL devrait fonctionner. Peut-être que vous manquez quelque chose d'autre. Ce qui suit JCL fournit la pleine étape de travail à faire une compilation COBOL:

 
    ... your job card goes here... 
    //COB  EXEC PGM=IGYCRCTL 
    //STEPLIB DD DISP=SHR,DSN=SYSP.IGY.V3R4M1.SIGYCOMP 
    //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 
    //SYSLIN DD DSN=objectmodule,UNIT=SYSDA, 
    //   DISP=(MOD,PASS),SPACE=(TRK,(3,3)) 
    //SYSIN DD DSN=the.pds.location(file),DISP=SHR
 
    //SYSPRINT DD SYSOUT=* 
    ... your link step using object from SYSLIN above... 

Note: Vous pourriez avoir à changer STEPLIB pour correspondre à la version de COBOL en cours d'exécution sur votre site.

Si votre JCL est assez proche de ce qui précède, la prochaine chose à vérifier est votre programme COBOL. Allez dans l'éditeur ISPF (je présume que vous avez accès) et tapez PROFILE sur la ligne de commande. Vous devriez voir quelque chose comme:

 
    =PROF> ....GEN (FIXED - 80)....RECOVERY OFF WARN....NUMBER OFF................. 
    =PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF...................... 
    =PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON.............. 
    =PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................ 
    =PROF> ....HILITE OFF CURSOR FIND.............................................. 
    =BNDS> <
 
    =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- 

maintenant un coup d'oeil pour PACK SUR (notez espectacles PACK OFF). Si vous trouvez PACK SUR c'est votre problème. Vous devez émettre la commande PACK OFF et enregistrer votre jeu de données. Essayez la compilation à nouveau.

BTW ... vous vous débarrassez de l'affichage du profil en tapant RESET sur la ligne de commande .

Si aucune de ces solutions ne résout votre problème, vous devez fournir plus d'informations quant à la nature exacte du problème.