JCL Scanner - Capture Commands

Document ID : KB000009670
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

TR91622 provides an enhancement to the JCL scanner so that command information such as LISTCAT is now captured and written to the TMPCTL file. 

 ex. 

//SYSIN DD * 

LISTCAT LEVEL ('EJ99P.PROD.CASCAN.DB2NDM') 

/* 

The command information is stored starting at column 22 in the TMPCTL file.

In order to store the command information in the Repository, the JOB STEP entity must be extended so that the a column and attribute are defined for this new string. 

Instructions:

Apply TR91622.  Once applied command information (LISTCAT, LISTDSN) will be written to the intermediate TMPCTL file.    

Execute the following 4 insert SQL statements to define a new attribute for the command string. 

note.  Change DBXREL30 to your repository creator

INSERT INTO DBXREL30.DBX_SCREEN_ATTR                          

VALUES                                                        

(257, 'COMMAND', ' ', ' ', 'COMMAND',                         

25, 31, 60, ' ', ' ', ' ', ' ', 'COMMAND', ' ',               

0,0,' ',0,' ',' ')                                            

;                                                             

COMMIT                                                        

;                                                             

INSERT INTO DBXREL30.DBX_SCREEN_LIT                           

VALUES                                                        

(257,25,2,' ',' COMMAND')                                     

;                                                             

COMMIT                                                        

;                                                             

INSERT INTO DBXREL30.DBX_SCREEN_LIT                           

VALUES                                                        

(257,25,26,'Y','===>')                                        

;                                                             

COMMIT                                                        

;                                                             

INSERT INTO DBXREL30.DBX_IO_MAP_ATTR                          

VALUES                                                        

(257,0,' ','COMMAND',' ',' ',585,60,'C',' ','N',' ',' ',' ',0)

;                                                             

COMMIT                                                        

;            

Define a new column to the underlying table as follows

ALTER TABLE DBXREL30.DBX_SYS_JOB_STEP              

ADD COLUMN COMMAND CHAR(60) NOT NULL WITH DEFAULT

;                                                

COMMIT                                           

;     

To populate the repository with the command information for JCL which has been loaded into the repository, 

the following DBXLOAD control card can be used.  It uses the intermediate TMPCTL file created by 

JCL Scanner as its input

REUSE DATA FROM SYSRC01 ERROR SYSER01                                  

    VALIDATE NO STATUS 'yourstats'                                      

    SAVEAUDIT VERSION '0'                                              

    INTO DIALOG 'SYSTEM'  ENTITY 'JOB STEP'                            

  FIELDS                                                               

  (JOB_STEP_NAME        POS(00001) CHAR(00018) READONLY                

  ,SEQ_NBR                    POS(00020) CHAR(00001) READONLY                

  ,COMMAND                  POS(00022) CHAR(00060)                         

  );                                                                   

/*