IBM VisualAge Pacbase Guide D'installation page 86

:/ ADD NAME=DLBVPUU
:/ ADD NAME=DLBVPNJ
:/ ADD NAME=VERIFTY
:/ ADD NAME=BLBVPQU
:/ ADD NAME=ISPLOGON
//*
//* THE FOLLOWING THREE FILES MUST BE DECLARED
//* INTO THE USER TSO LOGON PROCEDURE.
//*
//IKJ
//PAC7TY
//PAC7UP
//PAC7UQ
//
:/ ADD NAME=ISPF
//*
//* EXITS TRACE FILE ALLOCATION MUST BE DECLARED
//* INTO THE USER ISPF CONNECTION PROCEDURE.
//*
CONTROL MAIN NOMSG
SET &PTRACE = &STR('$INDUNE..&SYSUID..PTRACE')
FREE FI(PTRACE)
ALLOC FI(PTRACE) SHR REU DA(&PTRACE)
IF &LASTCC > 0 THEN DO
END
:/ ADD NAME=CIUU$MSGSX
CIUU$MSGSX.1E
'''INFOPAC'' TYPE ELEMENTS ARE NOT ALLOWED FOR UPDATING
CIUU$MSGSX.2E
'ACTIONS ''ADD & UPDATE'' ARE NOT ALLOWED FOR PACBASE OUT OF PROCESSOR
CIUU$MSGSX.3E
'ONLY ACTIONS ''ADD & UPDATE'' ARE ALLOWED FOR PACBASE THROUGH PROCESSO
:/ ADD NAME=PRCSGENI
//*
//*-------------------------------------------------------------------*
//* G E N E R A T E
74
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
REC (10000)
VOL ($VOLSV)
RECSZ (170,170) RUS )
DATA ( NAME ($INDSVE..BVPUU.D)
CISZ (4096) ) /*: CATALOG ($CATU) */
DELETE ($INDSVE..BVPUU) CLUSTER
DELETE ($INDSVE..BVPNJ) CLUSTER
VERIFY FILE (PAC7TY)
DEFINE GENERATIONDATAGROUP -
(NAME ($INDUNE..BVPQU) LIMIT (3) SCR)
EXEC PGM=IKJEFT01, ...
.
.
DD DSN=$INDSVE..BVPTY,DISP=SHR
DD DSN=$INDSVE..BVPUP,DISP=SHR
DD DSN=$INDSVE..BVPUQ,DISP=SHR
.
.
FREE ATTRLIST(DCBTRACE)
ATTR DCBTRACE RECFM(F B) LRECL(120) BLKSIZE(12000) DSORG(PS)
ALLOC FI(PTRACE) DA(&PTRACE) SPACE(20,10) TRACKS USING(DCBTRACE)
FREE FI(PTRACE)
ALLOC FI(PTRACE) SHR REU DA(&PTRACE)
'INVALID TYPE (INFOPAC) ' .ALARM = YES .HELP = *
'INVALID ACTION (PACBASE)' .ALARM = YES .HELP = *
'INVALID ACTION (PACBASE)' .ALARM = YES .HELP = *
P R O C E S S O R
-
-
-
-
(INFOPAC TYPE) *