home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ncr9800 / ivskpm.pro < prev    next >
Text File  |  2020-01-01  |  18KB  |  633 lines
  1. PROCEDURE IVSKPM(COMMAND : STRING := '  ');
  2. %
  3. % ************************
  4. % *  COPYRIGHT NCR CORP. *
  5. % *    DAYTON, OHIO      *
  6. % *    1990              *
  7. % ************************
  8. %
  9. % *************************************************
  10. % *
  11. % * THIS SCL PROCEDURE FILE INITIALIZES IVS-KERMIT
  12. % *   FOR TRANSFERRING
  13. % *   FILES TO THE CATALOG OR SUD=D02
  14. % *
  15. % * CREATED BY THE V-KERMIT PROJECT TEAM ON 8-18-89
  16. % *
  17. % *
  18. % *************************************************
  19. %
  20. DISPLAY : '  BEGINNING IVSKPM FOR IVS-KERMIT FILE TRANSFERS.';
  21. DISPLAY : '    FOR GENERIC FILE USE.';
  22. DISPLAY : '    UPDATED ON 6-20-90.';
  23. DISPLAY : ' ';
  24. DISPLAY : '  IVS-KERMIT 2.01 NOW HANDLES:';
  25. DISPLAY : '    1000 BYTE PACKETS.';
  26. DISPLAY : ' ';
  27. DISPLAY : '  MOVE kermrc TO YOUR';
  28. DISPLAY : '    SOURCE/DESTINATION CATALOG NODE';
  29. DISPLAY : '    AND SUD=D02';
  30. DISPLAY : '    BEFORE CONTINUING.';
  31. DISPLAY : ' ';
  32. DISPLAY : '  REFER TO THE V-KERMIT FS FOR MS-DOS FILE NAME EXTENSIONS';
  33. DISPLAY : '    USED FOR VRX FILES.';
  34. DISPLAY : ' ';
  35. DISPLAY : '    EXAMPLES ARE: FN.N3(JOB),FN.PRO(SCL PROC),FN.C(C),';
  36. DISPLAY : '      FN.CO(COBOL),FN.NCR(NCRL),FN.NC(NEAT/C),';
  37. DISPLAY : '      FN.BIN(BINARY DATA FILE).';
  38. DISPLAY : '    OBJECT FILES(USE FN.OBJ).';
  39. DISPLAY : ' ';
  40. DISPLAY : '  WARNINGS:';
  41. DISPLAY : '    IF YOUR IVS SESSION USES A DSP COMM PORT,';
  42. DISPLAY : '    MAX PACKET SIZE IS 222.';
  43. DISPLAY : ' ';
  44. %
  45. % *************************************************
  46. % * VARIABLE DEFINITIONS
  47. % *************************************************
  48. %
  49. LOCAL
  50.   MSG       : STRING,
  51.   ENV       : STRING,
  52.   VSN       : STRING,
  53.   DTYPE     : STRING,
  54.   VOL_INT   : INTEGER,
  55.   NODE      : STRING,
  56.   NODENAME  : NAME,
  57.   ACTION    : STRING,
  58.   P1        : PROCESS,
  59.   VMEM_IVSK : INTEGER,
  60.   LDSA_IVSK : INTEGER,
  61.   PDSA_IVSK : INTEGER,
  62.   FILESIZ   : STRING,
  63.   RSTRT_FLAG: BOOLEAN,
  64.   DEFAULTS  : STRING,
  65.   ORG_CHOICE : STRING,
  66.   REC_TYPE  : STRING;
  67. %
  68. % *************************************************
  69. %
  70. RSTRT_FLAG := FALSE;
  71. FILESIZ := '500';
  72. % FILEL CAT/NOCAT;
  73. % FILEC CAT;
  74. %
  75. DISPLAY : '  PLEASE WAIT.';
  76. BEGIN
  77. %
  78. IF (MYJOB(VMAXMEM) < 800);
  79. THEN
  80.  MYJOB(VMAXMEM) := 800;
  81.  DISPLAY : '  TOO LITTLE VMAXMEM,';
  82.  DISPLAY : '    VMAXMEM HAS BEEN SET TO 800.';
  83.  RSTRT_FLAG := TRUE;
  84.  VMEM_IVSK := 800;
  85. ELSE
  86. VMEM_IVSK := MYJOB(VMAXMEM);
  87. IFEND;
  88. %
  89. IF (MYJOB(LOCALDSA) < 1000);
  90. THEN
  91.  MYJOB(LOCALDSA) := 1000;
  92.  DISPLAY : '  TOO LITTLE LOCALDSA,';
  93.  DISPLAY : '    LOCALDSA HAS BEEN SET TO 1000.';
  94.  RSTRT_FLAG := TRUE;
  95.  LDSA_IVSK := 1000;
  96. ELSE
  97. LDSA_IVSK := MYJOB(LOCALDSA);
  98. IFEND;
  99. %
  100. IF (MYJOB(PROTECTDSA) < 800);
  101. THEN
  102.  MYJOB(PROTECTDSA) := 800;
  103.  DISPLAY : '  TOO LITTLE PROTECTDSA,';
  104.  DISPLAY : '    PROTECTDSA HAS BEEN SET TO 800.';
  105.  RSTRT_FLAG := TRUE;
  106.  PDSA_IVSK := 800;
  107. ELSE
  108. PDSA_IVSK := MYJOB(PROTECTDSA);
  109. IFEND;
  110. %
  111. IF (RSTRT_FLAG = TRUE);
  112. THEN
  113.  RSTRT_FLAG := FALSE;
  114.  DISPLAY : '  RE-EXECUTE IVSKP.';
  115. REC(V=#VMEM_IVSK,LOCALDSA=#LDSA_IVSK,PROTECTDSA=#PDSA_IVSK);
  116. RETURN : '  END OF IVSKP.';
  117. IFEND;
  118. %
  119. END;
  120. %
  121. % *********************************************
  122. % * SOLICITATION OF SETUP OPTIONS FOR MICKEY
  123. % *   USER ACCEPTS DEFAULTS(DEFAULTS IN PARENS)?
  124. % *     -FILE SOURCE/DEST(CAT)
  125. % *       -NODE(USER CURRENT)
  126. % *       -VOLUME/TYPE(CURRENT D02)
  127. % *     -FILE SPECIFICATIONS FOR REF=DATAFILE
  128. % *       -PRINTER FONT/FORM UPLOADS(NO)
  129. % *       -FILESIZE FOR D02 AND FONT/FORMS(500 BLOCKS)
  130. % *       -FIXED LENGTH DATAFILE RECORDS(NO)
  131. % *
  132. % *******************************************************
  133. %
  134. %
  135. DISPLAY : '  PLEASE WAIT.';
  136. BEGIN
  137. %
  138. %  ******************************************************
  139. %  * ASKING USER FOR ACCEPTANCE OF DEFAULTS
  140. %  *
  141. %  ******************************************************
  142. %
  143.    DISPLAY : ' ';
  144.    DISPLAY : ' ';
  145.    DISPLAY : '  PLEASE SELECT THE IVS-KERMIT ENVIRONMENT.';
  146.    DISPLAY : ' ';
  147.    DISPLAY : '    THE IVS-KERMIT ENVIRONMENT DEFAULTS ARE:';
  148.    DISPLAY : ' ';
  149.    DISPLAY : '      DATA FILES WITH:';
  150.    DISPLAY : '      - SEQUENTIAL ORGANIZATION.';
  151.    DISPLAY : '        (THERE IS A CHOICE FOR RELATIVE(FONT/FORM) ';
  152.    DISPLAY : '         FILE STRUCTURE.)';
  153.    DISPLAY : '      - FILESIZE OF 500/BLOCKS  ';
  154.    DISPLAY : '      - VARIABLE LENGTH RECORDS ';
  155.    DISPLAY : '  ';
  156.    DISPLAY : '      FILE SOURCE/DESTINATION OF:';
  157.    DISPLAY : '      - USER CURRENT NODE IN CATALOG.';
  158.    DISPLAY : ' ';
  159.    DISPLAY : '    DO YOU WANT TO ACCEPT THESE DEFAULTS? [Y,N]';
  160.    DISPLAY : '      DEFAULT IS YES.';
  161.    ACCEPT DEFAULTS;
  162. %
  163.    IF (SUBSTRING(DEFAULTS,0,1) /= 'N')
  164.      THEN
  165.      DEFAULTS := 'YES';
  166.      ENV := 'CAT';
  167.      REC_TYPE := 'VAR';
  168.      ORG_CHOICE := 'NO';
  169.      FILESIZ := '500';
  170.      GOTO TAG5;
  171.    IFEND;
  172. %
  173. %
  174. %
  175. %  *******************************************************
  176. %  * DEFAULTS NOT ACCEPTED
  177. %  *******************************************************
  178.    DISPLAY : '  WILL YOU UPLOAD PRINTER FONT/FORM FILES? [Y,N]';
  179.    DISPLAY : '    IF YES, ALL DATA FILES WILL HAVE';
  180.    DISPLAY : '      THE RELATIVE ORGANIZATION.';
  181.    DISPLAY : '    DEFAULT IS NO.';
  182.    ACCEPT ORG_CHOICE;
  183. %
  184.    IF (SUBSTRING(ORG_CHOICE,0,1) = 'Y')
  185.      THEN
  186.      ORG_CHOICE := 'YES';
  187.      REC_TYPE := 'VAR';
  188.    ELSE
  189.    ORG_CHOICE := 'NO';
  190. %
  191. %  ****************************************************
  192. %  * ASKING FOR FIXED/VARIABLE RECORD TYPE.
  193. %  ****************************************************
  194.    DISPLAY : '  DO YOU WANT DATAFILES TO HAVE FIXED OR';
  195.    DISPLAY : '    VARIABLE LENGTH RECORDS? [F,V]';
  196.    DISPLAY : '    DEFAULT IS VARIABLE.';
  197.    ACCEPT REC_TYPE;
  198. %
  199.    IF (SUBSTRING(REC_TYPE,0,1) /= 'F')
  200.      THEN
  201.      REC_TYPE := 'VAR';
  202.    ELSE
  203.    REC_TYPE := 'FIX';
  204.    IFEND;
  205. %
  206.    IFEND;
  207. %
  208. %  ******************************************************
  209. %  * ASKING FOR FILE SOURCE/DESTINATION.
  210. %  ******************************************************
  211. %
  212. $TAG2
  213.    DISPLAY : '  SELECT IVS-KERMIT SOURCE/DESTINATION ENVIRONMENT. ' ;
  214.    MSG := '    DEFAULT ENVIRONMENT IS CATALOG. [CAT,DISK]';
  215.    DISPLAY : MSG;
  216.    ACCEPT ENV;
  217. %
  218.    IF ((SUBSTRING(ENV,0,1) /= 'C') AND (SUBSTRING(ENV,0,1) /= 'D') AND
  219.        (SUBSTRING(ENV,0,1) /= '')) THEN
  220.      GOTO TAG2;
  221.    IFEND;
  222. %
  223.    IF ((SUBSTRING(ENV,0,1) = 'C') OR (SUBSTRING(ENV,0,1) = '')) THEN
  224. %  ******************************************************
  225. %  * CATALOG SELECTED;ASKING FOR NODE.
  226. %  ******************************************************
  227. $TAG3
  228.      DISPLAY : '  PLEASE ENTER SUBCATALOG NODE NAME.  ' ;
  229.      DISPLAY : '  USE SINGLE QUOTES. EX: ''$.NODE.NODE''.';
  230.      MSG := '    DEFAULT IS THE USER CURRENT NODE.';
  231.      DISPLAY : MSG;
  232.      ACCEPT NODE;
  233. %
  234.      IF (NODE = '') THEN
  235.        GOTO TAG5;
  236.      ELSE
  237.        NODENAME := #NODE;
  238.        FILENODE #NODENAME [P1];
  239.      IFEND;
  240. %
  241.      IF (P1(STATUS) /= COMPLETED) THEN
  242.        DISPLAY : '  CANT POSITION TO ' & #NODE & '.';
  243.        MSG := '    DO YOU WANT TO TRY ANOTHER SUBCATALOG? [Y,N].';
  244.        DISPLAY : MSG;
  245.        ACCEPT ACTION;
  246. %
  247.        IF (SUBSTRING(ACTION,0,1) = 'N') THEN
  248.          RETURN : '  END OF IVSKPM';
  249.        ELSE
  250.          GOTO TAG3;
  251.        IFEND;
  252. %
  253.      IFEND;
  254. %
  255. $TAG5
  256.      DISPLAY : ' ';
  257.      DISPLAY :'  IVS-KERMIT USING CATALOG ENVIRONMENT.' ;
  258. %    * FILEC OF CAT IS TO KNOW WHERE STDERR WILL BE.
  259.      FILEC CAT;
  260.      FILEN;
  261. %
  262.      IF (SUBSTRING(ORG_CHOICE,0,1) = 'Y')
  263.        THEN
  264. %
  265. %      *********************************************
  266. %      * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  267. %      *   FONT/FORM FILES
  268. %      *
  269. %      * FILESIZE MUST BE FOR THE LARGEST
  270. %      *   FILE ANTICIPATED BECAUSE RELATIVE FILES ARE NOT RMS.
  271. %      *
  272. %      ************************************************
  273. %
  274. %
  275.        IF (DEFAULTS /= 'YES')
  276.          THEN
  277. %        *********************************************
  278. %        * ASKING ABOUT FILE SIZE
  279. %        * IN THE CATALOG,VARIABLE,FONT/FORM CASE.
  280. %        *
  281. %        *   FONT/FORM FILES
  282. %        *
  283. %        * FILESIZE MUST BE FOR THE LARGEST
  284. %        *   FILE ANTICIPATED BECAUSE RELATIVE FILES
  285. %        *   ARE NOT RMS.
  286. %        *
  287. %        ************************************************
  288. %
  289. %
  290.          DISPLAY : ' ';
  291.          DISPLAY : '  SPECIFY FILESIZE VALUE FOR DATAFILE REFERENCE';
  292.          DISPLAY : '    THAT IS BIG ENOUGH TO HOLD THE LARGEST ';
  293.          DISPLAY : '    FONT/FORM FILE TO BE UPLOADED.';
  294.          DISPLAY : '    DEFAULT FILESIZE IS 500/BLOCKS.';
  295.          ACCEPT FILESIZ;
  296. %
  297.          IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  298.            THEN
  299.            FILESIZ := '500';
  300.          IFEND;
  301. %
  302.        IFEND;
  303. %
  304. %      ************************************************
  305. %      * ASSIGNING REF=DATAFILE
  306. %      * IN THE FONT/FORM CASE USING CATALOG.
  307. %      ************************************************
  308.        ASSIGN FILE DATAFILE(REF=DATAFILE,
  309. %                ************************************
  310. %                *  THE FOLLOWING 5 PARAMETERS ARE
  311. %                *    FOR FONT/FORM UPLOADS
  312. %                ************************************
  313.                  ORGANIZATION=RELATIVE,
  314.                  BLOCKSIZE=1/RECORDS,
  315.                  CAMHEADER,
  316.                  RECORDSIZE=1/485,
  317.                  FILESIZE=#FILESIZ/BLOCKS,
  318.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  319.      ELSE
  320. %
  321.      IF (SUBSTRING(REC_TYPE,0,1) = 'F')
  322.        THEN
  323. %
  324. %      ************************************************
  325. %      * ASSIGNING REF=DATAFILE
  326. %      * IN THE FIXED LENGTH RECORDS, NON FONT/FORM
  327. %      * CASE USING CATALOG.
  328. %      ************************************************
  329.        ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=YES,
  330. %                ************************************
  331. %                *  THE FOLLOWING PARAMETERS ARE
  332. %                *    FOR FIXED LENGTH RECORDS
  333. %                ************************************
  334.                  RECORDSIZE=80,
  335.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  336.      ELSE
  337. %
  338. %    *******************************************
  339. %    * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  340. %    *   BINARY AND TEXT 'DATA' FILES
  341. %    *
  342. %    *
  343. %    *******************************************
  344. %
  345. %
  346. %    ************************************************
  347. %    * ASSIGNING REF=DATAFILE
  348. %    * IN THE VARIABLE LENGTH RECORDS, NON FONT/FORM
  349. %    * CASE USING CATALOG.
  350. %    *
  351. %    * THIS IS CONSIDERED TO BE THE OVERALL
  352. %    * DEFAULT CASE.
  353. %    *
  354. %    ************************************************
  355.      ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=YES,
  356.                  RECORDSIZE=1/485,
  357.                  DATESCHEME=GEN,FILETYPE=DATA,FREEUP,CATALOG);
  358.      IFEND;
  359. %
  360.      IFEND;
  361. %    ****************************************************
  362. %    * ASSIGNING THE OTHER FILE REFERENCES IN THE
  363. %    * CATALOG CASE.
  364. %    ****************************************************
  365.      ASSIGN FILE SRCFILE(REF=SRCFILE,RMS=YES,FILESIZE='NO LIMIT',
  366.                  RECORDSIZE=1/83,
  367.                  DATESCHEME=GEN,FILETYPE=SOURCE,FREEUP,CATALOG),
  368.             FILE OBJFILE(REF=OBJFILE,RMS=YES,FILESIZE='NO LIMIT',
  369.                  RECORDSIZE=1/490,
  370.                  DATESCHEME=GEN,FILETYPE=OBJECT,FREEUP,CATALOG),
  371.             FILE CSFILE(REF=CSFILE,RMS=YES,FILESIZE='NO LIMIT',
  372.                  FREEUP,DATESCHEME=GEN,
  373.                  RECORDSIZE=1/82,
  374.                  FILETYPE='CONTROL STRING',CATALOG);
  375. %    ****************************************************
  376. %    * END OF THE CATALOG CASE.
  377. %    ****************************************************
  378.    ELSE
  379. %  ******************************************************
  380. %  * BEGINNING OF THE SUD=D02 CASE.
  381. %  ******************************************************
  382.      DISPLAY : ' ';
  383.      DISPLAY :'  IVS-KERMIT USING NON-CATALOG ENVIRONMENT.' ;
  384. $TAG4
  385. %  ******************************************************
  386. %  * ASKING ABOUT SUD=D02.
  387. %  ******************************************************
  388.      DI PER;
  389.      DISPLAY : '  PLEASE ENTER(IN QUOTES) VOLUME NUMBER AND DEVICE TYPE.' ;
  390.      DISPLAY : '    FOR EXAMPLE (''525252/BA'')';
  391.      DISPLAY : '    OR [CONTINUE] TO USE CURRENT D02.';
  392.      ACCEPT VSN;
  393. %
  394.      IF (SUBSTRING(VSN,0,1) = 'C')
  395.        THEN
  396.        DISPLAY : '  IVS-KERMIT USING CURRENT D02.';
  397.      ELSE
  398.      VOL_INT := INT(SUBSTRING(VSN,0,6));
  399.      DTYPE := SUBSTRING(VSN,7,2);
  400.      ASSIGN UNIT D02(SUD=D02,VOL=#VOL_INT,TYPE=#DTYPE) [P1];
  401. %
  402.      IF (P1(STATUS) /= COMPLETED) THEN
  403.        DISPLAY : '  CANT ASSIGN VOLUME ' & SUBSTRING(VSN,0,6) &
  404.               ' WITH DEVICE TYPE ' & DTYPE & '.    ' ;
  405.        MSG := '    DO YOU WANT TO TRY ANOTHER VOLUME?  ';
  406.        DISPLAY : MSG;
  407.        DISPLAY : '    OR CONTINUE WITH CURRENT D02?  [Y,N,CONTINUE]';
  408.        ACCEPT ACTION;
  409. %
  410.        IF (SUBSTRING(ACTION,0,1) = 'N') THEN
  411.          RETURN : '  END OF IVSKPM';
  412.        ELSE
  413. %
  414.        IF (SUBSTRING(ACTION,0,1) /= 'C')
  415.          THEN
  416.          GOTO TAG4;
  417.        ELSE
  418.        VSN := '';
  419.        DISPLAY : ' ';
  420.        DISPLAY : '  IVS-KERMIT USING CURRENT D02.';
  421.        IFEND;
  422. %
  423.        IFEND;
  424. %
  425.      ELSE
  426. %
  427.      IF(VSN /= '')
  428.        THEN
  429.        DISPLAY : ' ';
  430.        DISPLAY : '  IVS-KERMIT USING VOLUME ' & #VSN & '.';
  431.      IFEND;
  432. %
  433.      IFEND;
  434. %
  435.      IFEND;
  436. %    *******************************************
  437. %    * ASKING ABOUT FILE SIZE
  438. %    * IN THE D02 CASE.
  439. %    *
  440. %    *
  441. %    *
  442. %    *
  443. %    *******************************************
  444. %
  445. %
  446. %    *********************************************
  447. %    * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  448. %    *   BINARY AND TEXT 'DATA' FILES
  449. %    *
  450. %    * FILESIZE MUST BE FOR THE LARGEST
  451. %    *   FILE ANTICIPATED
  452. %    *
  453. %    ************************************************
  454. %
  455. %
  456.      DISPLAY : ' ';
  457.      DISPLAY : '  ENSURE THAT ENOUGH SPACE EXISTS ON D02';
  458.      DISPLAY : '    FOR THE LARGEST UPLOADED FILE.';
  459.      DISPLAY : '  ENSURE THAT THE D02 DATAFILE FILESIZE PARAMETER';
  460.      DISPLAY : '    IS BIG ENOUGH TO HOLD THE LARGEST FILE.';
  461.      DISPLAY : ' ';
  462.      DISPLAY : '  SPECIFY FILESIZE VALUE FOR D02 DATAFILE REFERENCE';
  463.      DISPLAY : '    USED BY DATA FILES.';
  464.      DISPLAY : '    DEFAULT FILESIZE IS 500/BLOCKS.';
  465.      ACCEPT FILESIZ;
  466. %
  467.      IF ((SUBSTRING(FILESIZ,0,1) = '') OR (SUBSTRING(FILESIZ,0,1) = 'A'))
  468.        THEN
  469.        FILESIZ := '500';
  470.      IFEND;
  471. %
  472.      IF (SUBSTRING(ORG_CHOICE,0,1) = 'Y')
  473.        THEN
  474. %
  475. %
  476. %      ************************************************
  477. %      * ASSIGNING REF=DATAFILE
  478. %      * IN THE FONT/FORM CASE USING D02.
  479. %      ************************************************
  480.        ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  481.                  DATESCHEME=GEN,NOCAT,
  482.                  FILESIZE=#FILESIZ/BLOCKS,
  483. %                ************************************
  484. %                *  THE FOLLOWING 4 PARAMETERS ARE
  485. %                *    FOR FONT/FORM UPLOADS
  486. %                ************************************
  487.                  ORGANIZATION=RELATIVE,
  488.                  BLOCKSIZE=1/RECORDS,
  489.                  CAMHEADER,
  490.                  RECORDSIZE=1/485,
  491.                  FILETYPE=DATA);
  492.      ELSE
  493. %
  494.      IF (SUBSTRING(REC_TYPE,0,1) = 'F')
  495.        THEN
  496. %
  497. %
  498. %      ************************************************
  499. %      * ASSIGNING REF=DATAFILE
  500. %      * IN THE FIXED LENGTH RECORD, NON FONT/FORM CASE
  501. %      * USING D02.
  502. %      *
  503. %      * THIS IS CONSIDERED TO BE THE
  504. %      * 'FIXED ACQUISITION' CASE.
  505. %      ************************************************
  506.  
  507.        ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  508.                    DATESCHEME=GEN,NOCAT,
  509.                    FILESIZE=#FILESIZ/BLOCKS,
  510. %                  ************************************
  511. %                  *  THE FOLLOWING PARAMETERS ARE
  512. %                  *    FOR FIXED LENGTH RECORDS
  513. %                  ************************************
  514.                    RECORDSIZE=80,
  515.                    FILETYPE=DATA);
  516.      ELSE
  517. %
  518. %
  519. %    ************************************************
  520. %    * ASSIGNING REF=DATAFILE
  521. %    * IN THE VARIABLE LENGTH RECORD, NON FONT/FORM
  522. %    * CASE USING D02.
  523. %    ************************************************
  524. %
  525. %    *******************************************
  526. %    * FILE 'REFERENCE' OF 'DATAFILE' IS USED FOR
  527. %    *   BINARY AND TEXT 'DATA' FILES
  528. %    *
  529. %    *
  530. %    *******************************************
  531. %
  532.      ASSIGN FILE DATAFILE(REF=DATAFILE,RMS=NO,SUD=D02,FREEUP,
  533.                  DATESCHEME=GEN,NOCAT,
  534.                  FILESIZE=#FILESIZ/BLOCKS,
  535.                  RECORDSIZE=1/485,
  536.                  FILETYPE=DATA);
  537.      IFEND;
  538. %
  539.      IFEND;
  540. %
  541. %
  542. %
  543. %    ****************************************************
  544. %    * ASSIGNING THE OTHER FILE REFERENCES IN THE
  545. %    * D02 CASE.
  546. %    ****************************************************
  547. %
  548.      ASSIGN FILE SRCFILE(REF=SRCFILE,RMS=NO,SUD=D02,FREEUP,
  549.                  RECORDSIZE=1/82,
  550.                  FILESIZE=200/BLOCKS,DATESCHEME=GEN,NOCAT,
  551.                  FILETYPE=SOURCE),
  552.             FILE OBJFILE(REF=OBJFILE,RMS=NO,SUD=D02,FREEUP,
  553.                  FILESIZE=1000/BLOCKS,RECORDSIZE=1/490,
  554.                  DATESCHEME=GEN,FILETYPE=OBJECT,NOCAT),
  555.             FILE CSFILE(REF=CSFILE,RMS=NO,SUD=D02,FREEUP,
  556.                  FILESIZE=200/BLOCKS,RECORDSIZE=1/82,NOCAT,
  557.                  DATESCHEME=GEN,FILETYPE='CONTROL STRING');
  558. %
  559. %
  560. %  FILEL NOCAT;
  561. %  * FILEC IS TO KNOW WHERE STDERR WILL BE.
  562.    FILEC NOCAT;
  563. %  ******************************************************
  564. %  * END OF THE SUD=D02 CASE.
  565. %  ******************************************************
  566.    IFEND;
  567. %
  568. END;
  569. %
  570. % *********************************************
  571. TERMCHNG('796401');
  572. DEPOT(UNSOLICITED=DROP);
  573. DEPOT(WIDTH=2048);
  574. DEPOT(LENGTH=999);
  575. DEPOT(WAIT=FALSE);
  576. %
  577. % ************************************************
  578. %
  579. ARGS := #COMMAND & ' 2> STDERR ';
  580. DISPLAY : ' ';
  581. DISPLAY : '  EXECUTING LOAD MODULE WERMIT.';
  582. %
  583. % MUST SPECIFY LOCATION OF LOAD MODULE
  584. IVSKERM(ARGS);
  585. DISPLAY : '  IVS-KERMIT TERMINATED.';
  586. %
  587. BEGIN
  588. DISPLAY : '  PRINTING IVS-KERMIT TRANSFER HISTORY LOG(STDERR).';
  589. DISPLAY : '  PLEASE WAIT.';
  590. PUSH;
  591. FREE DEFAULT_PRINTER;
  592. ASSIGN PRINTER DEFAULT_PRINTER(SUD=P01);
  593. %
  594. IF (VSN /= '') THEN
  595.   EXECUTE PRINT,SPEC='(NAME=STDERR,AGE=NEW,SUD=D02,NOCAT' &
  596.     ') FORMAT=RECORDS,ASCII ONLY;';
  597. ELSE
  598. EXECUTE PRINT,SPEC='(NAME=STDERR,AGE=NEW) FORMAT=RECORDS,ASCII ONLY;';
  599. IFEND;
  600. %
  601. QUEUE DEFAULT_PRINTER;
  602. FREE DEFAULT_PRINTER;
  603. ASSIGN PRINTER DEFAULT_PRINTER(SUD=P01,TYPE=TERMINAL);
  604. POP;
  605. DISPLAY : '  END OF PRINTING STDERR.';
  606. END;
  607. %
  608. IF (VSN /= '') THEN
  609.   FREE D02;
  610. IFEND;
  611. %
  612. FREE DATAFILE;
  613. FREE SRCFILE;
  614. FREE OBJFILE;
  615. FREE CSFILE;
  616. % FILEL CAT/NOCAT;
  617. % FILEC CAT;
  618. %
  619. IF ( NODE = '')
  620. THEN
  621.  FILEN;
  622. ELSE
  623. FILEN USER;
  624. FILEN;
  625. IFEND;
  626. %
  627. DEPOT(UNSOLICITED=NOTIFY);
  628. DEPOT(WIDTH=80);
  629. DEPOT(LENGTH=23);
  630. DEPOT(WAIT=TRUE);
  631. DISPLAY : '  END OF IVSKP.';
  632. PROCEND IVSKPM;
  633.