1 of 6

JCL Examples

Various job control examples are also provided with the installation.

xxSADUMP Process transfer to HORIZONT
xxSJCUST Create SQL for filling DB2 table CUSTOM_DATA
xxSJDELD Deleting temporary process files
xxSJFCNT Create SQL for filling DB2 table FORMCONT
xxSJVSFL Create VSAM Check file for JCL rules

xxSADUMP

If problems occur in the SmartJCL part of ProcMan, it can be very helpful to pull all zOS files used by this ProcMan step and send them to HORIZONT via JIRA ticket.

//     EXPORT SYMLIST=*                             
//XMI  SET XMIFILE=MYUSER.XMIT                      
//DUMP SET DMPFILE=MYUSER.TRANSFER.DUMP             
//PID  SET PIDPREF=PROCMAN.PREF.H0001066.**         
//RUL  SET PXRULES=PROCMAN.PROD.RULES               
//DEL      EXEC PGM=IDCAMS                          
//SYSPRINT DD  SYSOUT=*                             
//SYSIN    DD *,SYMBOLS=EXECSYS                     
  DEL &XMIFILE                                      
  DEL &DMPFILE                                      
  SET MAXCC=0                                       
/*                                                  
//DASD     EXEC PGM=ADRDSSU,                        
//         REGION=32M                               
//SYSPRINT DD  SYSOUT=*                             
//BACKUP   DD  DSN=&DMPFILE.,                       
//             DISP=(NEW,CATLG,DELETE),             
//             SPACE=(TRK,(500,400),RLSE)           
//SYSIN    DD *,SYMBOLS=EXECSYS                     
 DUMP -                                             
   DATASET (INCLUDE(&PIDPREF.**, -                  
                    &PXRULES.) -                    
   OPTIMIZE(4) -                                    
   SHR -                                            
   ALLEXCP -                                        
   CANCELERROR -                                    
   SPHERE -                                         
   WAIT(0,0) -                                      
   OUTDDNAME(BACKUP)                                
//     IF  (DASD.RC EQ 0) THEN                      
//XMIT     EXEC PGM=IKJEFT01,                       
//         REGION=128M                              
//SYSPRINT DD  SYSOUT=*                             
//SYSTSPRT DD  SYSOUT=*                             
//SYSTSIN  DD *,SYMBOLS=EXECSYS                     
 XMIT X.X DS('&DMPFILE.') -                         
          OUTDS('&XMIFILE.')                        
//  ENDIF

The XMIT file must be transferred binary and added to the JIRA ticket.

xxSJCUST

The DB2 table CUSTOM_DATA can be filled using SQL statements. These can be generated with the PRCICUS batch program. Program can read data in CSV format or a FLAT file structure. The input data is described with DD EDEFCMDS. Furthermore, it must be described which data is stored in which column of the DB2 table.

DB2 Structure of CUSTOM_DATA

DATA_TYPE  VARCHAR(128) NOT NULL,
DATA_INT_1 INTEGER DEFAULT 0 NOT NULL,
DATA_INT_2 INTEGER DEFAULT 0 NOT NULL,
DATA_STR_1 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_2 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_3 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_4 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_5 VARCHAR(1024) DEFAULT ' ' NOT NULL,
DATA_STR_6 VARCHAR(2048) DEFAULT ' ' NOT NULL

Job-Control

//S010     EXEC PGM=PRCICUS, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example CSV

//EDEFCMDS DD  *                                               
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOSEMICL);           
IMPORT_FILE_LRECL=80;                                          
IMPORT_TYP=CSV;                        /* FLAT OR CSV */       
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */     
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */ 
-----------------------------------                            
-- PARAMETER FOR IMPORT_TYP CSV                                
-----------------------------------                            
CSV_DELIMITER=';';                                             
CSV_ENCLOSURE='"';                                             
CSV_COLUMNS_1=DATA_TYPE;                                       
CSV_COLUMNS_2=DATA_INT_1;                                      
CSV_COLUMNS_3=DATA_STR_1;                                      
CSV_COLUMNS_4=DATA_STR_2;                                      
CSV_KEY=CSV_COLUMNS_3;                                         
CSV_FILTER=CSV_COLUMNS_1,'FIRE';                               
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.
IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings.
SQL_TYP INSERT or DELETE Which type of SQL should be written.
CSV_DELIMITER Each 1 digit character. E.g. ; or , or !
CSV_COLUMNS_n Column number of CSV source data and the target column in CUSTOM_DATA
CSV_KEY Column number of CSV source data which must be unique. In the case of duplicate values, only the 1 entry is used.

