//****************************************************************** 00100000 //* RM Procedure 00110000 //* 00120000 //* 00130000 //* Parameters: 00140000 //* BPECFG - Name of BPE member 00150000 //* RMINIT - Suffix for your CSLRIxxx member 00160000 //* PARM1 - other override parameters e.g. 00170000 //* ARMRST - Indicates if ARM should be used 00180000 //* RMNAME - Name of the RM being started 00190000 //* 00200000 //* example: 00210000 //* PARM1='ARMRST=Y,RMNAME=RM1' 00220000 //* 00230000 //***********************************************************@SCPYRT** 00240000 //* 00250000 //* Licensed Materials - Property of IBM 00260000 //* 00270000 //* Restricted Materials of IBM 00280000 //* 00290000 //* 5655-C56 00300000 //* 00310000 //* (C) Copyright IBM Corp. 2000 00313000 //* 00316000 //***********************************************************@ECPYRT** 00320000 //* 00330000 //CSLRM PROC RGN=0M,SOUT=A, 00331000 // IMSVAR=&IMSVAR, 00350000 // BPECFG=BPECFG00, 00361000 // INIT=CSLRINI0, 00362000 // RMINIT=&RMINIT 00370000 //* PARM1= 00380000 //* 00390000 //RMPROC EXEC PGM=BPEINI00,REGION=&RGN, 00400000 // PARM='BPEINIT=&INIT,BPECFG=&BPECFG,RMINIT=&RMINIT' 00412000 //* PARM='BPEINIT=&INIT,BPECFG=&BPECFG,RMINIT=&RMINIT,PARM1=&PARM1' 00413000 //STEPLIB DD DSN=IMS1110.&IMSVAR..SDFSRESL,DISP=SHR 00430001 // DD DSN=SYS1.CSSLIB,DISP=SHR 00440000 //PROCLIB DD DSN=D10.PETDSW4.PROCLIB,DISP=SHR 00450000 //SYSPRINT DD SYSOUT=&SOUT 00460000 //SYSUDUMP DD SYSOUT=&SOUT 00470000 //* 00480000