Previous Topic

Next Topic

Book Contents

Book Index

Example 1

In the following example, the CTJXVER edit macro is used to verify job ACCEP000. CTJXVER is invoked from the command line of the ACCEP000 member (located in the CTJP.TESTS.JCLS library) without options, as shown in the following figure. Since the P option is not specified, the default parameters are used.

Fig.JV.7.3 CTJXVER edit macro invoked in job member- Example 1

File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

_____________________________________________________________________________________

VIEW       CTJP.TESTS.JCLS(ACCEP000) - 01.03                Columns 00001 00072

Command ===> CTJXVER                                           Scroll ===> PAGE

****** ***************************** Top of Data *******************************

==MSG> -Warning- The UNDO command is not available until you change

==MSG>           your edit profile using the command RECOVERY ON.

000001 //ACCEP000 JOB 0,YY,CLASS=A,MSGCLASS=X,

000002 //             NOTIFY=&SYSUID

000003 //*        JCLLIB  ORDER=IOAP.V900.PROCLIB

000004 //         JCLLIB  ORDER=IOAP.V900.PROCLIB

000005 //STEP1    EXEC PGM=IEFBR14

000006 //ACC1NO   DD   DISP=SHR,DSN=N18.ACCESS.NONE

000007 //ACC2YES  DD   DISP=SHR,DSN=N18.ACCESS.READ

000008 //ACC2NO   DD   DISP=OLD,DSN=N18.ACCESS.READ

000009 //ACC3NDEL DD   DISP=(SHR,DELETE),DSN=N18.ACCESS.READ

****** **************************** Bottom of Data ****************************

A screen capture of CTJXVER invoked from the command line of the ACCEP000 member is shown in the following figure.

Note: The following figure shows that the macro JVER is invoked. This assumes that the CTJXVER edit macro was copied to the SYSPROC library as JVER.

Fig.JV.7.4 CTJXVER edit macro invoked in job member screen capture - Example 1

After the CTJXVER macro command is submitted, the output of the verification process is displayed in the job member, as shown in the following figures. This output can be saved by copying and pasting, or by performing a screen print.

Fig.JV.7.5 CTJXVER edit macro output- Example 1

****** ***************************** Top of Data ******************************

=NOTE=  CONTROL-M/JCL VERIFY IS STARTING. LEVEL IJ10249                        

=NOTE=  PROCESSING PERFORMED BY MONITOR $GJMON   / S0433699 ON SYSTEM MVS4     

=NOTE=  RUNTIME PARAMETERS: FA=Y FV=Y JES=Y ME=Y ML=I CTM=Y STDR=Y UT=Y        

=NOTE=                      ENV=GENERAL  USER=Q55A                             

=NOTE=                                                                         

=NOTE=  JOB VERIFICATION COMPLETED WITH                                        

=NOTE=       2 ERROR MESSAGES                                                  

=NOTE=       7 WARNING MESSAGES                                                

=NOTE=       7 INFORMATION MESSAGES                                            

=NOTE=                                                                         

==MSG> ----------------------  VERIFICATION SUMMARY  --------------------------

==MSG> LABEL      MSGID    MESSAGE                                             

==MSG> ------------------------------------------------------------------------

=NOTE= .BAAA      IEFC653I SUBSTITUTION JCL - 0,YY,CLASS=A,MSGCLASS=X,         

=NOTE=                     MSGLEVEL=(1,1),NOTIFY=Q55A                          

==MSG> .BAAB      IEFC003I ALLOCATION ERROR IN PROCESSING A JCLLIB STATEMENT   

==MSG> .BAAC      CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND.               

==MSG>                     DSN=IOAQ.E7CONVPB.LOAD                              

=NOTE= .BAAD      CTJP0GI  INFORMATION: PGM IEFBR14  FOUND IN LINKLIST         

=NOTE=                     SYS1.LINKLIB                                        

==MSG> .BAAE      CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND.               

==MSG>                     DSN=IOAQ.E7CONVPB.TLOAD                             

==MSG> .BAAF      CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND.               

==MSG>                     DSN=IOAQ.E7CONVPB.LOAD                              

==MSG> .BAAG      CTJD05W  WARNING: DSN WITH DISP=OLD NOT FOUND.               

==MSG>                     DSN=SYS2.ACCESS.ERROR                              

=NOTE= .BAAH      CTJP0HI  INFORMATION: PGM IKJEFT01 FOUND IN LPA/PLPA         

=NOTE=                     SYS1.LPALIB                                        

==MSG> .BAAI      CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND.               

==MSG>                     DSN=IOAQ.E7CONVPB.TLOAD                             

==MSG> .BAAJ      CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND.               

==MSG>                     DSN=IOAQ.E7CONVPB.LOAD                              

==MSG> .BAAK      CTJSA3W  WARNING: PERMISSION TO UPDATE WAS NOT GRANTED FOR   

==MSG>                     DSN=SYS1.ACCESS.ERROR                              

=NOTE= .BAAK      CTJDS9I  INFORMATION: USING DATA CLASS          STORAGE CLASS

=NOTE=                      BASE      MANAGEMENT CLASS STANDARD                

=NOTE= .BAAK      CTJDSAI  INFORMATION: USING STORAGE GROUP SGPRIM             

=NOTE= .BAAK      CTJUV0I  INFORMATION: VERIFYING UTILITY IKJEFT01             

==MSG> .BAAK      CTJUVAE  ERROR: MISSING MANDATORY DD STATEMENT SYSTSIN       

=NOTE= .BAAK      CTJUV1I  INFORMATION: VERIFYING UTILITY IKJEFT01 ENDED       

=NOTE=                     RC=0008                                             

