//****************************************************************** 00100000 //* SCI Procedure 00110000 //* 00120000 //* 00130000 //* Parameters: 00140000 //* BPECFG - Name of BPE member 00150000 //* SCIINIT - Suffix for your CSLSIxxx member 00160000 //* PARM1 - other override parameters e.g. 00170000 //* ARMRST - Indicates if ARM should be used 00180000 //* SCINAME - Name of the SCI being started 00190000 //* 00200000 //* example: 00210000 //* PARM1='ARMRST=Y,SCINAME=SCI1' 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 //CSLSCI PROC RGN=3000K,SOUT=A, 00340000 // IMSVAR=&IMSVAR, 00350000 // BPECFG=BPECFG00, 00360000 // SCIINIT=000, 00370000 // PARM1=(SCINAME=&SCINAME) 00380000 //* 00390000 //SCIPROC EXEC PGM=BPEINI00,REGION=&RGN, 00400000 // PARM='BPECFG=&BPECFG,BPEINIT=CSLSINI0,SCIINIT=&SCIINIT,&PARM1' 00410000 //* 00420000 //STEPLIB DD DISP=SHR,DSN=IMS810.&IMSVAR..SDFSRESL 00430000 // DD DSN=SYS1.CSSLIB,DISP=SHR 00440000 //PROCLIB DD DSN=D10.PETDSW4.PROCLIB,DISP=SHR 00450001 //SYSPRINT DD SYSOUT=&SOUT 00460000 //SYSUDUMP DD SYSOUT=&SOUT 00470000 //* 00480000