Graphe du JCL
Ce diagramme de JCL est généré automatiquement et instantément durant la conversion du JCL en Shell script.
Il permet de visualiser pour chaque step :
- les Conditions d'execution
- les fichiers en entrée
- les Sysin statements
- les programmes ou procédures exécutées
- les fichiers en sortie
et facilite la compréhension du traitement pour les équipes Open qui ne sont pas familiers avec le JCL MVS.
JCL: DEMOFR21 JOBNAME: DEMOFR21
Step #00001 : INIT0000
0034 //O1 DD DISP=OLD, 0035 // DSN=OPDEMO.COST.STE0201.D&ODDD.&OHHMM.
0039 //SYSIN DD * 0040 REPRO INFILE(IN) OUTFILE(O1) REUSE
0025 //INIT0000 EXEC PGM=IDCAMS,REGION=0M
0026 //SYSPRINT DD SYSOUT=*
0027 //SYSOUT DD SYSOUT=*
0028 //SYSTSPRT DD SYSOUT=*
0029 //CEEDUMP DD SYSOUT=*,FREE=CLOSE
0030 //SYSABEND DD SYSOUT=*,FREE=CLOSE
0031 //SYSUDUMP DD SYSOUT=*,FREE=CLOSE
0037 //IN DD DSN=NULLFILE
Step #00002 : STEP0005
0065 //SYSTSIN DD * 0066 DSN SYSTEM (DB2P) 0067 RUN PROGRAM (FDEMO123) - 0068 PLAN (FROP0050) 0069 END
0049 //STEP0005 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=0M
0061 //SYSDBIN DD DUMMY
0064 //IGZSRTCD DD DUMMY
0053 //SYSPRINT DD SYSOUT=*
0054 //SYSOUT DD SYSOUT=*
0055 //SYSTSPRT DD SYSOUT=*
0056 //CEEDUMP DD SYSOUT=*,FREE=CLOSE
0057 //SYSABEND DD SYSOUT=*,FREE=CLOSE
0058 //SYSUDUMP DD SYSOUT=*,FREE=CLOSE
0059 //SYSABOUT DD SYSOUT=*,FREE=CLOSE
0060 //SYSDBOUT DD SYSOUT=*,FREE=CLOSE
0062 //REPORT DD SYSOUT=*
0063 //PRINT DD SYSOUT=*
Step #00003 : STEP0010
0080 //SORTIN DD DISP=SHR, 0081 // DSN=OPDEMO.GIP1.FABC0050
0082 //SORTOUT DD DISP=OLD, 0083 // DSN=OPDEMO.GIP1.GABC001A.G000001
0084 //SYSIN DD * 0085 SORT FIELDS=COPY 0086 INREC FIELDS=(1,1350) 0087 END
0077 //STEP0010 EXEC PGM=SORT,REGION=0M
0078 //SYSPRINT DD SYSOUT=*
0079 //SYSOUT DD SYSOUT=*
IF Statement 00004 : COND0015
-
Step #00005 : STEP0015
0107 //SYSIN DD DISP=SHR, 0108 // DSN=OPDEMO.DEMO.CLIENT.PCONSTR.INTRANET
0109 // DD * 0110 INSERT INTO ABC.DEF110 0111 ( ABC , DEF , GHI , JKL , MNO, PQR , STU, VWX ) 0112 VALUES 0113 ( &CYYYY. , &CMM. , &D. 0 , 0 , 0 , 0114 'SPD DDX PI PXD START CPL_CTBCLI &CTIME.', 0115 '&CTIME.' ); 0116 COMMIT; 0117 EXIT SQL.SQLCODE
0094 //STEP0015 EXEC PGM=SQLPLUS,REGION=0M
0100 //ORA$LIB DD DISP=SHR, 0101 // DSN=ORACLE.MESG
0102 //SQLNET DD DISP=SHR, 0103 // DSN=ORACLE.NAMES(ONAMES)
0104 //LDAP DD DISP=SHR, 0105 // DSN=ORACLE.NAMES(LDAP)
0106 //SQLLOGIN DD DUMMY
0096 //ORAPRINT DD SYSOUT=*
0097 //CEEDUMP DD SYSOUT=*,FREE=CLOSE
0098 //SYSABEND DD SYSOUT=*,FREE=CLOSE
0099 //SYSERR DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=1320,RECFM=VB)
ENDIF Statement 00006 : COND0015
END OF JOB DEMOFR21
Statistics:
Input JCL file : DEMOFR21 119 lines Jobname : DEMOFR21 Output script : DEMOFR21.sh 970 lines, including comments Generated : 22 May 2022 18:41:24 using ACMU v532