Administration of the IMS Feature › Processing IMS Transaction Information Data › Job APCIJM44—Importing IMS Data from Transaction Log Records › Steps 2—6

Steps 2—6

Run steps 2 through 6 of job APCIJM44, 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.

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

//********************************************************************
//*                                                                  *
//* ACTION:      CHECK INPUT FOR SYSTEM/TRX IN/EXLUSIONS             *
//*                                                                  *
//********************************************************************
//APCIASDI EXEC PGM=APCIASDI,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=YOUR.PMA.CEETLOAD
//            DISP=(OLD,DELETE)
//APCOUTF  DD DSN=&&APCIMS2,
//            DISP=(,PASS),
//            UNIT=SYSDA,
//            DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),
//            SPACE=(CYL,(10,20))
//SYSUDUMP DD SYSOUT=*
//APCBEXC1 DD DISP=SHR,DSN=YOUR.PMA.KSDSEXC
//APCREP   DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80)
//APCEREP  DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80)
//*
//********************************************************************
//*                                                                  *
//* ACTION:      SORT EXTRACTED IMS INFORMATION                      *
//*                                                                  *
//********************************************************************
//SORT01  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,(10,20))
//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                          *
//*                                                                  *
//********************************************************************
//APCCASSA EXEC PGM=APCCASSA,PARM='IMS'
//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                            *
//*                                                                  *
//********************************************************************
//SORT02  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 RECORDS                              *
//*                                                                  *
//********************************************************************
//APCCASSB EXEC PGM=APCCASSB,PARM='IMS'
//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=*
//APCREP   DD SYSOUT=*

//