home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / d / univac.ins < prev    next >
Internet Message Format  |  2020-01-01  |  5KB
  1. Date: April 21, 1987
  2. From: Mike Lucich (via tape)
  3. Subject: Sperry/Univac/Unisys Kermit
  4.  
  5. We here at Ft Leavenworth initially had a rough time reading the KERMIT release
  6. tape on our Unisys (aka Sperry, Univac) 1100 mainframe and send you the
  7. following program in the hope others will find it usefull.
  8.  
  9. We run both assembler and Pascal versions of KERMIT on our mainframe and have
  10. made several minor changes to accomodate MS-DOS KERMIT Version 2.27 through our
  11. ancient C/SP front end processors.  Fortunately with MSKERMIT version 2.29
  12. these kludges are no longer required (the ability to set handshake to any
  13. character solves our problems nicely).
  14.  
  15. Please feel free to refer any Unisys users with problems with KERMIT to us, if
  16. we might help them.  Also please return our tape with the latest KERMIT
  17. distribution to the address above.  We thank you!
  18.  
  19. Mike Lucich
  20. USA ISC DOIM
  21. Unisys Support Team
  22. ATTN: ATZL-GMO-IA
  23. Ft Leavenworth, KS  66027-5700
  24.  
  25. [Ed. - The COBOL program that reads a file from a Kermit tape (the format
  26. is either EBCDIC OS Standard Label Format V or else ASCII ANSI Label Format D;
  27. it's not clear from the message, most most likely it's the EBCDIC tape, since
  28. this program itself arrived on an EBCDIC tape)... is in KER:UNIVAC.INS, along
  29. with this message.]
  30.  
  31. @DELETE,C RD$PRINT.
  32. @CAT      RD$PRINT.,///2048
  33. @BRKPT    PRINT$,RD$PRINT.
  34. @hdg      KERMIT RELEASE TAPE READ PROGRAM
  35. @ACOB,SI  TPF$.READ
  36. 000100 IDENTIFICATION DIVISION.
  37. 000200   PROGRAM-ID.  READ-KERMIT.
  38. 000300*  THIS PROGRAM WILL READ A FILE FROM THE KERMIT RELEASE
  39. 000400*  TAPE AND WRITE THAT FILE OUT AS AN SDF FILE NAMED
  40. 000500*  OUTFILE ON DISK. THE INPUT TAPE SHOULD BE ASSIGNED AS
  41. 000600*  INFILE, USING AN ASSIGNMENT STATEMENT SIMILAR TO THE
  42. 000700*  FOLLOWING: @ASG,TJ  INFILE.,U9S//////Q,reelno
  43. 000800*  IN ADDITION, THE INPUT TAPE SHOULD BE POSITIONED
  44. 000900*  AT THE PROPER FILE BEFORE RUNNING THIS PROGRAM.
  45. 000901*  THIS MAY BE ACCOMPLISHED VIA:
  46. 000902*  @MOVE  INFILE.,n
  47. 000903*  Where n=(number of desired file - 1) X 3
  48. 000910*  THIS PROGRAM MUST BE COMPILED WITH THE ACOB
  49. 000920*  EXTRA OPTION D.
  50. 000930*  Furthermore, when this program is executed, the run
  51. 000940*  --------------------MUST---------------------------
  52. 000950*  have assigned, with name or usename of DFP$, a program
  53. 000960*  file which contains an omnibus element named infile
  54. 000970*  which was created by the define file processor to
  55. 000980*  specify option=a, for 256 character EBCDIC character
  56. 000990*  set.  DO YOU BELIEVE IT ?
  57. 000995*
  58. 001000 ENVIRONMENT DIVISION.
  59. 001100  CONFIGURATION SECTION.
  60. 001200   SOURCE-COMPUTER. UNIVAC-1100-80.
  61. 001300   OBJECT-COMPUTER. UNIVAC-1100-80.
  62. 001400  INPUT-OUTPUT SECTION.
  63. 001500   FILE-CONTROL.
  64. 001600     SELECT INFILE-E  ASSIGN TO UNISERVO INFILE.
  65. 001700     SELECT OUTFILE-A ASSIGN TO DISC OUTFILE.
  66. 001800 DATA DIVISION.
  67. 001900  FILE SECTION.
  68. 002000   FD  INFILE-E
  69. 002100       LABEL RECORDS ARE STANDARD
  70. 002200       RECORDING MODE IS V AN
  71. 002300       BLOCK CONTAINS 1 TO 8192 CHARACTERS.
  72. 002400   01  INREC-E        PIC X(300).
  73. 002500   FD  OUTFILE-A
  74. 002600       LABEL RECORDS ARE OMITTED.
  75. 002700   01  OUTREC-A       PIC X(300).
  76. 002800  WORKING-STORAGE SECTION.
  77. 002900   77  INCNT          PIC 9(07) VALUE 0.
  78. 003000   77  OUTCNT         PIC 9(07) VALUE 0.
  79. 003100   77  PRINT-REC      PIC 9(01) VALUE 0.
  80. 003200   01  SPOINTS.
  81. 003300     03  FILLER       PIC 1(09) VALUE  90.
  82. 003300     03  FILLER       PIC 1(09) VALUE  93.
  83. 003400   01  APOINTS.
  84. 003500     03  FILLER       PIC 1(09) VALUE  33.
  85. 003600   01  SLBRACS.
  86. 003700     03  FILLER       PIC 1(09) VALUE 173.
  87. 003700     03  FILLER       PIC 1(09) VALUE 213.
  88. 003800   01  ALBRACS.
  89. 003900     03  FILLER       PIC 1(09) VALUE  91.
  90. 004000   01  SRBRACS.
  91. 004100     03  FILLER       PIC 1(09) VALUE 189.
  92. 004100     03  FILLER       PIC 1(09) VALUE 229.
  93. 004200   01  ARBRACS.
  94. 004300     03  FILLER       PIC 1(09) VALUE  93.
  95. 004400   01  SBARS.
  96. 004500     03  FILLER       PIC 1(09) VALUE  79.
  97. 004500     03  FILLER       PIC 1(09) VALUE  33.
  98. 004600   01  ABARS.
  99. 004700     03  FILLER       PIC 1(09) VALUE 124.
  100. 005200 PROCEDURE DIVISION.
  101. 005300 OPEN-FILES.
  102. 005400     OPEN INPUT INFILE-E WITH NO REWIND.
  103. 005500     OPEN OUTPUT OUTFILE-A.
  104. 005600 READ-FILE.
  105. 005700     READ INFILE-E AT END GO TO EOJ.
  106. 005800     ADD 1 TO INCNT.
  107. 005900     INSPECT INREC-E REPLACING
  108. 006000         ALL SPOINTS   BY APOINTS
  109. 006100         ALL SLBRACS   BY ALBRACS
  110. 006200         ALL SRBRACS   BY ARBRACS
  111. 006300         ALL SBARS     BY ABARS.
  112. 006400     MOVE INREC-E TO OUTREC-A.
  113. 006500     WRITE OUTREC-A.
  114. 006600     ADD 1 TO OUTCNT.
  115. 006700     MOVE SPACES TO INREC-E OUTREC-A.
  116. 006800     GO TO READ-FILE.
  117. 006900 EOJ.
  118. 007000     CLOSE INFILE-E WITH NO REWIND.
  119. 007100     CLOSE OUTFILE-A.
  120. 007200     DISPLAY 'RECORDS IN  ' INCNT  UPON PRINTER.
  121. 007300     DISPLAY 'RECORDS OUT ' OUTCNT UPON PRINTER.
  122. 007400     STOP RUN.
  123. @EOF
  124. @MAP,I    ,SOFTWARE.READ
  125. IN        TPF$.READ
  126. END
  127. @BRKPT    PRINT$
  128.