| 1 | //MNTTRDB2 JOB (COBOL),'MNTTRDB2',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), JOB09214 |
| 2 | // NOTIFY=&SYSUID,TIME=1440 |
| 3 | //*******************************************************************// |
| 4 | //* *// |
| 5 | //* USE THIS JOB TO MAINTAIN DB2 TRANSACTION TABLE, INSERTING, *// |
| 6 | //* UPDATING OR REMOVING RECORDS IN BATCH. *// |
| 7 | //* *// |
| 8 | //* INPFILE - THE INPUT FILE TO USE FOR UPDATES. THE ALLOWED VALUES *// |
| 9 | //* ARE: *// |
| 10 | //* *// |
| 11 | //* COLUMN 1 - A - ADD *// |
| 12 | //* D - DELETE *// |
| 13 | //* U - UPDATE *// |
| 14 | //* * - COMMENT *// |
| 15 | //* *// |
| 16 | //* COLUMNS 2-3 - TRANSACTION TYPE. NUMERIC VALUE *// |
| 17 | //* *// |
| 18 | //* COLUMNS 4-53 - TRANSACTION DESCRIPTION *// |
| 19 | //* *// |
| 20 | //*******************************************************************// |
| 21 | //STEP1 EXEC PGM=IKJEFT01,REGION=0M |
| 22 | //STEPLIB DD DISP=SHR,DSN=OEM.DB2.DAZ1.SDSNEXIT |
| 23 | // DD DISP=SHR,DSN=OEMA.DB2.VERSIONA.SDSNLOAD |
| 24 | // DD DISP=SHR,DSN=AWS.M2.CARDDEMO.LOADLIB |
| 25 | //DBRMLIB DD DISP=SHR,DSN=AWS.M2.CARDDEMO.DBRMLIB |
| 26 | //SYSTSPRT DD SYSOUT=* |
| 27 | //INPFILE DD DSN=INPFILE,DISP=SHR |
| 28 | //SYSTSIN DD * |
| 29 | DSN SYSTEM(DAZ1) |
| 30 | RUN PROGRAM(COBTUPDT) PLAN(CARDDEMO) |