==MSG> ----------------------  VERIFICATION SUMMARY END  ----------------------

=NOTE=                                                                         

000001 //Q55ACC00  JOB 0,YY,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),                 

.BAAA  //             NOTIFY=&SYSUID                                           

=NOTE=  IEFC653I SUBSTITUTION JCL - 0,YY,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),    

=NOTE=           NOTIFY=Q55A                                                  

000003 //*-----------------------------------------------------                

000004 //* STEPLIB->JOBLIB->SYSLIB                                             

000005 //* SYSTEM LOAD MODULES RESLOVE                                        

000006 //* LOCAL LOAD MODULES RESOLVE                                          

000007 //* WITH NON EXISTANCE ERRORS                                           

000008 //*-----------------------------------------------------                

.BAAB  //         JCLLIB  ORDER=IOAQ.E7CONVPB.PROCLIB                          

==MSG>  IEFC003I ALLOCATION ERROR IN PROCESSING A JCLLIB STATEMENT             

.BAAC  //JOBLIB   DD   DISP=SHR,DSN=IOAQ.E7CONVPB.LOAD                         

==MSG>  CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND. DSN=IOAQ.E7CONVPB.LOAD  

.BAAD  //LINKLIST EXEC PGM=IEFBR14          <--   LINKLIST                    

=NOTE=  CTJP0GI  INFORMATION: PGM IEFBR14  FOUND IN LINKLIST SYS1.LINKLIB      

.BAAE  //STEPLIB  DD   DISP=SHR,DSN=IOAQ.E7CONVPB.TLOAD                        

==MSG>  CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND. DSN=IOAQ.E7CONVPB.TLOAD

.BAAF  //         DD   DISP=SHR,DSN=IOAQ.E7CONVPB.LOAD                         

==MSG>  CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND. DSN=IOAQ.E7CONVPB.LOAD  

.BAAG  //NOFILE   DD   DISP=OLD,DSN=SYS2.ACCESS.ERROR                          

==MSG>  CTJD05W  WARNING: DSN WITH DISP=OLD NOT FOUND. DSN=SYS2.ACCESS.ERROR   

000015 //*                                                                     

.BAAH  //PLPA     EXEC PGM=IKJEFT01         <--   LPA                          

=NOTE=  CTJP0HI  INFORMATION: PGM IKJEFT01 FOUND IN LPA/PLPA SYS1.LPALIB       

.BAAI  //STEPLIB  DD   DISP=SHR,DSN=IOAQ.E7CONVPB.TLOAD                        

==MSG>  CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND. DSN=IOAQ.E7CONVPB.TLOAD

.BAAJ  //         DD   DISP=SHR,DSN=IOAQ.E7CONVPB.LOAD                         

==MSG>  CTJD05W  WARNING: DSN WITH DISP=SHR NOT FOUND. DSN=IOAQ.E7CONVPB.LOAD  

000019 //ACCESS   DD   DISP=(,CATLG),DSN=SYS1.ACCESS.ERROR,UNIT=SMS,          

.BAAK  //            SPACE=(TRK,1)                                             

==MSG>  CTJSA3W  WARNING: PERMISSION TO UPDATE WAS NOT GRANTED FOR             

==MSG>           DSN=SYS1.ACCESS.ERROR                                        

=NOTE=  CTJDS9I  INFORMATION: USING DATA CLASS          STORAGE CLASS BASE     

=NOTE=            MANAGEMENT CLASS STANDARD                                    

=NOTE=  CTJDSAI  INFORMATION: USING STORAGE GROUP SGPRIM                       

=NOTE=  CTJUV0I  INFORMATION: VERIFYING UTILITY IKJEFT01                       

==MSG>  CTJUVAE  ERROR: MISSING MANDATORY DD STATEMENT SYSTSIN                 

=NOTE=  CTJUV1I  INFORMATION: VERIFYING UTILITY IKJEFT01 ENDED RC=0008         

****** **************************** Bottom of Data ****************************

The output is divided into two main sections. The header section, which begins just after the Top of Data line, displays the parameters used during the verification, a summary of the messages generated during the verification, and a list of the messages generated. The header section is following by the main body section that displays the job member line by line, with messages being displayed immediately after the lines to which they apply.

The first 6 columns in each row of the output header, which is usually reserved for indicating the line number of the job, indicates the type of message, a reference label, or other information as follows:

In this example, the runtime parameters are: FA=Y FV=Y JES=Y ME=Y ML=I USER=N05. See CTJVER Procedure parameters for explanations of these parameters.

In this example, the job verification summary indicates that there are no error messages, 3 warning messages, and 2 information messages. The first information message can be quickly located in the job using the label .BAAA. In the command line, enter the following command:

locate .BAAA

The display jumps to the following job line:

.BAAA  //           NOTIFY=&SYSUID

Note that the job line number (000002) was replaced by the label (.BAAA) during the verification process.

The next line that is displayed is the following information message:

=NOTE=  IEFC653I SUBSTITUTION JCL-0,YY,CLASS=A,MSGCLASS=X,NOTIFY=N05

The IEF prefix of the message indicates that this is an IBM generated message.

The advantage of the header becomes quickly apparent when verifying a lengthy job member. You can review the messages without scrolling through the entire job, and you can jump to the messages that interest you, using the labels.

In the following figure, some of the color coding is apparent. For example, the job line numbers are blue and JCL job lines are displayed in green. The first 6 characters in each row, which includes message type indicators, and labels, are red if they were inserted during the verification process. Information messages and information inserted during the verification process are displayed in blue. Warning messages are displayed in white. Error messages are displayed in yellow.

Fig.JV.7.6 CTJXVER edit macro output screen capture - Example 1 Edit Macro Example 1

Parent Topic

Examples