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 › Return Codes

Return Codes

Check the return code after the job completes.

Possible return codes are listed following.

Job APCIJS34—Importing IMS Data from SysView

You also can use job APCIJS34 to import IMS transaction execution information from SysView IMS History Log.

The JCL for job APCIJS34 is in the PMA.CNTL library in member APCIJS34.

Job APCIJS34 performs the following steps while importing the data.

DD Statement Information

Provide the SysView IMS transaction history log records in the form of SMF type 255 subtype 34 as a sequential file under DD statement APCINF.

Each file record must contain the IMS transaction information in the required format. (For a complete description of the format requirements, see Format Requirements for the IMS Transaction Information Interface.)

Other DD statement information is shown next.

JCL Example

Extract the transaction execution information and convert it to internal format as shown next.

In the first step, the provided IMS transaction information is checked for data validation and converted to the required format for further processing.

Be sure to make the following changes:

1. Provide the name of the sequential file that contains the SysView for IMS transaction log records under DD statement APCINF.

   //APCIAS34 EXEC PGM=APCIAS34
   //STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD
   //APCINF   DD DSN=SMF.INPUT.DATASET
   //            DISP=SHR
   //APCOUTF  DD DSN=&&APCIMS1,
   //            DISP=(,PASS),
   //            UNIT=SYSDA,
   //            DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),
   //            SPACE=(CYL,(10,20))
   //SYSABEND DD SYSOUT=*
   //*YSUDUMP DD SYSOUT=*
   //APCREP   DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80)
   //APCEREP  DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80)
   //*
   

2. Run steps 2 through 6 of job APCIJS34, 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
//APCINF   DD DSN=&&APCIMS1,
//            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 SMF 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=*
//APCEREP  DD SYSOUT=*
//

Return Codes

Return Codes

Check the return code after the job completes.

Possible return codes are as follows: