Sample JCL to operate a DB2 table.
//OPERTBL JOB (DSNTEP4),'OPERTBL',REGION=0M,CLASS=2,MSGCLASS=X,
// NOTIFY=&SYSUID
//*============================================================
//STEPINS EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(<DSN>)
RUN PROGRAM(DSNTEP4) PARMS('ALIGN(LHS)') -
LIB('DSN910.RUNLIB.LOAD')
//STEPLIB DD DSN=DSN910.SDSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INSERT INTO TESTTAB(
<COLKEY>,
<COLINT>,
<COLCHAR>,
)
VALUES(
1, -- <COLKEY> DECIMAL(6, 0)
11, -- <COLINT> INT
'ABCDEF' -- <COLCHAR> CHAR(6)
);
INSERT INTO TESTTAB(
<COLKEY>,
<COLINT>,
<COLCHAR>,
)
VALUES(
2, -- <COLKEY> DECIMAL(6, 0)
22, -- <COLINT> INT
'abcdef' -- <COLCHAR> CHAR(6)
);
/*