//CPUPSWD JOB                                                           00001002
//*
//* *******************************************************************
//* This JCL stream can be used to update the CPU password
//* for sites without a SMP environment. This process should
//* considered ONLY a temporary stopgap measure since no
//* software maintenance can be applied without the SMP software
//* environment.
//* The JCL must be customized by
//* 1. Including the appropriate JOB card
//* 2. Modifying the assembler step SYSIN so that CPUIDATE and CPUIDNUM
//*    match the password provided by Thomson Software International
//* 3. Modifying the link edit DDNAMEs N2LDLIB and SYSLMOD to point
//*    to the NOMAD link library to be updated.
//* The following warning messages may appear but will not have
//* any adverse consequences.
//* IEW2646W 4B07 ESD RMODE(24) CONFLICTS WITH USER-SPECIFIED RMODE(ANY)
//* IEW2651W 511C ESD AMODE 24 CONFLICTS WITH USER-SPECIFIED AMODE 31
//* *******************************************************************
//*
//ASM1     EXEC PGM=IEV90
//SYSLIB   DD  DSN=SYS1.MACLIB,DCB=BLKSIZE=20000,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(6000,100))
//SYSUT2   DD  DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(3000,50))
//SYSUT3   DD  DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(3000,50))
//SYSPRINT DD  SYSOUT=*
//SYSPUNCH DD  DSN=&&LOADMOD(CPUIDFIX),SPACE=(CYL,(5,5,20)),
//            DISP=(NEW,PASS),UNIT=VIO,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=1680,DSORG=PO)
//SYSLIN   DD DUMMY,
//            DCB=(RECFM=FBS,BLKSIZE=3040,LRECL=80),
//            SPACE=(3040,(40,40),,,ROUND)
//SYSIN    DD  *
CPUIDFIX    CSECT
         ENTRY CPUIDATE
CPUIDATE DS  0F
         DC  C'T'
         DC  XL2'dddd'     four character extension
         ENTRY CPUIDNUM
CPUIDNUM DS  0F
         DC  XL10'cccccccccccccccccccc' twenty character cpuidnum
         DC  XL10'FFFFFFFFFFFFFFFFFFFF' DO NOT ALTER THIS LINE
         END
//*
//LINK1 EXEC PGM=HEWL,
// PARM='RENT,REUS,LIST,MAP,NCAL,SIZE=(4096K,64K),RMODE=ANY,AMODE=31'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&&SYSUT1,DISP=(,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(3,1))
//SYSLMOD  DD DSN=NOMAD.LINKLIB,DISP=SHR
//N2LDLIB  DD DSN=NOMAD.LINKLIB,DISP=SHR
//SYSPUNCH DD  DSN=&&LOADMOD,
//            DISP=(OLD,DELETE),UNIT=VIO
//SYSLIN   DD DDNAME=SYSIN
//*                                          **************************
//*
//*                      N O M A D   M O D U L E S
//*
//********************************************************************
//SYSIN   DD    *
 INCLUDE SYSPUNCH(CPUIDFIX)
 INCLUDE N2LDLIB(NOMSYS)
 ORDER $N2VTDST
 ENTRY MAIN
 ALIAS $N2VTDST
 MODE AMODE(31),RMODE(ANY)
 NAME NOMSYS(R)
 INCLUDE SYSPUNCH(CPUIDFIX)
 INCLUDE N2LDLIB(NOMAD2)
 ALIAS N2
 ALIAS N2LPA
 ALIAS AN2
 ALIAS AN2LPA
 ALIAS ANOMAD2
 ALIAS ANOMISP
 ENTRY NOMAD2
 SETCODE AC(1)
 NAME NOMAD2(R)
 INCLUDE SYSPUNCH(CPUIDFIX)
 INCLUDE N2LDLIB(NOMADISP)
 ENTRY MVNOMISP
 NAME NOMADISP(R)
/*