IBM VisualAge Pacbase Guide D'installation page 96

//
//LIST01
//LIST02
//LIST03
//LIST04
//*
:/ ADD NAME=PRCSMOVP
//*
//*-------------------------------------------------------------------*
//* M O V E
//*-------------------------------------------------------------------*
//*
//MOVP
//
//
//
//
//*
//MOV00
//MOV02A
//
//
//MOV03A
//
//
//MOV03B
//
//
//MOV05A
//
//
//MOV05B
//
//
//*
//MOV01
//
//
//
//
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7PU
//PAC7TR
//
//
//*
//MOV02
//SYSIN
//SYSUT1
,&C1SENVMNT(1,8,_),&C1SSYSTEM(1,8,_)&C1SSUBSYS(1,8,_)
&C1SELTYPE(1,8,_),&C1SELEMENT(1,10,_)&C1SSTGNUM)
/*
//SYSUT2
84
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
DD DSN=&&SYSOUT1,DISP=(OLD,DELETE)
DD DSN=&&SYSDMP1,DISP=(OLD,DELETE)
DD DSN=&&SYSOUT2,DISP=(OLD,DELETE)
DD DSN=&&SYSDMP2,DISP=(OLD,DELETE)
P R O C E S S O R
PROC ROOTPGM='BV',
STEPLIB='$HLQ..SBVPMBR8',
OUT='$OUT',
TY='$INDSVE..BVPTY',
UP='$INDSVE..BVPUP'
EXEC PGM=BC1PDSIN,MAXRC=0
DD DSN=&&SYSOUT1,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSOUT2,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSDMP2,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSOUT3,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSDMP3,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
EXEC PGM=&ROOTPGM.PNTRAN,
EXECIF=(&C1ACTION,EQ,TRANSFER),
PARM=(&C1ACTION(1,8,_),&C1ENVMNT(1,8,_),
&C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_),
&C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)M)
DD DSN=&UP,DISP=SHR
DD DSN=&&&&C1ACTION,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=58,BLKSIZE=58),
SPACE=(TRK,(01,01),RLSE)
EXEC PGM=IEBGENER,EXECIF=(&C1ACTION,EQ,MOVE)
DD *
GENERATE MAXFLDS=1
RECORD FIELD=(058,1,,1)
DD *
DD DSN=&&&&C1ACTION,DISP=(,PASS),UNIT=SYSDA,
(PACBASE TYPE) *