Note! Each definition block must be terminated with END1BLOCK.

EDEFCMDS Example FLAT

//EDEFCMDS DD  *                                               
----------------------------------                          
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOFLATFL);        
IMPORT_FILE_LRECL=80;                                       
IMPORT_TYP=FLAT;                       /* FLAT OR CSV */    
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */  
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */
-----------------------------------                         
-- PARAMETER FOR IMPORT_TYP FLAT                            
-----------------------------------                         
FLAT_COLUMNS_1=DATA_TYPE,1:4;                               
FLAT_COLUMNS_2=DATA_INT_1,6:10;                             
FLAT_COLUMNS_3=DATA_STR_1,12:15;                            
FLAT_COLUMNS_4=DATA_STR_2,17:20;                            
FLAT_KEY=FLAT_COLUMNS_3;                                    
FLAT_FILTER=FLAT_COLUMNS_1,'HIRE';                          
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.- IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings
SQL_TYP INSERT or DELETE Which type of SQL should be written.
FLAT_COLUMNS_n Column number of FLAT source data and the target column in CUSTOM_DATA
FLAT_KEY Column number of FLAT source data which must be unique. In the case of nn duplicate values, only the 1 entry is used.
FLAT_FILTER Column number of FLAT source data and search value.

xxSDELD

ProcMan zOS activities usually generate temporary files. After ProcMan has read these files, they can be deleted. The attached batch job deletes the data using IWSz control. As soon as a certain creation date is reached, these files are deleted.

Note! A backup, of these files, is not required.

/ //*%OPC SCAN                                                 
//MYJOB JOB (DEFAULT),'PM INSTALL',CLASS=A,NOTIFY=&SYSUID  
//***********************************************************
//***  DELETE PROCMAN TEMPORARY DATASET FROM PREVIOUS DAY    
//***********************************************************
//STEP1    EXEC PGM=ADRDSSU                                  
//SYSPRINT  DD SYSOUT=*                                      
//AUS1      DD DUMMY,DSN=NULLFILE,                           
//             DISP=(MOD,DELETE,DELETE),                     
//             DCB=(LRECL=80,BLKSIZE=0,RECFM=FB),            
//             SPACE=(TRK,(1,1),RLSE)                        
//SYSIN     DD *                                             
 DUMP DATASET(                          -                    
   BY(CREDT,LE,&OYYDDD)                -                     
//*%OPC BEGIN ACTION=NOSCAN                                  
   INCLUDE(                             -                    
           MY.PROCMAN.V5R1.WRK.H*.**             -        
          )                         -                        
             )                      -                        
     OUTDDNAME(AUS1)                -                        
     ALLDATA(*)                     -                        
     DELETE                         -                        
     ALLEXCP                        -                        
     OPTIMIZE(4)                                             
//*%OPC END   ACTION=NOSCAN

xxSJFCNT

The DB2 table FORMCONT can be filled using SQL statements. These can be generated with the PRCIFRM batch program. The input data is described with DD EDEFCMDS.

DB2 Structure of FORMCONT

FORMNAME VARCHAR(64) NOT NULL,
    STMT     VARCHAR(16) NOT NULL,
    NAME     VARCHAR(64) NOT NULL,
    LBL      VARCHAR(512) NOT NULL,
    VAL      VARCHAR(1024),
    USR      VARCHAR(32)

Job-Control

//S010     EXEC PGM=PRCIFRM, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example

//EDEFCMDS DD  *                                               
MY.PROCMAN.V5R1.USER.SYSIN; HOSAGB01 ; 80; FB; +               
  JOB;        JOBN1; FRM_JCK_JOB_HO; 1; 3; 1; 3;                  
MY.PROCMAN.V5R1.USER.SYSIN; HOACCT01 ; 80; FB; +               
  JOB;        #PP01; FRM_JCK_JOB_HO; 1; 6; 1; 6;                  
//* PARM 1 : NAME OF PO DATASET                                   
//* PARM 2 : MEMBER NAME                                          
//* PARM 3 : RECORD LENGTH OF PO DATASET 80,100,120 ARE SUPPORTED 
//* PARM 4 : RECORD FORMAT                                        
//* PARM 5 : STATEMENT TYPE LIKE JOB, EXEC OR DD                  
//* PARM 6 : NAME OF WEB FORM FIELD                               
//* PARM 7 : NAME OF WEB FORM                                     
//* PARM 8 : LABEL START DIGIT OF INPUT DATA                      
//* PARM 9 : LABEL LENGTH OF INPUT DATA                           
//* PARM 10: VALUE START DIGIT OF INPUT DATA                      
//* PARM 11: VALUE LENGTH OF INPUT DATA                           
//* PARM 12: (OPTIONAL) USERID START DIGIT OF INPUT DATA          
//* PARM 13: (OPTIONAL) USERID LENGTH OF INPUT DATA

