Administration of the IMS Feature › Processing IMS Transaction Information Data › Job APCIJIFU—Importing the Data › Steps 2—6

Steps 2—6

Run steps 2 through 6 of job APCIJIFU, as shown folloing.

In these steps, the input data is tested against the defined Scope (In-/Exclusions), the summary regions (if defined) are built up, and the data is stored in the database.

Be sure to change the data set prefix, YOUR.APC, to the prefix of your environment.

// IF STEP1.RC LE 8 THEN
//********************************************************************
//* *
//* ACTION: CHECK INPUT FOR SYSTEM/TRX IN/EXLUSIONS *
//* *
//********************************************************************
//STEP2 EXEC PGM=APCIASDI,REGION=4M
//STEPLIB DD DISP=SHR,DSN=YOUR.PMA.CEETLOAD
//APCINF DD DSN=&&APCIMS1,
// DISP=(OLD,DELETE)
//APCOUTF DD DSN=&&APCIMS2,
// DISP=(,PASS),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),
// SPACE=(CYL,(100,200))
//SYSUDUMP DD SYSOUT=*
//APCBEXC1 DD DISP=SHR,DSN=YOUR.PMA.KSDSEXC
//APCREP DD SYSOUT=*
//APCEREP DD SYSOUT=*
//*
// IF STEP1.RC LE 8 THEN
//********************************************************************
//* *
//* ACTION: CHECK INPUT FOR SYSTEM/TRX IN/EXLUSIONS *
//* *
//********************************************************************
//STEP2 EXEC PGM=APCIASDI,REGION=4M
//STEPLIB DD DISP=SHR,DSN=YOUR.PMA.CEETLOAD
//APCINF DD DSN=&&APCIMS1,
// DISP=(OLD,DELETE)
//APCOUTF DD DSN=&&APCIMS2,
// DISP=(,PASS),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),
// SPACE=(CYL,(100,200))
//SYSUDUMP DD SYSOUT=*
//APCBEXC1 DD DISP=SHR,DSN=YOUR.PMA.KSDSEXC

//APCEREP DD SYSOUT=*
//*

//********************************************************************
//* *
//* ACTION: SORT EXTRACTED IMS INFORMATION *
//* *
//********************************************************************
//STEP3 EXEC PGM=SORT
//SORTIN DD DSN=&&APCIMS2,
// DISP=(OLD,DELETE)
//SORTOUT DD DSN=&&APCIMS3,
// DISP=(,PASS),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),
// SPACE=(CYL,(100,200))
//SYSOUT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(5,8,CH,A,23,4,BI,A,13,9,CH,A,27,5,BI,A)
/*
//*
//********************************************************************
//* *
//* ACTION: PROCESS SORTED IMS RECORDS *
//* *
//********************************************************************
//STEP4 EXEC PGM=APCCASSA
//STEPLIB DD DISP=SHR,DSN=YOUR.PMA.CEETLOAD
//APCPARAM DD DISP=SHR,DSN=YOUR.PMA.PARMS
//APC110I DD DSN=&&APCIMS3,
// DISP=(OLD,DELETE)
//APC110O DD DSN=&&APCIMS4,
// DISP=(,PASS),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=255,BLKSIZE=27998),
// SPACE=(CYL,(10,20))
//APCCCST1 DD DISP=SHR,DSN=YOUR.PMA.KSDSCST
//APCCDIC1 DD DISP=SHR,DSN=YOUR.PMA.KSDSDIC
//SYSUDUMP DD SYSOUT=*
//APCREP DD SYSOUT=*
//APCEREP DD SYSOUT=*
//*

//********************************************************************
//* *
//* ACTION: SORT INTERIM IMS RECORDS *
//* *
//********************************************************************
//STEP5 EXEC PGM=SORT
//SORTIN DD DSN=&&APCIMS4,
// DISP=(OLD,DELETE)
//SORTOUT DD DSN=&&APCIMS5,
// DISP=(,PASS),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=255,BLKSIZE=27998),
// SPACE=(CYL,(10,20))
//SYSOUT DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(5,8,CH,A,21,4,BI,A,13,8,CH,A,25,2,BI,A)
/*
//*
//********************************************************************
//* *
//* ACTION: PROCESS SORTED SMF RECORDS *
//* *
//********************************************************************
//STEP6 EXEC PGM=APCCASSB
//STEPLIB DD DISP=SHR,DSN=YOUR.PMA.CEETLOAD
//APCPARAM DD DISP=SHR,DSN=YOUR.PMA.PARMS
//APC110I DD DSN=&&APCIMS5,
// DISP=(OLD,DELETE)
//APCCCST1 DD DISP=SHR,DSN=YOUR.PMA.KSDSCST
//SYSUDUMP DD SYSOUT=*
/APCEREP DD SYSOUT=*
//*
// ENDIF
//