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.
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)
);
/*