home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
honeywellcp6a.tar.gz
/
honeywellcp6a.tar
/
hc6ker.jcl
< prev
next >
Wrap
Text File
|
1988-08-16
|
3KB
|
89 lines
!DEFAULT OSVERS='D00',YOURWSN='LOCAL',DIRACCT='KERMIT',DEST='*LS'
!JOB NAME=KERMIT,WSN=YOURWSN
!RES MEM=256,TIME=10
!ORES MEM=256
!"
!" If you have not already done so, read the HC6KERMIT_BLD file and
!" XEQ HC6KERMIT_INS prior to XEQ/BATCHing this file.
!"
!" By default, the output created by this job is EDGEMARKed.
!" However, if you do NOT want it EDGEMARKed, do a DEST=LP substitution on
!" your BATCH or XEQ command such as:
!" !BATCH HC6KERMIT_BAT DEST=LP
!"
! DIR .DIRACCT
! LET LISTING = 'DEST'
! LET OS_VERSION='OSVERS'
! LET IM_BATCH = 0
! IF $MODE='BATCH' THEN LET IM_BATCH = 1
! LET TO_OK = $FID_EXIST('TO.:SYS')
!"
! DEL *HC6KERMIT_PAROU
!"
! IF TO_OK .AND. IM_BATCH THEN TO A=%$ACCT KERMIT just started.
!"
! IF OS_VERSION='B03' THEN GOTO ITS_FOR_B03
!"
! PL6 HC6KERMIT_PL6,HC6KERMIT_UPD_PL6 OVER *HC6KERMIT_PL6OU,DEST (LS,OU,SC,OPTUI)
! LET PL6STEPCC = STEPCC
! PARTRGE HC6KERMIT_PAR,HC6KERMIT_UPD_PAR INTO *HC6KERMIT_PAROU,DEST (LS,OU,OPTUI)
! IF PL6STEPCC + STEPCC > 0 THEN GOTO SHOULD_WE_EDGEMARK
! LINK ;
*HC6KERMIT_PL6OU,;
*HC6KERMIT_PAROU ;
OVER ;
KERMIT(IP=100,DP=10,DCB2=F$DEFAULTS)
! GOTO SHOULD_WE_EDGEMARK
!"
!ITS_FOR_B03:
! PL6 HC6KERMIT_PL6,HC6KERMIT_UPD_PL6 OVER *HC6KERMIT_PL6OU,DEST (LS,OU,SC,SR(.X,.),OPTUI)
! LET PL6STEPCC = STEPCC
! PARTRGE.X HC6KERMIT_PAR,HC6KERMIT_UPD_PAR INTO *HC6KERMIT_PAROU,DEST (LS,OPTUI)
! IF PL6STEPCC + STEPCC > 0 THEN GOTO SHOULD_WE_EDGEMARK
! LINK ;
*HC6KERMIT_PL6OU,;
*HC6KERMIT_PAROU,;
XUW$WILDCARD.X ;
OVER ;
KERMIT(IP=100,DP=10,DCB2=F$DEFAULTS)
!"
!SHOULD_WE_EDGEMARK:
! IF LISTING = 'LP' THEN GOTO HERMANIZE
! LET MONNUM=$SUBSTR($DATE,2,2)
! LET MONTHS='JanFebMarAprMayJunJulAugSepOctNovDec'
! LET RIGHT=$SUBSTR(MONTHS,(MONNUM*3)-3,3) || ' ' || $SUBSTR($DATE,4,2)
! IF $SUBSTR(RIGHT,4,1) ~= '0' THEN GOTO DATE_OK
! LET RIGHT= $SUBSTR(RIGHT,0,4) || $SUBSTR(RIGHT,5,1)
!DATE_OK:
! EDGEMARK.X DEST ON LP@YOURWSN (FORM='PERF',L='KERMIT',R='%RIGHT')
!"
!HERMANIZE:
! HERMAN.X HC6KERMIT_HER OVER HELP:KERMIT:,NO
!"
!ASK_HERMAN_QUESTION:
! IF $MODE .NE. 'ONLINE' THEN GOTO ALL_DONE
! LET ANS=$INPUT('Were there warnings in the above HERMAN messages? ')
! IF $LEN(ANS) = 0 THEN GOTO WAKE_THEM_UP
! LET ANS= $SUBSTR(ANS,0,1)
! IF ANS = 'Y' .OR. ANS = 'y' THEN GOTO FIX_HERMAN_SOURCE
! IF ANS = 'N' .OR. ANS = 'n' THEN GOTO WAKE_THEM_UP
! GOTO ASK_HERMAN_QUESTION
!"
!FIX_HERMAN_SOURCE:
! EDIT
COPY HC6KERMIT_HER,1,1
SE0-9999;/*K* '/?/'/?/ /S/*K* /?1//?2/ /
END
!"
! HERMAN.X HC6KERMIT_HER OVER HELP:KERMIT:,NO
!"
!WAKE_THEM_UP:
! IF IM_BATCH THEN GOTO ALL_DONE
! C ME TO ME(ORG=T)
!"
!ALL_DONE:
! IF IM_BATCH THEN TO A=%$ACCT KERMIT just finished.
!"
!EOJ: