home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ncr9800 / mcskj.n3 < prev    next >
Text File  |  2020-01-01  |  21KB  |  724 lines
  1.        MCSKJ     CATJOB
  2.        MCSKJ     JOB   NAME=(MCS-KERMIT)
  3.                         ****************************
  4.                         * COPYRIGHT NCR CORP.      *
  5.                         *   DAYTON, OHIO           *
  6.                         *   1990                   *
  7.                         ****************************
  8.                        USERID=PUBLIC
  9.                        ACCT=PUBLICACCTNUMBER
  10.                         *PASSWORD=PUBLIC
  11.                         *USERID=XXX,ACCT=NNNN,PASSWORD=XXX
  12.                        CPTY=7,JPTY=1,CNTLSTKLEN=808
  13.                        MAXT=INFINITE,IOCT=9999999
  14.                        VMAXMEM=1000,LOCALDSA=2500
  15.                        PROTECTDSA=1000,SIZE=124,STACKSIZE=124
  16.                        JOBCONTROL=SCL
  17.                  SPCEND
  18. %
  19. % *************************************************
  20. % *
  21. % * THIS JOB INITIALIZES MCS-KERMIT
  22. % *   FOR TRANSFERRING
  23. % *   FILES TO/FROM THE CATALOG OR SUD=D02
  24. % *
  25. % *
  26. % *
  27. % * UPDATED ON 6-1-90
  28. % * UPDATED ON 6-8-90
  29. % * UPDATED ON 6-15-90
  30. % *
  31. % *************************************************
  32. %
  33. %
  34. % *************************************************
  35. % * VARIABLE DEFINITIONS
  36. % *************************************************
  37. %
  38. %
  39.    LOCAL
  40.     MSG       : STRING,
  41.     LPN       : STRING,
  42.     ENV       : STRING,
  43.     VSN       : STRING,
  44.     DTYPE     : STRING,
  45.     VOL_INT   : INTEGER,
  46.     NODE      : STRING,
  47.     NODENAME  : NAME,
  48.     ACTION    : STRING,
  49.     FILESIZ   : STRING,
  50.     RSTRT_FLAG: BOOLEAN,
  51.     DEFAULTS  : STRING,
  52.     FONT_FORM : STRING,
  53.     REC_TYPE  : STRING,
  54.     P1        : PROCESS;
  55. %
  56. % *******************************************************
  57. % * ASSIGNING THE DEFAULT VALUES
  58. % *******************************************************
  59. %
  60.   LOCAL
  61.     LPN_DFLT       : STRING,
  62.     ENV_DFLT       : STRING,
  63.     NODE_DFLT      : STRING,
  64.     REC_TYP_DFLT   : STRING,
  65.     FONT_FORM_DFLT : STRING,
  66.     FILESIZ_DFLT   : STRING;
  67. %
  68. % *******************************************************
  69. % * WARNING:
  70. % *  DEFAULT STRING LENGTHS CANNOT BE SO LONG AS TO
  71. % *  CAUSE ANY OF THE 'MSG' STRINGS TO BE > 105 CHARS.
  72. % *******************************************************
  73. %
  74.   LPN_DFLT         := '0104';
  75.   ENV_DFLT         := 'CAT';
  76.   NODE_DFLT        := '$';
  77.   REC_TYP_DFLT     := 'VARIABLE';
  78.   FONT_FORM_DFLT   := 'SEQUENTIAL';
  79.   FILESIZ_DFLT     := '500';
  80. %
  81.    FILECREATION CAT;
  82. %
  83. % *********************************************
  84. % * SOLICITATION OF SETUP OPTIONS
  85. % *
  86. % *     -LPN?
  87. % *
  88. % *     -FILE SOURCE AND DEST?
  89. % *       -IF CAT, WHICH NODE?
  90. % *       -IF DISK, WHIC VOLUME AND TYPE?
  91. % *
  92. % *     -FILE SPECIFICATIONS FOR REF=DATAFILE?
  93. % *       -REGULAR FILE STRUCTURE OR 6437/38 LASER
  94. % *        PRINTER FONT/FORMS?
  95. % *       -FILESIZE FOR D02 AND FONT/FORMS?
  96. % *
  97. % *******************************************************
  98. %
  99. %
  100. %
  101. % ******************************************************
  102. % * ASKING USER FOR ACCEPTANCE OF DEFAULTS
  103. % *
  104. % *   USER ACCEPTS DEFAULTS(DEFAULTS IN PARENS)?
  105. % *
  106. % *     -LPN ( 0150 )
  107. % *
  108. % *     -FILE SOURCE/DEST ( CAT )
  109. % *         -NODE ( $ )
  110. % *
  111. % *
  112. % *     -FILE SPECIFICATIONS FOR REF=DATAFILE
  113. % *       -FIXED LENGTH DATAFILE RECORDS ( NO )
  114. % *       -FONT/FORMS ORGANIZATION ( NO )
  115. % *       -FILESIZE FOR D02 AND FONT/FORMS ( 500 BLOCKS )
  116. % *
  117. % *
  118. % ******************************************************
  119. %
  120. % * NOTE: ASKOP WILL ONLY DISPLAY A 105 CHARACTER STRING.
  121. % *       AND IT LOSES THE 1ST 2 CHARACTERS.
  122. %
  123. BEGIN
  124.    MSG := '  ACCEPT DEFAULTS OF LPN=' &
  125.           #LPN_DFLT &
  126.           ',SOURCE/DEST=' &
  127.           #ENV_DFLT &
  128.           ',' &
  129.           'NODE=' &
  130.           #NODE_DFLT &
  131.           ',' &
  132.           SUBSTRING(REC_TYP_DFLT,0,3) &
  133.           ' RECS,' &
  134.           SUBSTRING(FONT_FORM_DFLT,0,3) &
  135.           ' ORG,SIZE=' &
  136.           #FILESIZ_DFLT &
  137.           '/BLOCKS' &
  138.           '?[Y,N]';
  139.    ASKPROC (#MSG,/DEFAULTS/);
  140. %
  141.    IF (SUBSTRING(DEFAULTS,0,1) /= 'N')
  142.      THEN
  143. %    * SET UP DEFAULT VALUES
  144.      LPN       := LPN_DFLT;
  145.      ENV       := ENV_DFLT;
  146.      NODE      := NODE_DFLT;
  147.      VSN       := '';
  148.      REC_TYPE  := REC_TYP_DFLT;
  149.      FONT_FORM := FONT_FORM_DFLT;
  150.      FILESIZ   := FILESIZ_DFLT;
  151.      DEFAULTS  := 'YES';
  152.      NODENAME  := #NODE;
  153.      FILENODE #NODENAME;
  154.    ELSE
  155.    DEFAULTS := 'NO';
  156.    IFEND;
  157. %
  158. %
  159. %  *******************************************************
  160. %  * DEFAULTS NOT ACCEPTED
  161. %  *
  162. %  * THE 'X' RESPONSE STOPS THE QUESTIONS
  163. %  *
  164. %  *******************************************************
  165.    IF (DEFAULTS = 'NO' )
  166.      THEN
  167. $TAG1
  168. %    *****************************************************
  169. %    * ASKING FOR LPN OF SUD=A02.
  170. %    *****************************************************
  171.      MSG := '  SPECIFY LPN FOR MCS-KERMIT COMMUNICATION LINK.' &
  172.             ' DEFAULT LPN IS ' &
  173.             #LPN_DFLT &
  174.             '.' &
  175.             ' ''X'' TO STOP ASKING.[NNNN,X]';
  176.      ASKPROC (#MSG,/LPN/);
  177. %
  178.      IF (LPN = '')
  179.        THEN
  180.        LPN := LPN_DFLT;
  181.      IFEND;
  182. %
  183.      IF (LPN = 'X')
  184.        THEN
  185.        DEFAULTS := 'YES';
  186. %      * SET UP DEFAULT VALUES
  187.        LPN       := LPN_DFLT;
  188.        ENV       := ENV_DFLT;
  189.        NODE      := NODE_DFLT;
  190.        VSN       := '';
  191.        REC_TYPE  := REC_TYP_DFLT;
  192.        FONT_FORM := FONT_FORM_DFLT;
  193.        FILESIZ   := FILESIZ_DFLT;
  194.        DEFAULTS  := 'YES';
  195.        NODE      := NODE_DFLT;
  196.        NODENAME  := #NODE;
  197.        FILENODE #NODENAME;
  198.      IFEND;
  199. %
  200.    IFEND;
  201. %
  202. %  ******************************************************
  203. %  * ASSIGN A02 IN BOTH 'DEFAULT' AND 'SOLICITED' CASES.
  204. %  ******************************************************
  205.    ASSIGN UNIT A02(SUD=A02,TYPE=C1,LPN=#LPN) [P1];
  206. %
  207.    IF (P1(STATUS) /= COMPLETED)
  208.      THEN
  209.      MSG := '  LPN ' & #LPN & ' WAS INVALID OR IN USE.  DO YOU WANT ' &
  210.             'TO TRY ANOTHER LPN? [Y,N]';
  211.      ASKPROC (#MSG,/ACTION/);
  212. %
  213.      IF (SUBSTRING(ACTION,0,1) = 'N') THEN
  214.        BYE;
  215.      ELSE
  216.      GOTO TAG1;
  217.      IFEND;
  218. %
  219.    IFEND;
  220. %
  221. $TAG2
  222. %
  223.    IF (DEFAULTS = 'YES' )
  224.      THEN
  225.      GOTO TAG5;
  226.    IFEND;
  227. %
  228. %  ******************************************************
  229. %  * ASKING FOR FILE SOURCE/DESTINATION.
  230. %  ******************************************************
  231.    MSG := '  SELECT MCS-KERMIT SOURCE/DESTINATION ENVIRONMENT.' &
  232.           ' DEFAULT ENVIRONMENT IS ' &
  233.           #ENV_DFLT &
  234.           '.' &
  235.           '[CAT,DISK,X]';
  236.    ASKPROC (#MSG,/ENV/);
  237. %
  238.    IF ((SUBSTRING(ENV,0,1) /= 'C') AND (SUBSTRING(ENV,0,1) /= 'D') AND
  239.        (SUBSTRING(ENV,0,1) /= 'X') AND
  240.        (SUBSTRING(ENV,0,1) /= '')) THEN
  241.      GOTO TAG2;
  242.    IFEND;
  243. %
  244.    IF (SUBSTRING(ENV,0,1) = 'X')
  245.      THEN
  246.      DEFAULTS := 'YES';
  247. %    * SET UP DEFAULT VALUES
  248.      ENV       := ENV_DFLT;
  249.      NODE      := NODE_DFLT;
  250.      VSN       := '';
  251.      REC_TYPE  := REC_TYP_DFLT;
  252.      FONT_FORM := FONT_FORM_DFLT;
  253.      FILESIZ   := FILESIZ_DFLT;
  254.      DEFAULTS  := 'YES';
  255.      NODE      := NODE_DFLT;
  256.      NODENAME  := #NODE;
  257.      FILENODE #NODENAME;
  258.      GOTO TAG5;
  259.    IFEND;
  260. %
  261.    IF ((SUBSTRING(ENV,0,1) = 'C') OR (SUBSTRING(ENV,0,1) = '')) THEN
  262. $TAG3
  263. %  ******************************************************
  264. %  * CATALOG SELECTED;ASKING FOR NODE.
  265. %  ******************************************************
  266.      MSG := '  PLEASE ENTER SUBCATALOG NODE NAME. DEFAULT IS' &
  267.             ' THE ' &
  268.             #NODE_DFLT &
  269.             ' NODE.' &
  270.             '[NODE NAME,X]';
  271.      ASKPROC (#MSG,/NODE/);
  272. %
  273.      IF (NODE = '') THEN
  274.        NODE      := NODE_DFLT;
  275.      IFEND;
  276. %
  277.      IF (NODE = 'X')
  278.        THEN
  279.        DEFAULTS := 'YES';
  280. %      * SET UP DEFAULT VALUES
  281.        VSN       := '';
  282.        REC_TYPE  := REC_TYP_DFLT;
  283.        FONT_FORM := FONT_FORM_DFLT;
  284.        FILESIZ   := FILESIZ_DFLT;
  285.        DEFAULTS  := 'YES';
  286.        NODE      := NODE_DFLT;
  287.        NODENAME  := #NODE;
  288.        FILENODE #NODENAME;
  289.        GOTO TAG5;
  290.      ELSE
  291.      NODENAME := #NODE;
  292.      IFEND;
  293. %
  294.      FILENODE #NODENAME [P1];
  295. %
  296.      IF (P1(STATUS) /= COMPLETED) THEN
  297.        MSG := '  CANT POSITION TO ' & #NODE & '  DO YOU WANT' &
  298.               ' TO TRY ANOTHER SUBCATALOG?[Y,N]';
  299.        ASKPROC (#MSG,/ACTION/);
  300. %
  301.        IF (SUBSTRING(ACTION,0,1) = 'N') THEN
  302.          BYE;
  303.        ELSE
  304.        GOTO TAG3;
  305.        IFEND;
  306. %
  307.      IFEND;
  308. %
  309. %    ****************************************************
  310. %    * ASKING FOR FIXED/VARIABLE RECORD TYPE.
  311. %    * IN THE CATALOG CASE.
  312. %    ****************************************************
  313.      MSG := '  DO YOU WANT DATAFILES TO HAVE FIXED OR' &
  314.             ' VARIABLE LENGTH RECORDS?' &
  315.             ' DEFAULT IS ' &
  316.             #REC_TYP_DFLT &
  317.             '.' &
  318.             '[F,V,X]';
  319.      ASKPROC (#MSG,/REC_TYPE/);
  320. %
  321.      IF (SUBSTRING(REC_TYPE,0,1) = 'X')
  322.        THEN
  323.        DEFAULTS := 'YES';
  324. %      * SET UP DEFAULT VALUES
  325.        VSN       := '';
  326.        REC_TYPE  := REC_TYP_DFLT;
  327.        FONT_FORM := FONT_FORM_DFLT;
  328.        FILESIZ   := FILESIZ_DFLT;
  329.        DEFAULTS  := 'YES';
  330.        GOTO TAG5;
  331.      IFEND;
  332. %
  333.      IF (SUBSTRING(REC_TYPE,0,1) /= 'F')
  334.        THEN
  335.        REC_TYPE := 'VAR';
  336. %      **************************************************
  337. %      * ASKING ABOUT THE TRANSFER OF FONT/FORM FILES
  338. %      * IN THE CATALOG CASE.
  339. %      **************************************************
  340.        MSG := '  WILL YOU UPLOAD FONT/FORM FILES?' &
  341.              ' IF YES,ALL DATA FILES HAVE' &
  342.              ' ''REL'' ORGANIZATION;' &
  343.              'DEFAULT IS ' &
  344.              SUBSTRING(FONT_FORM_DFLT,0,3) &
  345.              '.[Y,N]';
  346.        ASKPROC (#MSG,/FONT_FORM/);
  347. %
  348.        IF (SUBSTRING(FONT_FORM,0,1) /= 'Y')
  349.          THEN
  350. %        *******************************************
  351. %        * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  352. %        *   BINARY AND TEXT 'DATA' FILES
  353. %        *
  354. %        *
  355. %        *******************************************
  356. %
  357. $TAG5
  358. %
  359. %        ************************************************
  360. %        * ASSIGNING REF=DATAFILE
  361. %        * IN THE VARIABLE LENGTH RECORDS, NON FONT/FORM
  362. %        * CASE USING CATALOG.
  363. %        *
  364. %        * THIS IS CONSIDERED TO BE THE OVERALL
  365. %        * DEFAULT CASE.
  366. %        *
  367. %        ************************************************
  368.          ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=YES,
  369.                  FILESIZE='NO LIMIT',
  370.                  RECORDSIZE=1/485,
  371.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  372.        ELSE
  373. %      *********************************************
  374. %      * ASKING ABOUT FILE SIZE
  375. %      * IN THE CATALOG,VARIABLE,FONT/FORM CASE.
  376. %      *
  377. %      *   FONT/FORM FILES
  378. %      *
  379. %      * FILESIZE MUST BE FOR THE LARGEST
  380. %      *   FILE ANTICIPATED BECAUSE RELATIVE FILES
  381. %      *   ARE NOT RMS.
  382. %      *
  383. %      ************************************************
  384. %
  385. %
  386.        MSG := '  SPECIFY FILESIZE' &
  387.               ' BIG ENOUGH FOR THE LARGEST' &
  388.               ' FONT/FORM FILE UPLOADED.' &
  389.               ' DEFAULT SIZE IS ' &
  390.               #FILESIZ_DFLT &
  391.               '/BLOCKS.[NNNN]';
  392.        ASKPROC (#MSG,/FILESIZ/);
  393. %
  394.        IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  395.          THEN
  396.          FILESIZ := FILESIZ_DFLT;
  397.        IFEND;
  398. %
  399. %      ************************************************
  400. %      * ASSIGNING REF=DATAFILE
  401. %      * IN THE FONT/FORM CASE USING CATALOG.
  402. %      ************************************************
  403.        ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=YES,
  404. %                ************************************
  405. %                *  THE FOLLOWING 5 PARAMETERS ARE
  406. %                *    FOR FONT/FORM UPLOADS
  407. %                ************************************
  408.                  ORGANIZATION=RELATIVE,
  409.                  BLOCKSIZE=1/RECORDS,
  410.                  CAMHEADER,
  411.                  RECORDSIZE=1/485,
  412.                  FILESIZE=#FILESIZ/BLOCKS,
  413.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  414.        IFEND;
  415. %
  416.      ELSE
  417. %
  418. %    ************************************************
  419. %    * ASSIGNING REF=DATAFILE
  420. %    * IN THE FIXED LENGTH RECORDS, NON FONT/FORM
  421. %    * CASE USING CATALOG.
  422. %    ************************************************
  423.      ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=YES,
  424. %                ************************************
  425. %                *  THE FOLLOWING PARAMETERS ARE
  426. %                *    FOR FIXED LENGTH RECORDS
  427. %                ************************************
  428.                  RECORDSIZE=80,
  429.                  FILESIZE='NO LIMIT',
  430.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  431.      IFEND;
  432. %
  433.      FILEN;
  434. %    ****************************************************
  435. %    * ASSIGNING THE OTHER FILE REFERENCES IN THE
  436. %    * CATALOG CASE.
  437. %    ****************************************************
  438.      ASSIGN FILE SRCFILE(REF=SRCFILE,RMS=YES,FILESIZE='NO LIMIT',
  439.                  RECORDSIZE=1/83,
  440.                  DATESCHEME=GEN,FILETYPE=SOURCE,FREEUP,CATALOG),
  441.             FILE OBJFILE(REF=OBJFILE,RMS=YES,FILESIZE='NO LIMIT',
  442.                  RECORDSIZE=1/490,
  443.                  DATESCHEME=GEN,FILETYPE=OBJECT,FREEUP,CATALOG),
  444.             FILE CSFILE(REF=CSFILE,RMS=YES,FILESIZE='NO LIMIT',
  445.                  FREEUP,DATESCHEME=GEN,
  446.                  RECORDSIZE=1/82,
  447.                  FILETYPE='CONTROL STRING',CATALOG);
  448.      FILEL CAT/NOCAT;
  449. %    ****************************************************
  450. %    * END OF THE CATALOG CASE.
  451. %    ****************************************************
  452.    ELSE
  453. %  ******************************************************
  454. %  * BEGINNING OF THE SUD=D02 CASE.
  455. %  ******************************************************
  456.    DISPLAY :'MCS-KERMIT USING NON-CATALOG ENVIRONMENT' TO JD;
  457. $TAG4
  458. %  ******************************************************
  459. %  * ASKING ABOUT SUD=D02.
  460. %  ******************************************************
  461.    MSG := '  PLEASE ENTER VOLUME NUMBER AND DEVICE TYPE.' &
  462.           '[NNNNNN/XX]';
  463.    ASKPROC (#MSG,/VSN/);
  464.    VOL_INT := INT(SUBSTRING(VSN,0,6));
  465.    DTYPE := SUBSTRING(VSN,7,2);
  466.    ASSIGN UNIT D02(SUD=D02,VOL=#VOL_INT,TYPE=#DTYPE) [P1];
  467. %
  468.    IF (P1(STATUS) /= COMPLETED) THEN
  469.      MSG := '  CANT ASSIGN VOLUME ' & SUBSTRING(VSN,0,6) &
  470.             ' WITH DEVICE TYPE ' & DTYPE & '. DO YOU WANT' &
  471.             ' TO TRY ANOTHER VOLUME?[Y,N]';
  472.      ASKPROC (#MSG,/ACTION/);
  473. %
  474.      IF (SUBSTRING(ACTION,0,1) = 'N') THEN
  475.        BYE;
  476.      ELSE
  477.      GOTO TAG4;
  478.      IFEND;
  479. %
  480.    IFEND;
  481. %
  482. %
  483. %  ****************************************************
  484. %  * ASKING FOR FIXED/VARIABLE RECORD TYPE.
  485. %  * IN THE D02 CASE.
  486. %  ****************************************************
  487. %
  488.    MSG := '  DO YOU WANT DATAFILES TO HAVE FIXED OR' &
  489.           ' VARIABLE LENGTH RECORDS?' &
  490.           ' DEFAULT IS ' &
  491.           #REC_TYP_DFLT &
  492.           '.' &
  493.           '[F,V,X]';
  494.    ASKPROC (#MSG,/REC_TYPE/);
  495. %
  496. %
  497.    IF (SUBSTRING(REC_TYPE,0,1) = 'X')
  498.      THEN
  499.      DEFAULTS := 'YES';
  500. %    * SET UP DEFAULT VALUES
  501.      REC_TYPE  := REC_TYP_DFLT;
  502.      FONT_FORM := FONT_FORM_DFLT;
  503.      FILESIZ   := FILESIZ_DFLT;
  504.      GOTO TAG6;
  505.    IFEND;
  506. %
  507.    IF (SUBSTRING(REC_TYPE,0,1) /= 'F')
  508.      THEN
  509.      REC_TYPE := 'VAR';
  510. %    **************************************************
  511. %    * ASKING ABOUT THE TRANSFER OF FONT/FORM FILES
  512. %    * IN THE D02 CASE.
  513. %    **************************************************
  514.      MSG := '  WILL YOU UPLOAD FONT/FORM FILES?' &
  515.             ' IF YES,ALL DATA FILES HAVE' &
  516.             ' ''REL'' ORGANIZATION;' &
  517.             'DEFAULT IS ' &
  518.             SUBSTRING(FONT_FORM_DFLT,0,3) &
  519.             '.' &
  520.             '[Y,N,X]';
  521.      ASKPROC (#MSG,/FONT_FORM/);
  522. %
  523.      %
  524.      IF (SUBSTRING(FONT_FORM,0,1) = 'X')
  525.        THEN
  526.        DEFAULTS := 'YES';
  527. %      * SET UP DEFAULT VALUES
  528.        FONT_FORM := FONT_FORM_DFLT;
  529.        FILESIZ   := FILESIZ_DFLT;
  530.        GOTO TAG6;
  531.      IFEND;
  532. %
  533.      IF (SUBSTRING(FONT_FORM,0,1) /= 'Y')
  534.        THEN
  535. %      *******************************************
  536. %      * ASKING ABOUT FILE SIZE
  537. %      * IN THE D02, VARIABLE, NON FONT/FORM CASE.
  538. %      *
  539. %      * THIS IS CONSIDERED TO BE THE 'NORMAL' AND
  540. %      * DEFAULT CASE
  541. %      * WHEN USING D02.
  542. %      *
  543. %      *
  544. %      *
  545. %      *******************************************
  546. %
  547.        MSG := '  SPECIFY FILESIZE' &
  548.               ' BIG ENOUGH FOR THE LARGEST' &
  549.               ' DATA FILE UPLOADED.' &
  550.               ' DEFAULT SIZE IS ' &
  551.               #FILESIZ_DFLT &
  552.               '/BLOCKS.' &
  553.               '[NNNN]';
  554.        ASKPROC (#MSG,/FILESIZ/);
  555. %
  556.        IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  557.          THEN
  558.          FILESIZ := FILESIZ_DFLT;
  559.        IFEND;
  560. $TAG6
  561. %
  562. %
  563. %      ************************************************
  564. %      * ASSIGNING REF=DATAFILE
  565. %      * IN THE VARIABLE LENGTH RECORD, NON FONT/FORM
  566. %      * CASE USING D02.
  567. %      *
  568. %      * THIS IS CONSIDERED TO BE THE 'NORMAL' AND
  569. %      * DEFAULT CASE
  570. %      * WHEN USING D02.
  571. %      *
  572. %      ************************************************
  573.        ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  574.                  RECORDSIZE=1/485,
  575.                  DATESCHEME=GEN,
  576.                  FILESIZE=#FILESIZ/BLOCKS,
  577.                  NOCAT,
  578.                  FILETYPE=DATA);
  579.      ELSE
  580. %    *********************************************
  581. %    * ASKING ABOUT FILE SIZE
  582. %    * IN THE D02, VARIABLE, FONT/FORM CASE.
  583. %    *
  584. %    *   FONT/FORM FILES
  585. %    *
  586. %    * FILESIZE MUST BE FOR THE LARGEST
  587. %    *   FONT/FORM FILE ANTICIPATED.
  588. %    *
  589. %    ************************************************
  590. %
  591. %
  592.      MSG := '  SPECIFY FILESIZE' &
  593.             ' BIG ENOUGH FOR THE LARGEST' &
  594.             ' FONT/FORM FILE UPLOADED.' &
  595.             ' DEFAULT SIZE IS ' &
  596.             #FILESIZ_DFLT &
  597.             '/BLOCKS.' &
  598.             '[NNNN]';
  599.      ASKPROC (#MSG,/FILESIZ/);
  600. %
  601.      IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  602.        THEN
  603.        FILESIZ := FILESIZ_DFLT;
  604.      IFEND;
  605. %
  606. %
  607. %    ************************************************
  608. %    * ASSIGNING REF=DATAFILE
  609. %    * IN THE FONT/FORM CASE USING D02.
  610. %    ************************************************
  611.      ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  612. %                ************************************
  613. %                *  THE FOLLOWING 5 PARAMETERS ARE
  614. %                *    FOR FONT/FORM UPLOADS
  615. %                ************************************
  616.                  ORGANIZATION=RELATIVE,
  617.                  BLOCKSIZE=1/RECORDS,
  618.                  CAMHEADER,
  619.                  RECORDSIZE=1/485,
  620.                  FILESIZE=#FILESIZ/BLOCKS,
  621.                  NOCAT,
  622.                  FILETYPE=DATA);
  623.      IFEND;
  624. %
  625.    ELSE
  626. %
  627. %  *********************************************
  628. %  * ASKING ABOUT FILE SIZE
  629. %  * IN THE D02, FIXED LENGTH RECORDS, NON
  630. %  * FONT/FORM CASE.
  631. %  *
  632. %  * FIXED LENGTH RECORDS.
  633. %  *
  634. %  * CUSTOMIZED FOR FIX ACQUISITION USE.
  635. %  *
  636. %  * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  637. %  *   DATA FILES
  638. %  *
  639. %  * FILESIZE MUST BE FOR THE LARGEST
  640. %  *   FILE ANTICIPATED.
  641. %  *
  642. %  ************************************************
  643. %
  644. %
  645.    MSG := '  SPECIFY FILESIZE' &
  646.           ' BIG ENOUGH FOR THE LARGEST' &
  647.           ' DATA FILE UPLOADED.' &
  648.           ' DEFAULT SIZE IS ' &
  649.           #FILESIZ_DFLT &
  650.           '/BLOCKS.' &
  651.           '[NNNN]';
  652.    ASKPROC (#MSG,/FILESIZ/);
  653. %
  654.    IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  655.      THEN
  656.      FILESIZ := FILESIZ_DFLT;
  657.    IFEND;
  658. %
  659. %
  660. %  ************************************************
  661. %  * ASSIGNING REF=DATAFILE
  662. %  * IN THE FIXED LENGTH RECORD, NON FONT/FORM CASE
  663. %  * USING D02.
  664. %  *
  665. %  * THIS IS CONSIDERED TO BE THE
  666. %  * 'FIXED ACQUISITION' CASE.
  667. %  ************************************************
  668.    ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  669.                  DATESCHEME=GEN,NOCAT,
  670. %                ************************************
  671. %                *  THE FOLLOWING PARAMETERS ARE
  672. %                *    FOR FIXED LENGTH RECORDS
  673. %                ************************************
  674.                  RECORDSIZE=80,
  675. %                ************************************
  676. %                * THE FOLLOWING PARAMS ARE FOR
  677. %                * FIX ACQUISITION
  678. %                ************************************
  679. %
  680.                  NOCAMHEADER,
  681.                  BLOCKSIZE=6/RECORDS,
  682.                  FILESIZE=#FILESIZ/BLOCKS,
  683.                  NOCAT,
  684.                  FILETYPE=DATA);
  685.    IFEND;
  686. %
  687. %
  688. %  ****************************************************
  689. %  * ASSIGNING THE OTHER FILE REFERENCES IN THE
  690. %  * D02 CASE.
  691. %  ****************************************************
  692.    ASSIGN FILE SRCFILE(REF=SRCFILE,RMS=NO,SUD=D02,FREEUP,
  693.                RECORDSIZE=1/82,
  694.                FILESIZE=300/BLOCKS,DATESCHEME=GEN,NOCAT,
  695.                FILETYPE=SOURCE),
  696.           FILE OBJFILE(REF=OBJFILE,RMS=NO,SUD=D02,FREEUP,
  697.                FILESIZE=1000/BLOCKS,RECORDSIZE=1/490,
  698.                DATESCHEME=GEN,FILETYPE=OBJECT,NOCAT),
  699.           FILE CSFILE(REF=CSFILE,RMS=NO,SUD=D02,FREEUP,
  700.                FILESIZE=100/BLOCKS,RECORDSIZE=1/82,NOCAT,
  701.                DATESCHEME=GEN,FILETYPE='CONTROL STRING');
  702.    FILEL NOCAT/CAT;
  703. %  ******************************************************
  704. %  * END OF THE SUD=D02 CASE.
  705. %  ******************************************************
  706.    IFEND;
  707. %
  708. END;
  709. ASSIGN PRINTER P09(SUD=P09);
  710. MCLBEGIN;
  711.                  MEMORYREALTIME=YES
  712.                        SWAP OUT TIME=NEVER
  713.                  SCLBGN
  714. % MUST SPECIFY LOCATION OF LOAD MODULE
  715. EXECUTE MCSKERM;
  716.    QUEUE P09;
  717.    FREE P09;
  718. %
  719.    IF (VSN /= '') THEN
  720.      FREE D02;
  721.    IFEND;
  722. %
  723.                  JOB   END
  724.