Parameter 1 Name of the Input file (Only PO datasets are supported)
Parameter 2 Name of the Input member name.
Parameter 3 Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
Parameter 4 Record format e.g. FB
Parameter 5 Statement Typ. E.g. JOB, EXEC or DD
Parameter 6 Name of the Web Form Field
Parameter 7 Name of the Web Form
Parameter 8 Label start position in the input data
Parameter 9 Label length in the input data
Parameter 10 Value start position in the input data
Parameter 11 Value length in the input data
Parameter 12 User start position in the input data (Optional)
Parameter 13 User length in the input data (Optional)

xxSJVSFL

The ProcMan JCL rule set offers the option of using check tables. These check tables are saved in a VSAM file. This VSAM file is recreated cyclically so that the latest data is saved. This usually happens every 24 hours when the online ProcMan is no longer being used.

Job-Control

//S010     EXEC PGM=PRCICHK,REGION=0M                            
//CEEDUMP  DD  SYSOUT=*                                          
//SYSOUT   DD  SYSOUT=*                                          
//SYSPRINT DD  SYSOUT=*                                          
//HOSVLOAD DD  DSN=&&PMLOAD,DISP=(NEW,PASS,DELETE),              
//             RECFM=FB,LRECL=400,SPACE=(TRK,(500,250),RLSE)     
//EDEFCMDS DD  *                                                 
DEPART;   P391C.PROCMAN.V5R1.USER.SYSIN; HOSAGB01; 80; FB; +     
     1;  1;

EDEFCMDS description

Parameter 1 Name of the check table
Parameter 2 Name of the Input file (Only PO datasets are supported)
Parameter 3 Name of the Input member name.
Parameter 4 Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, ZZ 200, 250, 300, 350, 400
Parameter 5 Record format e.g. FB
Parameter 6 LABEL Which data for the label. E.g.
- 1; 1. Column of input data
- 1,2; 1. and 2. Column of input data
- (1:30); Start in position 1 with length of 30
- (1:15;24:3) Start in position 1 with length of 15 and start in position 24 with length of 3
Parameter 7 VALUE Which data for the value. E.g. -1,4,3,2
- 1. Column of input data for VSAM DATA1
- 4. Column of input data for VSAM DATA2
- 3. Column of input data for VSAM DATA3
- 2. Column of input data for VSAM DATA4
  - 1(53:3),2(48:4),3(57:48);
  - position 53 length of 3 of input data for VSAM DATA1
  - position 48 length of 4 of input data for VSAM DATA2
  - position 57 length of 48 of input data for VSAM DATA3

EDEFTITL description (new title will be shown with the ISPF dialog)

Parameter 1 Name of the check table
Parameter 2 Column number of check table
Parameter 3 New title of column ( instead DATA1, DATA2…..)

xxSJCUST

DB2 Structure of CUSTOM_DATA

DATA_TYPE  VARCHAR(128) NOT NULL,
DATA_INT_1 INTEGER DEFAULT 0 NOT NULL,
DATA_INT_2 INTEGER DEFAULT 0 NOT NULL,
DATA_STR_1 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_2 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_3 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_4 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_5 VARCHAR(1024) DEFAULT ' ' NOT NULL,
DATA_STR_6 VARCHAR(2048) DEFAULT ' ' NOT NULL

Job-Control

//S010     EXEC PGM=PRCICUS, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example CSV

//EDEFCMDS DD  *                                               
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOSEMICL);           
IMPORT_FILE_LRECL=80;                                          
IMPORT_TYP=CSV;                        /* FLAT OR CSV */       
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */     
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */ 
-----------------------------------                            
-- PARAMETER FOR IMPORT_TYP CSV                                
-----------------------------------                            
CSV_DELIMITER=';';                                             
CSV_ENCLOSURE='"';                                             
CSV_COLUMNS_1=DATA_TYPE;                                       
CSV_COLUMNS_2=DATA_INT_1;                                      
CSV_COLUMNS_3=DATA_STR_1;                                      
CSV_COLUMNS_4=DATA_STR_2;                                      
CSV_KEY=CSV_COLUMNS_3;                                         
CSV_FILTER=CSV_COLUMNS_1,'FIRE';                               
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.
IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings.
SQL_TYP INSERT or DELETE Which type of SQL should be written.
CSV_DELIMITER Each 1 digit character. E.g. ; or , or !
CSV_COLUMNS_n Column number of CSV source data and the target column in CUSTOM_DATA
CSV_KEY Column number of CSV source data which must be unique. In the case of duplicate values, only the 1 entry is used.

