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)