Running IPCS Subcommands in Batch Mode

Figure 1 is an example of running the RSMDATA subcommand in a batch job. Note the following in this example:

The batch job allocates the dump directory, IPCSU1.DUMP.DIR, assuming an existing dump directory data set.
The IPCS session parameters are dynamically allocated from the IPCSPRxx parmlib member.
The output is directed to the IPCS print data set, IPCSU1.RSMDATA.LISTV, and can be viewed using PDF BROWSE.
The dump data set is allocated with a ddname of DUMP, which was selected arbitrarily for the example. The dump directory associates the DUMP ddname with the data set 'IPCSU1.DUMP1.DUMP' when it is first initialized.
The SYSTSIN in-stream data contains two DROPDUMP subcommands.
- The first DROPDUMP subcommand ensures that the user dump directory being used does not contain any information about another dump data set that was identified to IPCS through the same ddname, FILE(DUMP). If another dump data set had been processed through FILE(DUMP) using the same dump directory and this DROPDUMP subcommand were not included, IPCS would detect the attempt to associate the descriptions of two distinct dumps with FILE(DUMP) and would end the processing of the RSMDATA subcommand.
- The second DROPDUMP subcommand removes the description of the dump processed, assuming that the next time the same dump directory is used, another dump will be of interest. This is not essential if the next job begins with a DROPDUMP operation similar to the one at the start of the job, but it does eliminate records that will not be reused in subsequent IPCS sessions.

Figure 1. Running a Subcommand in Batch Mode

//IPCSJOB  JOB 'acctinfo','IPCSU1 output',MSGLEVEL=(1,1),
//          MSGCLASS=A,CLASS=J,NOTIFY=IPCSU1
//* ------------------------------------------------------
//*
//*   Input: dump in data set 'IPCSU1.DUMP1.DUMP'
//*   Output:
//*     - IPCS dump directory data set for the input dump
//*        (IPCSDDIR DD)
//*     - Formatted output (SYSTSPRT DD)
//*     - TSO/E messages (SYSTSPRT DD)
//* ------------------------------------------------------
//IPCS     EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1500K
//IPCSDDIR DD DSN=IPCSU1.DUMP.DIR,DISP=(SHR)
//DUMP     DD   DSN=IPCSU1.DUMP1.DUMP,DISP=SHR
//IPCSPRNT DD DSN=IPCSU1.RSMDATA.LISTV,DISP=(OLD,KEEP,KEEP)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
IPCS
DROPDUMP DDNAME(DUMP)
RSMDATA REALFRAME ALL STATUS(VRINT,POLLUTE) RANGE(5:86) +
      DDNAME(DUMP) PRINT NOTERMINAL
DROPDUMP DDNAME(DUMP)
END
/*