7.2.1 Non-Transactional Application Programming

The following listing is an example of a non-transactional program. In this example, the VTAM application major node is designated to be MVSLUO1 and the scheduling facility is designated to be the IMS control region IVP4.

Listing APPCM File in SYS1.PARMLIB Library (Example Only)

SYS1.PARMLIB(APPCMxx)

LUADD ACBNAME(MVSLU01) BASE TPDATA(SYS1.APPCTP),
SCHED(IVP4),

SIDEINFO DATASET(SYS1.APPCSI)

SYS1.VTAMLST(MVSLU01)

MVSLU01 APPL ACBNAME=MVSLU01,        ACBNAME FOR APPC                C
                APPC=YES,                                            C
                AUTOSES=0,                                           C
                DDRAINL=NALOW,                                       C
                DLOGMOD=APPCHOST,                                    C
                DMINWNL=3,                                           C
                DMINWNR=3,                                           C
                DRESPL=NALLOW,                                       C
                DSESLIM=6,                                           C
                LMDENT=19,                                           C
                MODETAB=APPCTAB,                                     C
                PARSESS=YES,                                         C
                SECACPT=CONV,                                        C
                SRBEXIT=YES,                                         C
                VPACING=1                                            

The job that starts the IMS subsystem should have the APPC parameter set to Y. The example in the following listing illustrates such a job, but is not intended to be used under actual conditions. Use your own custom job for starting IMS.

Listing IMS Subsystem Start Job (Example Only)

PROC RGN=2000K,SOUT=A,DPTY='(14,15)',
          SYS=,SYS1=,SYS2=,
        RGSUF=IV1,PARM1=APPC=Y,PARM2=,APPLID1=IMS61CR1,AOIS=R IEFPROC EXEC 
PGM=DFSMVRC0,DPRTY=&DPTY,
           REGION=&RGN,
           PARM='CTL,&RGSUF,&PARM1,&PARM2,&APPLID1,&AOIS'
*
*
* THE MEANING AND MAXIMUM SIZE OF EACH PARAMETER
* IS AS FOLLOWS:
*
********** CONTROL REGION SPECIFICATIONS ***********
****************************************************
*     RGSUF   XXX   EXEC   PARM   DEFAULT   BLOCK   SUFFIX   FOR
*                   MEMBER   DFSPBXXX.
****************************************************
*
* PARM1 , PARM2 PARAMETERS BOTH ARE USED TO SPECIFY
* CHARACTER STRINGS THAT CONTAIN IMS KEYWORD
*
* PARAMETERS. I.E. PARM1='AUTO=Y,PST=222,RES=Y'
*
*
* APPC    X       Y = ACTIVATE APPC/IMS
*                 N = DO NOT ACTIVATE APPC/IMS