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 following.

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.

// 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=CAMAT.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=CAMAT.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=CAMAT.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=CAMAT.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=CAMAT.PMA.CEETLOAD
//APCPARAM DD DISP=SHR,DSN=CAMAT.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=CAMAT.PMA.KSDSCST
//APCCDIC1 DD DISP=SHR,DSN=CAMAT.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=CAMAT.PMA.CEETLOAD
//APCPARAM DD DISP=SHR,DSN=CAMAT.PMA.PARMS
//APC110I  DD DSN=&&APCIMS5,
//            DISP=(OLD,DELETE)
//APCCCST1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSCST
//SYSUDUMP DD SYSOUT=*
/APCEREP  DD SYSOUT=*
//*
// ENDIF
//