Note! Each definition block must be terminated with END1BLOCK.

EDEFCMDS Example FLAT

//EDEFCMDS DD  *                                               
----------------------------------                          
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOFLATFL);        
IMPORT_FILE_LRECL=80;                                       
IMPORT_TYP=FLAT;                       /* FLAT OR CSV */    
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */  
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */
-----------------------------------                         
-- PARAMETER FOR IMPORT_TYP FLAT                            
-----------------------------------                         
FLAT_COLUMNS_1=DATA_TYPE,1:4;                               
FLAT_COLUMNS_2=DATA_INT_1,6:10;                             
FLAT_COLUMNS_3=DATA_STR_1,12:15;                            
FLAT_COLUMNS_4=DATA_STR_2,17:20;                            
FLAT_KEY=FLAT_COLUMNS_3;                                    
FLAT_FILTER=FLAT_COLUMNS_1,'HIRE';                          
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.- IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings
SQL_TYP INSERT or DELETE Which type of SQL should be written.
FLAT_COLUMNS_n Column number of FLAT source data and the target column in CUSTOM_DATA
FLAT_KEY Column number of FLAT source data which must be unique. In the case of nn duplicate values, only the 1 entry is used.
FLAT_FILTER Column number of FLAT source data and search value.

xxSJFCNT

The DB2 table FORMCONT can be filled using SQL statements. These can be generated with the PRCIFRM batch program. The input data is described with DD EDEFCMDS.

DB2 Structure of FORMCONT

FORMNAME VARCHAR(64) NOT NULL,
    STMT     VARCHAR(16) NOT NULL,
    NAME     VARCHAR(64) NOT NULL,
    LBL      VARCHAR(512) NOT NULL,
    VAL      VARCHAR(1024),
    USR      VARCHAR(32)

Job-Control

//S010     EXEC PGM=PRCIFRM, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example

//EDEFCMDS DD  *                                               
MY.PROCMAN.V5R1.USER.SYSIN; HOSAGB01 ; 80; FB; +               
  JOB;        JOBN1; FRM_JCK_JOB_HO; 1; 3; 1; 3;                  
MY.PROCMAN.V5R1.USER.SYSIN; HOACCT01 ; 80; FB; +               
  JOB;        #PP01; FRM_JCK_JOB_HO; 1; 6; 1; 6;                  
//* PARM 1 : NAME OF PO DATASET                                   
//* PARM 2 : MEMBER NAME                                          
//* PARM 3 : RECORD LENGTH OF PO DATASET 80,100,120 ARE SUPPORTED 
//* PARM 4 : RECORD FORMAT                                        
//* PARM 5 : STATEMENT TYPE LIKE JOB, EXEC OR DD                  
//* PARM 6 : NAME OF WEB FORM FIELD                               
//* PARM 7 : NAME OF WEB FORM                                     
//* PARM 8 : LABEL START DIGIT OF INPUT DATA                      
//* PARM 9 : LABEL LENGTH OF INPUT DATA                           
//* PARM 10: VALUE START DIGIT OF INPUT DATA                      
//* PARM 11: VALUE LENGTH OF INPUT DATA                           
//* PARM 12: (OPTIONAL) USERID START DIGIT OF INPUT DATA          
//* PARM 13: (OPTIONAL) USERID LENGTH OF INPUT DATA

Parameter 1 Name of the Input file (Only PO datasets are supported)
Parameter 2 Name of the Input member name.
Parameter 3 Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
Parameter 4 Record format e.g. FB
Parameter 5 Statement Typ. E.g. JOB, EXEC or DD
Parameter 6 Name of the Web Form Field
Parameter 7 Name of the Web Form
Parameter 8 Label start position in the input data
Parameter 9 Label length in the input data
Parameter 10 Value start position in the input data
Parameter 11 Value length in the input data
Parameter 12 User start position in the input data (Optional)
Parameter 13 User length in the input data (Optional)