home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / honeywellcp6a / hc6ker.jcl < prev    next >
Text File  |  2020-01-01  |  3KB  |  89 lines
  1. !DEFAULT OSVERS='D00',YOURWSN='LOCAL',DIRACCT='KERMIT',DEST='*LS'
  2. !JOB NAME=KERMIT,WSN=YOURWSN
  3. !RES MEM=256,TIME=10
  4. !ORES MEM=256
  5. !"
  6. !"  If you have not already done so, read the HC6KERMIT_BLD file and
  7. !"  XEQ HC6KERMIT_INS prior to XEQ/BATCHing this file.
  8. !"
  9. !"  By default, the output created by this job is EDGEMARKed.
  10. !"  However, if you do NOT want it EDGEMARKed, do a DEST=LP substitution on
  11. !"  your BATCH or XEQ command such as:
  12. !"    !BATCH HC6KERMIT_BAT DEST=LP
  13. !"
  14. !   DIR .DIRACCT
  15. !   LET LISTING = 'DEST'
  16. !   LET OS_VERSION='OSVERS'
  17. !   LET IM_BATCH = 0
  18. !   IF $MODE='BATCH' THEN LET IM_BATCH = 1
  19. !   LET TO_OK = $FID_EXIST('TO.:SYS')
  20. !"
  21. !   DEL *HC6KERMIT_PAROU
  22. !"
  23. !   IF TO_OK .AND. IM_BATCH THEN TO A=%$ACCT KERMIT just started.
  24. !"
  25. !   IF OS_VERSION='B03' THEN GOTO ITS_FOR_B03
  26. !"
  27. !   PL6 HC6KERMIT_PL6,HC6KERMIT_UPD_PL6 OVER *HC6KERMIT_PL6OU,DEST (LS,OU,SC,OPTUI)
  28. !   LET PL6STEPCC = STEPCC
  29. !   PARTRGE HC6KERMIT_PAR,HC6KERMIT_UPD_PAR INTO *HC6KERMIT_PAROU,DEST (LS,OU,OPTUI)
  30. !   IF PL6STEPCC + STEPCC > 0 THEN GOTO SHOULD_WE_EDGEMARK
  31. !   LINK ;
  32.       *HC6KERMIT_PL6OU,;
  33.       *HC6KERMIT_PAROU ;
  34.     OVER ;
  35.       KERMIT(IP=100,DP=10,DCB2=F$DEFAULTS)
  36. !   GOTO SHOULD_WE_EDGEMARK
  37. !"
  38. !ITS_FOR_B03:
  39. !   PL6 HC6KERMIT_PL6,HC6KERMIT_UPD_PL6 OVER *HC6KERMIT_PL6OU,DEST (LS,OU,SC,SR(.X,.),OPTUI)
  40. !   LET PL6STEPCC = STEPCC
  41. !   PARTRGE.X HC6KERMIT_PAR,HC6KERMIT_UPD_PAR INTO *HC6KERMIT_PAROU,DEST (LS,OPTUI)
  42. !   IF PL6STEPCC + STEPCC > 0 THEN GOTO SHOULD_WE_EDGEMARK
  43. !   LINK ;
  44.       *HC6KERMIT_PL6OU,;
  45.       *HC6KERMIT_PAROU,;
  46.       XUW$WILDCARD.X ;
  47.     OVER ;
  48.       KERMIT(IP=100,DP=10,DCB2=F$DEFAULTS)
  49. !"
  50. !SHOULD_WE_EDGEMARK:
  51. !   IF LISTING = 'LP' THEN GOTO HERMANIZE
  52. !   LET MONNUM=$SUBSTR($DATE,2,2)
  53. !   LET MONTHS='JanFebMarAprMayJunJulAugSepOctNovDec'
  54. !   LET RIGHT=$SUBSTR(MONTHS,(MONNUM*3)-3,3) || ' ' || $SUBSTR($DATE,4,2)
  55. !   IF $SUBSTR(RIGHT,4,1) ~= '0' THEN GOTO DATE_OK
  56. !   LET RIGHT= $SUBSTR(RIGHT,0,4) || $SUBSTR(RIGHT,5,1)
  57. !DATE_OK:
  58. !   EDGEMARK.X DEST ON LP@YOURWSN (FORM='PERF',L='KERMIT',R='%RIGHT')
  59. !"
  60. !HERMANIZE:
  61. !   HERMAN.X HC6KERMIT_HER OVER HELP:KERMIT:,NO
  62. !"
  63. !ASK_HERMAN_QUESTION:
  64. !   IF $MODE .NE. 'ONLINE' THEN GOTO ALL_DONE
  65. !   LET ANS=$INPUT('Were there warnings in the above HERMAN messages? ')
  66. !   IF $LEN(ANS) = 0 THEN GOTO WAKE_THEM_UP
  67. !   LET ANS= $SUBSTR(ANS,0,1)
  68. !   IF ANS = 'Y'  .OR.  ANS = 'y' THEN GOTO FIX_HERMAN_SOURCE
  69. !   IF ANS = 'N'  .OR.  ANS = 'n' THEN GOTO WAKE_THEM_UP
  70. !   GOTO ASK_HERMAN_QUESTION
  71. !"
  72. !FIX_HERMAN_SOURCE:
  73. !   EDIT
  74.     COPY HC6KERMIT_HER,1,1
  75.     SE0-9999;/*K* '/?/'/?/ /S/*K* /?1//?2/ /
  76.     END
  77. !"
  78. !   HERMAN.X HC6KERMIT_HER OVER HELP:KERMIT:,NO
  79. !"
  80. !WAKE_THEM_UP:
  81. !   IF IM_BATCH THEN GOTO ALL_DONE
  82. !   C ME TO ME(ORG=T)
  83. 
  84. !"
  85. !ALL_DONE:
  86. !   IF IM_BATCH THEN TO A=%$ACCT KERMIT just finished.
  87. !"
  88. !EOJ:
  89.