Administration of the IMS Feature › Processing IMS Transaction Information Data › Job APCIJM44—Importing IMS Data from MainView for IMS 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.

//********************************************************************
//*                                                                  *
//* ACTION:      CHECK INPUT FOR SYSTEM/TRX IN/EXLUSIONS             *
//*                                                                  *
//********************************************************************
//APCIASDI EXEC PGM=APCIASDI,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=CAMAT.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=CAMAT.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=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                            *
//*                                                                  *
//********************************************************************
//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=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=*
//APCREP   DD SYSOUT=*

//