home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibm370 / ikxker.upd < prev    next >
Text File  |  2020-01-01  |  64KB  |  919 lines
  1. ./ *           Update summary:
  2. ./ * SC93342 - Use date transmitted with file (CICS)
  3. ./ * SC94074 - NAK bad data packet instead of re-ACKing previous
  4. ./ * SC94174 - WHATAMI option for file type
  5. ./ * SC94181 - Implement level-1 restart/recovery mode (CICS)
  6. ./ * SC94245 - More accurate statistics after server transfers
  7. ./ * SC94262 - Leave room for table expansion (CICS)
  8. ./ * BM94344 - Support for CICS 3.3 (CICS)
  9. ./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  10. ./ * SC95032 - Allow Recovery into almost-full file system
  11. ./ * SC95033 - Update to level 4.3.1
  12. ./ * SC95041 - Avoid obsolete COPY book in CICS 3.3 and higher
  13. ./ * SC95059 - Preserve transmitted time tag for RESENT file
  14. ./ * SC95108 - Prevent error-free transfers from halting TAKE files
  15. ./ * SC95174 - Implement REGET subcommand
  16. ./ * SC96122 - Avoid endless double transmission from windowed Kermit
  17. ./ * SC96151 - Add system ID to INIT packets
  18. ./ * SC96158 - Never skip sending an I-packet while in remote mode
  19. ./ * SC96165 - Correct handling of dates in 2000's (CICS)
  20. ./ * SC97028 - Clear 'Kermit command error' condition correctly
  21. ./ * SC97164 - Update to level 4.3.2
  22. ./ *                  .....Updates.....
  23. ./ * SC93342 - Use date transmitted with file (CICS)
  24. ./ I 01038000          $ 1038200 200                  12/08/93 18:01:27
  25. FABNDAT  DS    CL7           Intended date for output file     @SC93342
  26. ./ I 01416400          $ 1416500 100                  09/01/94 21:20:42
  27.          SSYMS ,                                               @SC93342
  28. ./ D 01416800                                         09/01/94 21:20:42
  29. ./ I 05695500          $ 5695700 200                  12/08/93 18:10:17
  30.          MVC   FABNDAT,FDATE Save date from other end          @SC93342
  31. ./ I 05726000          $ 5726200 200                  12/08/93 18:10:17
  32.          XC    FDATE,FDATE   Clear date again                  @SC93342
  33. ./ I 06250500          $ 6250600 100                  09/01/94 18:10:17
  34.          MVC   KFSDATE,FABNDAT  Possible override date/time    @SC93342
  35.          CLC   F0,FABNDAT    Any date to fill in?              @SC93342
  36.          BNE   KFLCLD3       Yes, use it                       @SC93342
  37. ./ I 06266000          $ 6266200 200                  09/01/94 18:10:17
  38. KFLCLD3  DS    0H                                              @SC93342
  39. ./ * SC94074 - NAK bad data packet instead of re-ACKing previous
  40. ./ I 01917000          $ 1917200 200                  03/15/94 16:25:11
  41.          CLI   STYPE,AY      See if sent a plain ACK           @SC94074
  42.          BNE   *+12          No, resend whatever it was        @SC94074
  43.           CLI  DATLSN,0      "plain" only if no data           @SC94074
  44.           BE   SENDNAK       Yes, send a NAK                   @SC94074
  45. ./ R 02579000          $ 2579000 1000                 03/15/94 16:25:11
  46. DATL     DS    F             Size of data in packet (S or R)   @SC94074
  47. ./ I 02617000          $ 2617200 200                  03/15/94 16:25:11
  48. DATLSN   DS    X             Data length in last packet sent   @SC94074
  49. ./ I 08466500          $ 8466600 100                  03/15/94 16:25:11
  50.          STC   9,DATLSN      Copy length of data sent, if any  @SC94074
  51. ./ * SC94174 - WHATAMI option for file type
  52. ./ I 01424200          $ 1424300 100                  06/23/94 22:46:07
  53. AUND     EQU   95            ASCII underscore                  @SC94174
  54. ./ I 02082200          $ 2082300 100                  06/23/94 22:46:07
  55.          MVI   WHATRU,0      No valid value anymore            @SC94174
  56. ./ R 02492000          $ 2492000 500                  06/24/94 00:00:08
  57.          DC    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  58. ./ I 02680000          $ 2680500 500                  06/23/94 18:34:18
  59. WHATRU   DS    X             Mode info from other Kermit       @SC94174
  60. ./ R 02716000          $ 2716000 500                  06/24/94 00:00:08
  61.          DS    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  62. ./ D 08159500 08160000                                06/24/94 01:36:05
  63. ./ I 08167500          $ 8167600 100                  06/24/94 01:36:05
  64.          TM    RCAPA,LONGP   Test for long packet bit          @SC94174
  65.          BZ    SPARNX        No extended packets               @SC94174
  66. ./ I 08168500          $ 8168510 10                   06/23/94 18:26:14
  67.          BAL   14,SPARFTCH   Get checkpoint flag               @SC94174
  68. *        UNCHR 4,,SCKPNT     Save for later                    @SC94174
  69.          XR    1,1           Clear checkpoint length           @SC94174
  70.          LA    15,3                                            @SC94174
  71. SPARCKPL MH    1,XLFCT+2     Shift left                        @SC94174
  72.          BAL   14,SPARFTCH   Get next checkpoint length byte   @SC94174
  73.          UNCHR 4                                               @SC94174
  74.          AR    1,4                                             @SC94174
  75.          BCT   15,SPARCKPL                                     @SC94174
  76. *        ST    1,SCKINT                                        @SC94174
  77.          BAL   14,SPARFTCH   Get WHATAMI                       @SC94174
  78.          UNCHR 4,,WHATRU                                       @SC94174
  79.          TM    WHATRU,X'20'  Valid?                            @SC94174
  80.          BZ    SPARWHT       No, skip it                       @SC94174
  81.          TM    FL2,SRV       Acting as server?                 @SC94174
  82.          BZ    SPARWHT       No, skip it                       @SC94174
  83.          IC    0,FL1         Get my file-type flag             @SC94174
  84.          SRL   0,1           Shift BINF (4) to 2-bit           @SC94174
  85.          XR    0,4           Compare (client 2-bit is binary)  @SC94174
  86.          N     0,F2          Do they match?                    @SC94174
  87.          BZ    SPARWHT       Yes, all set                      @SC94174
  88.          XI    FL1,BINF      No, switch my setting             @SC94174
  89.          MVI   TYPFIL,C'T'   Also set the subflag              @SC94174
  90.          TM    FL1,BINF                                        @SC94174
  91.          BZ    SPARWHT                                         @SC94174
  92.          MVI   TYPFIL,C'B'                                     @SC94174
  93. SPARWHT  DS    0H                                              @SC94174
  94. ./ R 08219000          $ 8219000 100                  06/23/94 18:26:14
  95.          MVI   10(9),ABL     Window size is blank              @SC86295
  96. ./ R 08229500          $ 8229500 200                  06/23/94 18:26:14
  97.          BNH   RPARS1        KMAX >= RPSIZ                     @SC94174
  98. ./ R 08230500          $ 8230500 200                  06/23/94 18:26:14
  99.          SH    5,=H'7'       Allow for long header             @SC94174
  100. ./ D 08231500                                         06/24/94 00:00:08
  101. ./ R 08233500 08234000 $ 8233400 100                  06/23/94 18:26:14
  102.          MVC   13(4,9),DEFPARM+13 No ckpt support              @SC94174
  103.          LA    4,X'24'       Bits always on in WHATAMI         @SC94174
  104.          TM    FL1,BINF      Binary?                           @SC94174
  105.          BZ    *+8                                             @SC94174
  106.           LA   4,2(,4)       Yes                               @SC94174
  107.          TM    FL2,SRV       Server mode?                      @SC94174
  108.          BZ    *+8                                             @SC94174
  109.           LA   4,1(,4)       Yes                               @SC94174
  110.          TOCHR 4,,17(9)                                        @SC94174
  111.          LA    0,18          Size of data including WHATAMI    @SC94174
  112. ./ * SC94181 - Implement level-1 restart/recovery mode (CICS)
  113. ./ I 01002000          $ 1002300 300                  06/29/94 18:55:26
  114. FDBSIZEB DS    F             File size in bytes                @SC94181
  115. ./ I 01413600          $ 1413700 100                  09/14/94 15:49:04
  116.          GBLC  &AAARSND,&AUPDATE                               @SC94181
  117. ./ R 01415400 01415600 $ 1415400 200                  09/30/93 14:45:03
  118. &KDATE   SETC  '94/06/30'                                      @SC94181
  119. &KEDIT   SETC  '1 TEST'                                        @SC94181
  120. ./ I 01460400          $ 1460500 100                  06/28/94 18:25:34
  121. &AAARSND SETC 'RESEND'          cmd, m=3                       @SC94181
  122. ./ I 01475800          $ 1475900 100                  09/20/94 21:29:31
  123. &AUPDATE SETC 'UPDATE'          kwd->COLLISN                   @SC94181
  124. ./ I 02119000          $ 2119100 100                  09/21/94 15:17:19
  125.          CLI   ERRNUM,ERRTRC Canceled?                         @SC94181
  126.          BNE   LDERR2                                          @SC94181
  127.          CLI   REASON,STACNDAT Date too early?                 @SC94181
  128.          BER   14            Not an error                      @SC94181
  129.          CLI   REASON,STACNDSC Simply a duplicate?             @SC94181
  130.          BER   14            Not an error                      @SC94181
  131. LDERR2   DS    0H                                              @SC94181
  132. ./ R 02494000          $ 2494000 500                  06/28/94 18:25:34
  133.          DC    X'38'         Capabilities I have        SCAPA  @SC94181
  134. ./ R 03033000          $ 3033000 80                   06/28/94 18:25:34
  135.          KW    '&AAARSND',KRMSND,R,MIN=3                       @SC94181
  136. SNDKCMD  KW    '&AAASEND',KRMSND,MIN=3                         @SC94181
  137.          ORG   SNDKCMD+KWCODE                                  @SC94181
  138.          DC    X'0'          Normal send has no disp code      @SC94181
  139.          ORG   ,                                               @SC94181
  140. ./ R 03034500          $ 3034500 100                  10/15/94 18:25:34
  141. XTYKCMD  KW    '&AAXTYPE',KRMNPS,MIN=2                         @SC94181
  142.          ORG   XTYKCMD+KWCODE                                  @SC94181
  143.          DC    X'0'          Normal send has no disp code      @SC94181
  144.          ORG   ,                                               @SC94181
  145. ./ R 03081000          $ 3081000 200                  06/28/94 18:25:34
  146. KRMSND   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC94181
  147.          PTEXT '&SYSFSPC - ',AREG=1,LREG=0                     @SC94181
  148. ./ R 03094000 03095000 $ 3094000 90                   09/21/94 16:45:10
  149. KRMSNDBG SR    1,1                                             @SC94181
  150.          ICM   1,1,USNCOD    Get send command code             @SC94181
  151.          BZ    USNSND3       Fine, no special disposition      @SC94181
  152.          TM    SCAPA,8       Can we do attributes?             @SC94181
  153.          BZ    USNSNDX       No, give up right away            @SC94181
  154.          TM    ATFL2,ATFDSP  Disposition attribute enabled?    @SC94181
  155.          BZ    USNSNDX       No, can't do it                   @SC94181
  156.          TM    ATFLG,ATFTYP  Type attribute enabled?           @SC94181
  157.          BZ    USNSNDX       Can't do it                       @SC94181
  158.          TM    ATFL4,ATFEND  End-of-atts attribute enabled?    @SC94181
  159.          BZ    USNSNDX       Can't do it                       @SC94181
  160.          TM    FL1,BINF      Are we binary?                    @SC94181
  161.          BZ    USNSNDX1      No, can't do it                   @SC94181
  162. USNSND3  IC    1,ETOAD(1)    Use ASCII version of Disp code    @SC94181
  163.          XC    LEN,LEN       Clear length of Disp options      @SC94181
  164.          KCALL SEND                                            @SC94181
  165. KRMXFZ   BAL   14,LDERR      Get massaged error code           @SC94181
  166. ./ I 03096000          $ 3096080 80                   06/28/94 18:25:34
  167.          B     USNSNDZ                                         @SC94181
  168. USNSNDX  WTEXT '&ATTRIBU &AZDISAB'                             @SC94181
  169.          B     USNSNDZ                                         @SC94181
  170. USNSNDX1 WTEXT '&CANNOT.&AAARSND ->&AAAABIN'                   @SC94181
  171. USNSNDZ  DS    0H                                              @SC94181
  172. ./ I 03105000          $ 3105200 200                  06/28/94 18:25:34
  173.          MVI   USNCOD,0      No special disposition            @SC94181
  174. ./ I 03130500          $ 3130700 200                  06/28/94 18:25:34
  175. USNCOD   DS    X             Temporary flags for SEND/RESEND   @SC94181
  176. ./ I 03192000          $ 3192200 200                  09/20/94 21:29:31
  177.          KW    '&AUPDATE',SETCLSN,U                            @SC94181
  178. ./ R 03754000          $ 3754000 100                  09/20/94 21:29:31
  179. STACNTB  DC    C'-&ATTUNK.-&ATTLEN.-&ATTTYP'                   @SC94181
  180. STACNDAT EQU   (*-STACNTB)/8 Date reason code                  @SC94181
  181.          DC    C'-&ATTDAT.'                                    @SC94181
  182. ./ R 03756500          $ 3756500 100                  09/20/94 16:08:33
  183.          DC    (31-(*-STACNTB)/8)CL8'-??'                      @SC94181
  184. STACNDSC EQU   (*-STACNTB)/8 One extra reason (not in A-packet)@SC94181
  185.          DC    C'-&COLLIS.'                                    @SC94181
  186. ./ R 06012000          $ 6012000 100                  09/21/94 12:44:43
  187. DSKTSPX  XC    DSKFDB,DSKFDB Clear out info                    @SC94181
  188.          MVC   DSKSTNM,0(2)  File not opened yet, look for it  @SC94181
  189. ./ D 06014500                                         09/21/94 12:44:43
  190. ./ R 06081000          $ 6081000 100                  09/21/94 12:44:43
  191. DSKNXTTO XC    DSKFDB,DSKFDB Clear out info                    @SC94181
  192.          MVC   DSKSTNM,FILNAM Other types: just do one         @SC94181
  193. ./ R 06152000          $ 6152000 200                  06/29/94 18:53:13
  194. DSKVLSB  LR    1,6           Use observed max length for LRECL @SC94181
  195. DSKVLSC  ST    0,FDBSIZEB    Save                              @SC94181
  196.          AL    0,=F'512'     Round up                          @SC94181
  197. ./ D 06153500                                         06/29/94 18:53:13
  198. ./ R 06158500 06160000 $ 6159000 100                  06/29/94 18:53:13
  199.          B     DSKVLSC       Save size in bytes & Kbytes       @SC94181
  200. ./ I 07683000          $ 7683100 100                  06/28/94 18:25:34
  201.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  202.          BNE   SNDFIL        No, fine                          @SC94181
  203.          TM    RCAPA,X'10'   Yes, can the other Kermit do it?  @SC94181
  204.          BZ    SNDCMDER      No.  Give up                      @SC94181
  205. ./ I 07685000          $ 7685200 200                  06/28/94 18:25:34
  206.          XC    SNDBLEN,SNDBLEN Clear "recovery" length         @SC94181
  207. ./ I 07757500          $ 7757530 30                   06/28/94 18:25:34
  208.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  209.          BNE   SNDPKLX       No                                @SC94181
  210.          CLC   DATL,F3       Any byte length?                  @SC94181
  211.          BL    SNDPKLX       No                                @SC94181
  212.          CLI   0(1),A1       Is this it?                       @SC94181
  213.          BNE   SNDPKLX       No                                @SC94181
  214.          UNCHR 7,1(1)        Yes, get length of number string  @SC94181
  215.          LA    6,2(,1)       Ptr to numeric string             @SC94181
  216.          LR    14,7                                            @SC94181
  217.          BCTR  14,0                                            @SC94181
  218.          EX    14,SNDTRAT                                      @SC94181
  219.          BAL   14,GETNUM     Get file length                   @SC94181
  220.           LA   0,0           Default is to send all            @SC94181
  221.          ST    0,SNDBLEN     Save expected size                @SC94181
  222. ./ I 07760500          $ 7760700 200                  06/28/94 18:25:34
  223. SNDTRAT  TR    0(,6),ATOED   Convert to EBCDIC for decoding    @SC94181
  224. ./ I 07765000          $ 7765050 50                   06/28/94 18:25:34
  225.          L     5,SNDBLEN     Length to skip                    @SC94181
  226. SNDRECL  LTR   5,5           Any more?                         @SC94181
  227.          BNP   SNDENC        No, start sending                 @SC94181
  228.          KCALL INBUF,E=SNDEND                                  @SC94181
  229.          S     5,RBUFL       Data length in RBUF               @SC94181
  230.          BNM   SNDRECL       Keep skipping                     @SC94181
  231.          A     5,RBUFL       Must use part of this buffer      @SC94181
  232.          ST    5,RBUFP       Index of next char in RBUF        @SC94181
  233. ./ I 07797000          $ 7797200 200                  12/19/94 15:58:18
  234. SNDEND   MVC   DATL,F0       End while restarting: do nothing  @SC94181
  235. ./ I 07809000          $ 7809060 60                   09/21/94 15:58:18
  236.          CLI   ERRNUM,ERRTRC Cancelled?                        @SC94181
  237.          BNE   SNDBRKA       No, it's a solid error            @SC94181
  238.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  239.          BE    SNDBRKP       Yes, not really an error          @SC94181
  240.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  241.          BE    SNDBRKP       Yes, not really an error          @SC94181
  242. SNDBRKA  DS    0H                                              @SC94181
  243. ./ I 07833000          $ 7833200 200                  06/28/94 18:25:34
  244. SNDBLEN  DS    F             Length to skip in resending file  @SC94181
  245. ./ R 07864500 07875500 $ 7865500 500                  06/29/94 20:43:04
  246. RECOVR   XC    FILFLGS,FL3   Set flag for DISP                 @SC94181
  247.          NI    FILFLGS,255-APPN-SVATT                          @SC90033
  248.          XC    FILFLGS,FL3                                     @SC86295
  249.          TM    RCAPA,X'18'   Attributes, including End?        @SC94181
  250.          BNO   RECCOL        No, do collision test now         @SC94181
  251.          TM    SCAPA,X'08'   Am I expecting A-packets?         @SC94181
  252.          BNO   RECCOL        No, do collision test now         @SC94181
  253.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  254.          BO    RECOPN        Yes, defer collision test         @SC94181
  255. RECCOL   KCALL TCOLL,E=(RECOPN,Z)                              @SC94181
  256. ./ R 07879000 07883500 $ 7879000 1000                 06/29/94 20:43:04
  257. RECOPN   DS    0H                                              @SC94181
  258. ./ I 07892500          $ 7892560 60                   06/30/94 14:49:18
  259.          MVI   RECDISP,0     No disposition specified          @SC94181
  260.          TM    RCAPA,X'18'   Does he promise End attribute?    @SC94181
  261.          BNO   RECDAT        No, let it ride                   @SC94181
  262.          TM    SCAPA,X'08'   Am I expecting A-packets          @SC94181
  263.          BNO   RECDAT        No, but I'll accept them          @SC94181
  264.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  265.          BNO   RECDAT        No, let it ride                   @SC94181
  266.          LA    8,RECAST      Ok, accept only A-packets for now @SC94181
  267. ./ I 07896500          $ 7896600 100                  06/29/94 21:14:51
  268.          L     2,FSIZE       Default lrecl                     @SC94181
  269.          ICM   0,15,FILPTR   Already opened?                   @SC94181
  270.          BNZ   RECDATO       Yes, fine                         @SC94181
  271. ./ I 07899500          $ 7899700 200                  06/29/94 21:14:51
  272. RECDATO  DS    0H                                              @SC94181
  273. ./ R 07908000          $ 7908000 100                  06/30/94 14:49:18
  274. RECDAK   XC    DATL,DATL     Set length to zero                @SC94181
  275. RECDAKL  BAL   2,SENDACKL    Send an ack                       @SC94181
  276. ./ R 07927000          $ 7927000 200                  09/20/94 16:42:43
  277.          BNZ   RECADTX       Invalid, stop now                 @SC94181
  278. ./ R 07930500          $ 7930500 200                  09/20/94 16:42:43
  279.          BH    RECADTX       Too big, stop now                 @SC94181
  280. ./ R 07932000          $ 7932000 200                  09/20/94 16:42:43
  281.          BNE   RECADTX       No, illegal                       @SC94181
  282. ./ R 07940500          $ 7940500 200                  09/20/94 16:42:43
  283.           BNE  RECADTX       No, error                         @SC94181
  284. ./ I 07942500          $ 7942600 100                  09/20/94 16:42:43
  285. RECADTX  MVI   ERRNUM,ERRIPS Bad syntax                        @SC94181
  286.          B     RECABR        Quit                              @SC94181
  287. ./ I 07945000          $ 7945200 200                  06/30/94 16:32:21
  288.          XC    DATL,DATL     Normally no data on ACK           @SC94181
  289. ./ R 07946000          $ 7946000 200                  06/30/94 16:32:21
  290.          BNL   RECDAKL       No, done                          @SC94181
  291. ./ R 07947000          $ 7947000 200                  06/30/94 16:32:21
  292.          BO    RECDAKL       Yes, ignore further attributes    @SC94181
  293. ./ I 07951000          $ 7951100 100                  06/30/94 14:49:18
  294.          CLC   FILPTR,F0     End attribute already seen?       @SC94181
  295.          BNE   RECRJC        Yes, this is forbidden            @SC94181
  296. ./ R 07959000          $ 7959000 200                  06/28/94 18:25:34
  297. RECDSPCD DC    AL1(11),AL3(RECADI) + - Disposition             @SC94181
  298. ./ R 07994500          $ 7994500 200                  06/28/94 18:25:34
  299. RECADI   MVC   RECDISP,0(6)  Save disp code                    @SC94181
  300.          BAL   2,RECALKP                                       @SC94181
  301. ./ I 07996000          $ 7996300 300                  06/28/94 18:25:34
  302.          DC    AL1(AR),AL3(RECCKL) Recover                     @SC94181
  303. ./ R 08026000 08026500 $ 8025800 20                   06/30/94 14:49:18
  304. RECAZZ   DS    0H            End of attributes, must be last   @SC94181
  305.          CLI   RECDISP,AR    Recover?                          @SC94181
  306.          BNE   RECAZ2        No, fine                          @SC94181
  307.          TM    FL1,BINF      Yes, make sure binary             @SC94181
  308.          BZ    RECRJD        Oops, can't do it                 @SC94181
  309.          BAL   14,RDWSET     Decide which kind of binary       @SC94181
  310.          OI    FILFLGS,APPN  Yes, must append                  @SC94181
  311. RECAZ2   TM    RCAPA,X'18'   Did other Kermit promise End att? @SC94181
  312.          BNO   RECAZ3        No, already tested collision      @SC94181
  313.          KCALL TCOLL,E=RECRJC Do it now                        @SC94181
  314. RECAZ3   XC    DATL,DATL                                       @SC94181
  315.          CLI   RECDISP,AR    Recover?                          @SC94181
  316.          BNE   RECAZ4        No, fine                          @SC94181
  317.          SR    4,4           Ok, get exact length of file      @SC94181
  318.          OPENF T,FILNAM,E=RECBLCZ Does it exist?               @SC94181
  319.          CLI   TYPFIL,C'B'   Ordinary binary?                  @SC94181
  320.          BE    RECBLCA       Yes, try shortcut                 @SC94181
  321.          MVC   FDBSIZEB-FDBD(4,1),F0 No, can't trust n*lrecl   @SC94181
  322. RECBLCA  ICM   4,15,FDBSIZEB-FDBD(1) Yes, get length, if poss. @SC94181
  323.          BNZ   RECBLCZ       Ok, got it                        @SC94181
  324.          OPENF I,FILNAM,FILFDB,FILPTR,E=RECBLCZ                @SC94181
  325. RECBLCL  KCALL INBUF,E=RECBLCZ                                 @SC94181
  326.          A     4,RBUFL       (Doing it the hard way)           @SC94181
  327.          B     RECBLCL                                         @SC94181
  328. RECBLCZ  CLOSF FILPTR        Done, close file for input        @SC94181
  329.          NI    FL1,255-EOF   Clear eof condition               @SC94181
  330.          ST    4,RECBLEN     Got total length                  @SC94181
  331.          LTR   4,4           Any?                              @SC94181
  332.          BZ    RECAZ4        No, just process normally         @SC94181
  333.          LA    0,512                                           @SC94181
  334.          ALR   0,4           Round to nearest K                @SC94181
  335.          SRL   0,10                                            @SC94181
  336.          L     6,FILFSIZ     Size of promised file             @SC94181
  337.          SLR   6,0           Amount to be sent and appended    @SC94181
  338.          BC    3,*+6         Ok                                @SC94181
  339.           SLR  6,6           All received already!             @SC94181
  340.          ST    6,FILFSIZ     Corrected size for space check    @SC94181
  341.          L     6,ASDATA      Output buffer                     @SC94181
  342.          MVI   0(6),A1       Byte-length attribute code        @SC94181
  343.          LA    15,2(,6)                                        @SC94181
  344.          BAL   2,EDDEC       Format it (clobbers R8!)          @SC94181
  345.          TR    2(9,6),ETOAD  Convert plenty to ASCII           @SC94181
  346.          SR    15,6                                            @SC94181
  347.          ST    15,DATL       Length of data field              @SC94181
  348.          LA    4,ABL-2(,15)  Number of digits (printably)      @SC94181
  349.          STC   4,1(,6)                                         @SC94181
  350. RECAZ4   DS    0H                                              @SC94181
  351.          KCALL ACCTNM,FILNAM Insert revised name, if necessary @SC94181
  352.          OPENF O,FILNAM,FILFDB,FILPTR,E=RECRJA                 @SC94181
  353.          USING FDBD,1                                          @SC94181
  354.          MVC   FSIZE,FABLRTR Copy LRECL from effective length  @SC94181
  355.          MVC   FRECF,FDBRCF  Save info                         @SC94181
  356.          DROP  1                                               @SC94181
  357.          ICM   0,15,FILFSIZ  Expected size, if known           @SC94181
  358.          BZ    RECAZ5        Not known, proceed                @SC94181
  359.          OPENF S,FILNAM,FILFDB,FILPTR,E=RECRJLL Check disk spac@SC94181
  360.          XC    FILFSIZ,FILFSIZ  No need to repeat this test    @SC94181
  361. RECAZ5   DS    0H                                              @SC94181
  362.          LA    8,RECANST     Now accept D-packets              @SC94181
  363. ./ I 08027500          $ 8027550 50                   06/28/94 18:25:34
  364. RECRJD   MVC   REASON,RECDSPCD Because of disposition          @SC94181
  365.          B     RECRJC                                          @SC94181
  366. RECRJLL  MVC   REASON,RECLNCOD Because of length               @SC94181
  367.          B     RECRJC                                          @SC94181
  368. RECRJA   MVI   REASON,6      Because of "area" (couldn't open) @SC94181
  369.          B     RECRJC                                          @SC94181
  370. ./ I 08034500          $ 8034700 200                  06/30/94 17:17:14
  371.          LA    8,RECANST     Accept A, D, or Z now             @SC94181
  372. ./ R 08036000 08036500 $ 8036000 200                  06/30/94 16:32:21
  373.          B     RECDAKL       Acknowledge                       @SC94181
  374. ./ I 08041500          $ 8041700 200                  10/28/94 22:42:46
  375.          L     5,FILPTR                                        @SC94181
  376. ./ I 08042000          $ 8042100 100                  10/28/94 22:42:46
  377.          LTR   5,5           Was the file actually open?       @SC94181
  378.          BZ    RECKEP        No, don't worry about it          @SC94181
  379. ./ R 08058500          $ 8058500 70                   09/21/94 15:17:19
  380.          BZ    RECBRKA       No, that's fine                   @SC94181
  381.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  382.          BE    RECBRKA       Yes, not really an error          @SC94181
  383.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  384.          BNE   RECERP        No, send an error packet          @SC94181
  385. RECBRKA  DS    0H                                              @SC94181
  386. ./ R 08079000          $ 8079000 200                  09/21/94 01:21:04
  387. *        DC    XL1'FF',AL3(RECABR)   Stop (same as unknown)    @SC94181
  388. ./ D 08081500                                         09/21/94 01:21:04
  389. ./ R 08084000          $ 8084000 200                  06/30/94 14:49:18
  390.          DC    AL1(00),AL3(RECABR)   Error return              @SC94181
  391. RECAST   DC    AL1(AA),AL3(RECCKA)   Micro sent A-packet       @SC94181
  392. ./ I 08089500          $ 8089600 100                  06/28/94 18:25:34
  393. RECBLEN  DS    F             Length of recovery file           @SC94181
  394. RECDISP  DS    X             Requested disposition             @SC94181
  395. ./ I 08113500          $ 8113540 40                   10/28/94 22:42:46
  396. *
  397. * Copy file name from (R1) to current file table entry, if any @SC94181
  398. ACCTNM   ENTER ALT                                             @SC94181
  399.          L     3,NSENT       Number of current file            @SC94181
  400.          C     3,NSENTAC     Off the end?                      @SC94181
  401.          BNE   RTRN0         Yes, quit now                     @SC94181
  402.          BCTR  3,0           Ok, get offset                    @SC94181
  403.          MH    3,FLFID1+2    Times length of items             @SC94181
  404.          A     3,TSENT       Loc in sent-table                 @SC94181
  405.          MVC   ACTFID,0(1)   Save filespec                     @SC94181
  406.          B     RTRN0                                           @SC94181
  407. ./ R 08985500          $ 8986000 500                  06/29/94 20:43:04
  408.          TITLE 'TCOLL Routine - test for collision (RECEIV)'   @SC94181
  409. * Exit: R15=0 if ok (use name in FILNAM), else reject          @SC94181
  410. TCOLL    ENTER ,                                               @SC94181
  411.          TM    FILFLGS,APPN  Appending to old file?            @SC94181
  412.          BO    RTRN0         Yes, just do it                   @SC94181
  413.          CLI   CLSNFL,C'U'                                     @SC94181
  414.          BE    *+12          Update option overrides "warn"    @SC94181
  415.           TM   FL1,REN                                         @SC94181
  416.           BZ   RTRN0         No, just do it                    @SC94181
  417.          LA    0,FFNEW                                         @SC86295
  418.          KCALL FSPEC,FILNAM,E=RTRN1  Check collisions          @SC94181
  419.          TM    FL4,NMCHNG                                      @SC90033
  420.          BZ    RTRN0                                           @SC90033
  421.          CLI   CLSNFL,C'B'                                     @SC90033
  422.          BNE   TCLTSTD                                         @SC90033
  423.          LA    2,FILNAM      Must back up original file        @SC90033
  424.          LA    0,15          Rename it to unique new name      @SC90033
  425.          KCALL DISKIO,XFILE,E=RTRN1  Give up if rename fails   @SC90264
  426.          CLI   TRMLIN,C' '   Alt. line?                        @SC90033
  427.          BE    TCLBZ         No, be quiet                      @SC90033
  428.          INITSTR '&BACKDUP',CMD,REG=7                          @SC92300
  429.          LA    1,FILNAM                                        @SC90033
  430.          BAL   2,STAFSP      Format backup name and show it    @SC90033
  431. TCLBZ    MVC   FILNAM,XFILE  Now, just use intended name       @SC90033
  432. TCLMSG   DS    0H                                              @SC90033
  433.          CLI   TRMLIN,C' '   Alt. line?                        @SC87300
  434.          BE    RTRN0         No, be quiet                      @SC94181
  435.          INITSTR '&RECVDAS',CMD,REG=7  Yes, display message    @SC92300
  436.          LA    1,FILNAM                                        @SC87300
  437.          BAL   2,STAFSP      Format name and show it           @SC87300
  438.          B     RTRN0                                           @SC94181
  439. TCLTSTD  CLI   CLSNFL,C'D'                                     @SC90033
  440.          BNE   TCLTSTU       See if UPDATE                     @SC94181
  441.          MVI   REASON,STACNDSC Reason is collision (DISCARD)   @SC94181
  442.          B     RTRN1                                           @SC94181
  443. TCLTSTU  CLI   CLSNFL,C'U'                                     @SC94181
  444.          BNE   TCLMSG        Other case is just "rename"       @SC94181
  445.          CLI   FDATE,0                                         @SC94181
  446.          BE    TCLOKU                                          @SC94181
  447.          OPENF T,XFILE,E=TCLOKU Look at existing file          @SC94181
  448.          USING FDBD,1                                          @SC94181
  449.          CLI   FDBDATE,0     Is there a time tag?              @SC94181
  450.          BE    TCLOKU        No, skip this test                @SC94181
  451.          CLC   FDATE,FDBDATE Is the incoming file newer?       @SC94181
  452.          BH    TCLOKU        Yes, overwrite the file           @SC94181
  453.          DROP  1                                               @SC94181
  454.          MVI   REASON,STACNDAT No, reason is date              @SC94181
  455.          B     RTRN1                                           @SC94181
  456. TCLOKU   MVC   FILNAM,XFILE  Restore original name             @SC94181
  457.          B     RTRN0                                           @SC94181
  458.          LOCALS ,                                              @SC94181
  459.          EXIT  ,                                               @SC94181
  460.          END   KERMIT
  461. ./ * SC94245 - More accurate statistics after server transfers
  462. ./ R 02084000          $ 2084000 500                  05/29/92 ->4.3<-
  463.          LR    15,7          Get time supplied as "end"        @SC94245
  464. ./ I 07824500          $ 7824600 100                  05/29/92 ->4.3<-
  465.          KCALL SUPFNC,10     Get time of completion            @SC94245
  466.          LR    7,15          Save for statistics               @SC94245
  467. ./ I 08060500          $ 8060700 200                  05/29/92 ->4.3<-
  468.          KCALL SUPFNC,10     Say completion time is now        @SC94245
  469.          ST    15,RECTIMZ    Save                              @SC94245
  470. ./ R 08070000          $ 8070000 200                  05/29/92 ->4.3<-
  471. RECERP   KCALL SUPFNC,10     Say completion time is now        @SC94245
  472.          ST    15,RECTIMZ    Save                              @SC94245
  473.          KCALL ERPACK        Send error packet                 @SC94245
  474. ./ I 08070500          $ 8070700 200                  05/29/92 ->4.3<-
  475.          L     7,RECTIMZ                                       @SC94245
  476. ./ I 08089500          $ 8089550 50                   05/29/92 ->4.3<-
  477. RECTIMZ  DS    F             Ending time of transfer           @SC94245
  478. ./ * SC94262 - Leave room for table expansion (CICS)
  479. ./ R 01415400          $ 1415400 200                  09/30/93 14:45:03
  480. &KDATE   SETC  '94/09/20'                                      @SC94262
  481. ./ R 01513000          $ 1513000 100                  09/20/94 17:56:54
  482.          L     3,PTATOED                                       @SC94262
  483.          MVC   ATOE,0(3)                                       @SC94262
  484. ./ R 01515000          $ 1515000 1000                 09/20/94 17:56:54
  485.          MVC   TATOE,0(3)                                      @SC94262
  486. ./ R 01893000          $ 1893000 300                  09/20/94 17:56:54
  487.          L     4,PTATOED                                       @SC94262
  488.          TR    0(LEMSG,1),0(4) Convert to EBCDIC               @SC94262
  489. ./ I 02453000          $ 2453200 200                  09/20/94 17:56:54
  490. PTATOED  DC    A(ATOED)      Address of ASCII-to-EBCDIC def.   @SC94262
  491. ./ I 02519000          $ 2519500 500                  09/20/94 17:56:54
  492. DEFTBLS  CSECT                                                 @SC94262
  493. ./ I 02536000          $ 2536500 500                  09/20/94 17:56:54
  494. COMMON   CSECT                                                 @SC94262
  495. ./ R 03354000          $ 3354000 200                  09/20/94 17:56:54
  496. SETTAT2  L     2,PTATOED     Address of original               @SC94262
  497. ./ R 03635000          $ 3635000 100                  09/20/94 17:56:54
  498.          L     8,PTATOED                                       @SC94262
  499.          TR    TMP,0(8)      Convert to EBCDIC                 @SC94262
  500. ./ R 03840000          $ 3840000 200                  09/20/94 17:56:54
  501. GIVA1    L     0,PTATOED                                       @SC94262
  502. ./ I 05065000          $ 5065200 200                  09/20/94 20:32:10
  503.          L     14,PTATOED                                      @SC94262
  504. ./ R 05067000          $ 5067000 200                  09/20/94 20:32:10
  505. FSPTRAE  TR    0(,5),0(14)                                     @SC94262
  506. ./ R 07610500          $ 7610500 200                  09/20/94 17:56:54
  507.           L    14,PTATOED    Use default if "transparent"      @SC94262
  508. ./ R 07690000          $ 7690000 100                  09/20/94 17:56:54
  509.          L     2,PTATOED                                       @SC94262
  510.          TR    0(250,15),0(2) Back to EBCDIC                   @SC94262
  511. ./ I 07757800          $ 7757810 10                   09/20/94 17:56:54
  512.          L     4,PTATOED                                       @SC94262
  513. ./ R 07760700          $ 7760700 100                  09/20/94 17:56:54
  514. SNDTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  515. ./ R 07859000          $ 7859000 100                  09/20/94 17:56:54
  516.          L     14,PTATOED                                      @SC94262
  517.          TR    0(256,1),0(14) Convert to std EBCDIC            @SC94262
  518. ./ I 07925500          $ 7925700 200                  09/20/94 17:56:54
  519.          L     4,PTATOED                                       @SC94262
  520. ./ R 07973000          $ 7973000 100                  09/20/94 17:56:54
  521.          L     14,PTATOED                                      @SC94262
  522.          IC    4,0(4,14)     Ok, set file type as well         @SC94262
  523. ./ I 07978500          $ 7978700 200                  09/20/94 17:56:54
  524.          L     4,PTATOED                                       @SC94262
  525. ./ I 07984000          $ 7984200 200                  09/20/94 17:56:54
  526.          L     4,PTATOED                                       @SC94262
  527. ./ R 07987500          $ 7987500 200                  09/20/94 17:56:54
  528. RECTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  529. ./ R 08013000          $ 8013000 100                  09/20/94 17:56:54
  530.          L     1,PTATOED                                       @SC94262
  531.          TR    0(94,4),0(1)  Convert to EBCDIC                 @SC94262
  532. ./ R 08397000          $ 8397000 100                  09/20/94 17:56:54
  533.          L     4,PTATOED                                       @SC94262
  534.          TR    0(5,6),0(4)   No, must be 5-byte ASCII prefix   @SC94262
  535. ./ R 08584000          $ 8584000 100                  09/20/94 17:56:54
  536.          L     4,PTATOED                                       @SC94262
  537.          TR    STOPBUF,0(4)                                    @SC94262
  538. ./ * BM94344 - Support for CICS 3.3 (CICS)
  539. ./ I 01240000          $ 1240500 100                  12/14/94 20:36:40
  540.          AIF   ('&SYSPARM' GE '3.3').CICS3                     @SC94344
  541. ./ R 01243000 01244000 $ 1243000 1000                 12/14/94 20:36:40
  542. TDIOTYPE EQU   DCTSDSCI+48   TYPEFILE status (= OFLGS in DCB)  @SC94344
  543. TDIOOUT  EQU   X'80'         Output                            @SC94344
  544. ./ R 01246000 01248200 $ 1246000 100                  12/14/94 20:36:40
  545. TDBLK2   EQU   DCTSDSCI+62   BLKSIZE in DCB                    @SC94344
  546. TDLRC2   EQU   DCTSDSCI+82   LRECL in DCB                      @SC94344
  547. TDNREC   EQU   TDDCTTQC      Number of items in TDQ            @SC94344
  548.          AGO   .CICS2B                                         @SC94344
  549. .CICS2   AIF   ('&SYSPARM' GE '3.0').CICS2A                    @SC94344
  550. TDIOTYPE EQU   DCTSDSTF      TYPEFILE status                   @SC94344
  551. TDIOOUT  EQU   DCTSDSOP      Output                            @SC94344
  552. TDBLK2   EQU   DCTSDSBL      BLKSIZE in DCB                    @SC94344
  553. TDLRC2   EQU   DCTSDSRL      LRECL in DCB                      @SC94344
  554. TDNREC   EQU   TDDCTTQC      Number of items in TDQ            @SC94344
  555.          AGO   .CICS2B                                         @SC94344
  556. .CICS2A  ANOP                                                  @SC94344
  557. ./ R 01248600 01248800 $ 1248600 30                   12/14/94 20:36:40
  558. TDIOTYPE EQU   DCTSDTF       TYPEFILE status                   @SC94344
  559. TDIOOUT  EQU   X'80'         Output                            @SC94344
  560. TDBLK2   EQU   DCTSDSBL      BLKSIZE in DCB                    @SC94344
  561. TDLRC2   EQU   DCTSDSRL      LRECL in DCB                      @SC94344
  562. TDNREC   EQU   TDDCTTQC      Number of items in TDQ            @SC94344
  563. .CICS2B  ANOP                                                  @SC94344
  564. ./ I 01254000          $ 1254200 200                  12/14/94 20:36:40
  565. .CICS3   ANOP                                                  @SC94344
  566. ./ R 01415400          $ 1415400 200                  12/12/94 11:15:03
  567. &KDATE   SETC  '94/12/12'                                      @SC94262
  568. ./ I 05579000          $ 5579200 200
  569.          AIF   ('&SYSPARM' GE '3.3').CICS3A                    @SC94344
  570. ./ I 05582500          $ 5582700 200
  571. .CICS3A  ANOP                                                  @SC94344
  572. ./ R 05676500          $ 5676500 500
  573.          DC    Y(DSKNXT-DSK0,DSKFLUSH-DSK0,DSKCWDF-DSK0)  6-8  @BM94344
  574. ./ R 05863500          $ 5863500 500
  575.          TM    FDBFL2,TDINDTBM Intra-partition?                @BM94344
  576. ./ I 05931000          $ 5931200 200
  577.          AIF   ('&SYSPARM' GE '3.3').CICS3C                    @SC94344
  578. ./ I 05942000          $ 5942010 10
  579.          AGO   .CICS3C2                                        @SC94344
  580. .CICS3C  ANOP                                                  @SC94344
  581.          L     7,DFHEIBP                                       @BM94344
  582.          USING DFHEIBLK,7                                      @BM94344
  583.          EXEC CICS INQUIRE TSQUEUE(FABFNAM) FLENGTH(FDBSIZEB), @BM94344+
  584.                MAXITEMLEN(FDBXLRC) NUMITEMS(FDBNREC),          @BM94344+
  585.                RESP(FABRESP),                                  @BM94344
  586.          CLC   FABRESP(4),DFHRESP(NORMAL)                      @BM94344
  587.          BNE   DSKLKNF                                         @BM94344
  588.          DROP  7                                               @BM94344
  589. .CICS3C2 ANOP                                                  @SC94344
  590. ./ I 05944000          $ 5944200 200
  591.          AIF   ('&SYSPARM' GE '3.3').CICS3D                    @SC94344
  592. ./ I 05949500          $ 5949510 10
  593.          AGO   .CICS3D2                                        @SC94344
  594. .CICS3D  ANOP                                                  @SC94344
  595. DSKLKPD  L     7,DFHEIBP                                       @BM94344
  596.          USING DFHEIBLK,7                                      @BM94344
  597.          EXEC CICS INQUIRE TDQUEUE(FABFNAM) IOTYPE(TDIOTYPE),  @BM94344+
  598.                NUMITEMS(TDNREC) RECORDFORMAT(TDRECFM),         @BM94344+
  599.                RECORDLENGTH(TDLRC) TYPE(TDTYPE) RESP(FABRESP), @BM94344
  600.          CLC   FABRESP(4),DFHRESP(NORMAL)                      @BM94344
  601.          BNER  2             Yes, return CC=NZ                 @BM94344
  602.          DROP  7                                               @BM94344
  603.          MVC   FDBNREC,TDNREC+2 Pick up HW numitems            @BM94344
  604.          CLC   TDTYPE,DFHVALUE(INTRA)                          @BM94344
  605.          BNE   *+12                                            @BM94344
  606.           OI   FDBFL2,TDINDTBM                                 @BM94344
  607.           B    DSKLKDX0                                        @BM94344
  608.          CLC   TDTYPE,DFHVALUE(EXTRA)                          @BM94344
  609.          BNER  2                                               @BM94344
  610.          OI    FDBFL2,TDEXTRBM                                 @BM94344
  611. .CICS3D2 ANOP                                                  @SC94344
  612. ./ R 05950000          $ 5950000 500
  613. DSKLKDX0 TM    FDBFL2,TDINDTBM     INTRA?                      @BM94344
  614. ./ R 05951000          $ 5951000 200                  12/14/94 03:51:50
  615.          CLC   F0,TDNREC     Yes, any records in it?           @SC94344
  616. ./ R 05952500          $ 5952500 500
  617. DSKLKDX  TM    FDBFL2,TDEXTRBM  EXTRA?                         @BM94344
  618. ./ I 05953500          $ 5953700 200
  619.          AIF   ('&SYSPARM' GE '3.3').CICS3E                    @SC94344
  620. ./ I 05955000          $ 5955040 40
  621.          AGO   .CICS3E2                                        @SC94344
  622. .CICS3E  ANOP                                                  @SC94344
  623.          MVI   FDBXRCF,X'80' F                                 @BM94344
  624.          CLC   TDRECFM,DFHVALUE(FIXED)                         @BM94344
  625.          BE    *+8                                             @BM94344
  626.           MVI  FDBXRCF,X'C0' U                                 @BM94344
  627.          CLC   TDIOTYPE,DFHVALUE(OUTPUT)                       @BM94344
  628.          MVI   TDIOTYPE,0                                      @SC94344
  629.          BNE   *+8                                             @SC94344
  630.           OI   TDIOTYPE,TDIOOUT It's for output                @SC94344
  631. .CICS3E2 ANOP                                                  @SC94344
  632. ./ R 05955500 05956000 $ 5955500 500                  12/14/94 03:51:50
  633.          MVC   FDBXLRC,TDLRC2   LRECL                          @SC94344
  634.          MVC   FDBXBLK,TDBLK2   BLKSI                          @SC94344
  635. ./ R 05958500          $ 5958500 200                  12/14/94 20:36:40
  636.          TM    TDIOTYPE,TDIOOUT   Output?                      @SC94344
  637. ./ R 05961000          $ 5961000 200                  12/14/94 20:36:40
  638. DSKLKDA  TM    TDIOTYPE,TDIOOUT   Output?                      @SC94344
  639. ./ I 05990500          $ 5990700 200                  12/14/94 22:37:16
  640.          B     DSKNSX                                          @SC94344
  641. ./ I 05991500          $ 5991700 200
  642. DSKFLUSH MVI   NXDEST,0                                        @SC94344
  643. ./ I 05992000          $ 5992200 200                  12/14/94 22:37:16
  644.          AIF   ('&SYSPARM' GE '3.3').CICS3H                    @SC94344
  645. ./ I 05996000          $ 5996010 10
  646.          AGO   .CICS3H2                                        @SC94344
  647. .CICS3H  ANOP                                                  @SC94344
  648.          LA    3,DSKSTT                                        @BM94344
  649.          L     7,DFHEIBP                                       @BM94344
  650.          USING DFHEIBLK,7                                      @BM94344
  651. * End searching in case previously started; ignore conditions  @BM94344
  652.          EXEC CICS INQUIRE TSQUEUE END RESP(FABRESP),          @BM94344
  653.          EXEC CICS INQUIRE TDQUEUE END RESP(FABRESP),          @BM94344
  654.          TM    NXDEST,FABFTS                                   @SC94344
  655.          BNO   DSKNSX1                                         @BM94344
  656.          EXEC CICS INQUIRE TSQUEUE START RESP(FABRESP),        @BM94344
  657.          B     DSKNDXEX                                        @BM94344
  658. DSKNSX1  TM    NXDEST,FABFTD                                   @SC94344
  659.          BNO   RTRN0         Must expand later                 @SC94344
  660.          EXEC CICS INQUIRE TDQUEUE START RESP(FABRESP),        @BM94344
  661. DSKNDXEX CLC   FABRESP(4),F0 Ok?                               @BM94344
  662.          BE    RTRN0         Yes                               @BM94344
  663.          B     RTRN1                                           @BM94344
  664.          DROP  7                                               @BM94344
  665. .CICS3H2 ANOP                                                  @SC94344
  666. ./ I 06020000          $ 6020200 200
  667.          LA    3,DSKSTT                                        @BM94344
  668. ./ I 06025000          $ 6025200 200
  669.          AIF   ('&SYSPARM' GE '3.3').CICS3J                    @SC94344
  670. ./ I 06040500          $ 6040600 100
  671. .CICS3J  ANOP                                                  @SC94344
  672. ./ I 06043500          $ 6043700 200
  673.          AIF   ('&SYSPARM' GE '3.3').CICS3K                    @SC94344
  674. ./ I 06044000          $ 6044200 100
  675. .CICS3K  ANOP                                                  @SC94344
  676. ./ I 06058000          $ 6058200 200
  677.          AIF   ('&SYSPARM' GE '3.3').CICS3L                    @SC94344
  678. ./ I 06061500          $ 6061520 20
  679.          MVC   FDBFL2,TDDCTDT  Copy flags so we'll remember    @SC94344
  680.          AGO   .CICS3L2                                        @SC94344
  681. .CICS3L  ANOP                                                  @SC94344
  682.          MVC   NXPTR,F0      In case none left                 @SC94344
  683.          L     7,DFHEIBP                                       @BM94344
  684.          USING DFHEIBLK,7                                      @BM94344
  685.          EXEC CICS INQUIRE TDQUEUE(FABFNAM) NEXT,              @BM94344+
  686.                IOTYPE(TDIOTYPE) NUMITEMS(TDNREC),              @BM94344+
  687.                RECORDFORMAT(TDRECFM) RECORDLENGTH(TDLRC),      @BM94344+
  688.                TYPE(TDTYPE) RESP(FABRESP),                     @BM94344
  689.          CLC   FABRESP(4),DFHRESP(NORMAL)                      @BM94344
  690.          BE    NXTDCHK                                         @BM94344
  691.          EXEC CICS INQUIRE TDQUEUE END RESP(FABRESP),          @BM94344
  692.          B     RTRN1                                           @BM94344
  693.          DROP  7                                               @BM94344
  694. NXTDCHK  CLC   TDTYPE,DFHVALUE(INTRA)                          @BM94344
  695.          BNE   *+12                                            @BM94344
  696.           OI   FDBFL2,TDINDTBM                                 @BM94344
  697.           B    NXTCHEK1                                        @BM94344
  698.          CLC   TDTYPE,DFHVALUE(EXTRA)                          @BM94344
  699.          BNE   NXTCHEK1                                        @BM94344
  700.          OI    FDBFL2,TDEXTRBM                                 @BM94344
  701. NXTCHEK1 LA    1,1           Pseudo ptr to next item           @SC94344
  702. .CICS3L2 ANOP                                                  @SC94344
  703. ./ I 06066500          $ 6066700 200                  12/14/94 03:51:50
  704.          DROP  9                                               @SC94344
  705. ./ D 06074000
  706. ./ R 06075500          $ 6075500 100
  707.          TM    FDBFL2,TDEXTRBM EXTRA?                          @SC94344
  708. ./ I 06076000          $ 6076200 200
  709.          AIF   ('&SYSPARM' GE '3.3').CICS3M                    @SC94344
  710. ./ R 06078000 06078500 $ 6078000 500                  12/14/94 03:51:50
  711.          MVC   FDBXLRC,TDLRC2   LRECL                          @SC94344
  712.          MVC   FDBXBLK,TDBLK2   BLKSI                          @SC94344
  713. ./ I 06079000          $ 6079020 20
  714.          AGO   .CICS3M2                                        @SC94344
  715. .CICS3M  ANOP                                                  @SC94344
  716.          ICM   7,15,TDNREC                                     @SC94344
  717.          BNP   *+8                                             @BM94344
  718.           STH  7,FDBNREC       LOCATION OF NUMITEMS            @BM94344
  719.          ICM   7,15,TDLRC                                      @SC94344
  720.          BNP   *+12                                            @BM94344
  721.           STH  7,FDBXLRC     Location of LRECL                 @BM94344
  722.           STH  7,FDBXBLK     Location of BLKSI                 @SC94344
  723.          MVI   FDBXRCF,X'80' F                                 @BM94344
  724.          CLC   TDRECFM,DFHVALUE(FIXED)                         @BM94344
  725.          BE    NXTCHEK2                                        @BM94344
  726.          MVI   FDBXRCF,X'40' V                                 @BM94344
  727.          CLC   TDRECFM,DFHVALUE(VARIABLE)                      @BM94344
  728.          BE    NXTCHEK2                                        @BM94344
  729.          MVI   FDBXRCF,X'C0' U                                 @BM94344
  730. NXTCHEK2 LA    6,FABFNAM                                       @BM94344
  731. .CICS3M2 ANOP                                                  @SC94344
  732. ./ I 06084000          $ 6084200 200
  733.          AIF   ('&SYSPARM' GE '3.3').CICS3N                    @SC94344
  734. ./ I 06089000          $ 6089200 200
  735.          ST    1,DSKSECPL    Ptr to TSUTE                      @SC94344
  736. ./ I 06089500          $ 6089520 20
  737.          AGO   .CICS3N2                                        @SC94344
  738. .CICS3N  ANOP                                                  @SC94344
  739. NXFNXTS  DS    0H                                              @BM94344
  740.          L     7,DFHEIBP                                       @BM94344
  741.          USING DFHEIBLK,7                                      @BM94344
  742.          EXEC CICS INQUIRE TSQUEUE(FABFNAM) NEXT,              @BM94344+
  743.                MAXITEMLEN(FDBLRC) NUMITEMS(FDBNREC),           @BM94344+
  744.                FLENGTH(FDBSIZEB) RESP(FABRESP),                @BM94344
  745.          CLC   FABRESP(4),DFHRESP(NORMAL)                      @BM94344
  746.          MVC   NXPTR,F0      In case none left                 @SC94344
  747.          BE    NXFNXTSG                                        @BM94344
  748.          EXEC CICS INQUIRE TSQUEUE END RESP(FABRESP),          @BM94344
  749.          B     RTRN1                                           @BM94344
  750.          DROP  7                                               @BM94344
  751. NXFNXTSG LA    6,FABFNAM    FILE NAME                          @BM94344
  752.          LA    1,1           Pseudo ptr to next item           @SC94344
  753. .CICS3N2 ANOP                                                  @SC94344
  754. ./ D 06090500
  755. ./ I 06091000          $ 6091200 200
  756.          AIF   ('&SYSPARM' GE '3.3').CICS3O                    @SC94344
  757. ./ I 06097000          $ 6097200 20
  758. .CICS3O  ANOP                                                  @SC94344
  759. ./ I 06134500          $ 6134700 200
  760.          AIF   ('&SYSPARM' GE '3.3').CICS3P                    @SC94344
  761. ./ I 06152000          $ 6152020 20
  762.          AGO   .CICS3P2                                        @SC94344
  763. .CICS3P  ANOP                                                  @SC94344
  764.          ICM   0,15,FDBSIZEB Did INQUIRE render a value?       @BM94344
  765.          BP    DSKADJKB      Yes, then go use it               @BM94344
  766.          LA    0,80          Otherwise multiply number of recs @BM94344
  767.          MH    0,FDBNREC      by 80 to get some value          @BM94344
  768. DSKADJKB LH    1,FDBXLRC     Max record length                 @BM94344
  769. .CICS3P2 ANOP                                                  @SC94344
  770. ./ D 06164000
  771. ./ R 06166000          $ 6166000 200                  12/14/94 03:51:50
  772.          MVC   FDBNREC,TDNREC+2 Yes, grab record count         @SC94344
  773. ./ R 06174500          $ 6174500 100
  774. DSKVLR   LTR   1,1                                             @BM94344
  775.          BP    LRCNOT0                                         @BM94344
  776.          L     1,MAXLRC      Use max length by default     cmh @BM94344
  777.          S     1,F4          Truncate for overhead         cmh @BM94344
  778. LRCNOT0  STH   1,FDBLRC                                        @BM94344
  779. ./ I 06192700          $ 6192720 20                   12/14/94 03:51:50
  780.          AIF   ('&SYSPARM' LT '3.3').CICS3Q                    @SC94344
  781. TDIOTYPE DS    F             INPUT OUTPUT READBACK             @BM94344
  782. TDIOOUT  EQU   X'80'         Output (dummy)                    @SC94344
  783. TDRECFM  DS    F             FIXED VARIABLE N/A                @BM94344
  784. TDTYPE   DS    F             INTRA EXTRA REMOTE INDIRECT       @BM94344
  785. TDNREC   DS    F             Num. of records                   @BM94344
  786. TDLRC    DS    F             Rec. length                       @BM94344
  787.          ORG   TDLRC+2                                         @SC94344
  788. TDLRC2   DS    0H            Substitute for SDSCI LRECL        @SC94344
  789. TDBLK2   DS    H             Substitute for SDSCI BLKSI        @SC94344
  790. .CICS3Q  ANOP                                                  @SC94344
  791. ./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  792. ./ R 01415400          $ 1415400 200                  01/23/95 11:12:19
  793. &KDATE   SETC  '95/01/23'                                      @SC95023
  794. ./ I 01422200          $ 1422300 100                  01/23/95 11:12:19
  795. AESC     EQU   27            ASCII ESC                         @SC95023
  796. ./ I 01424000          $ 1424100 100                  01/23/95 11:12:19
  797. ABSL     EQU   92            ASCII backslash                   @SC95023
  798. ./ I 03028500          $ 3028700 200                  01/23/95 11:12:19
  799.          KW    'APC',USNAPC,MIN=3                              @SC95023
  800. ./ I 03103000          $ 3103030 30                   01/23/95 11:12:19
  801. *
  802. USNAPC   L     5,ADR         Pointer to rest of line           @SC95023
  803.          ICM   4,15,LEN      Remaining data length             @SC95023
  804.          BNP   KRMXPEH       Go if nothing specified           @SC95023
  805.          L     3,RBUF                                          @SC95023
  806.          ICM   0,2,ATOE+AESC Get special wrapper for APC       @SC95023
  807.          ICM   0,1,ATOE+AUND Must use current EBCDIC codes     @SC95023
  808.          STCM  0,3,0(3)                                        @SC95023
  809.          MVC   2(256,3),0(5) Copy to disk read buffer          @SC95023
  810.          AR    4,3           Get end                           @SC95023
  811.          ICM   0,1,ATOE+ABSL Closing wrapper                   @SC95023
  812.          STCM  0,3,2(4)                                        @SC95023
  813.          LA    4,4(4)        Account for wrapper               @SC95023
  814.          B     USNAPC1                                         @SC95023
  815. ./ D 03105200                                         01/23/95 11:12:19
  816. ./ I 03106500          $ 3106700 200                  01/23/95 11:12:19
  817. USNAPC1  MVI   USNCOD,0      No special disposition            @SC95023
  818. ./ R 07765100          $ 7765100 50                   01/23/95 19:14:24
  819.          LTR   5,5           Any?                              @SC95023
  820. ./ R 07765200          $ 7765200 50                   01/23/95 19:14:24
  821. SNDRECL  KCALL INBUF,E=SNDEND                                  @SC95023
  822. ./ R 07765300          $ 7765300 50                   01/23/95 19:14:24
  823.          BH    SNDRECL       Keep skipping                     @SC95023
  824. ./ * SC95032 - Allow Recovery into almost-full file system
  825. ./ R 01415400          $ 1415400 200                  02/01/95 12:29:03
  826. &KDATE   SETC  '95/02/01'                                      @SC95032
  827. ./ I 07986000          $ 7986080 80                   02/01/95 16:54:31
  828.          TM    RCAPA,X'18'   Attributes, including End?        @SC95032
  829.          BNO   RECAL3        No, do space test now             @SC95032
  830.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC95032
  831.          BO    RECCKL        Yes, defer space test             @SC95032
  832. RECAL3   DS    0H                                              @SC95032
  833. ./ * SC95033 - Update to level 4.3.1
  834. ./ R 01415400 01415600 $ 1415400 200                  02/02/95 12:29:03
  835. &KDATE   SETC  '95/02/02'                                      @SC95033
  836. &KEDIT   SETC  '1'                                             @SC95033
  837. ./ * SC95041 - Avoid obsolete COPY book in CICS 3.3 and higher
  838. ./ D 01253000 01254000                                02/10/95 13:52:24
  839. ./ I 01416500          $ 1416520 20                   02/10/95 13:52:24
  840.          AIF   ('&SYSPARM' GE '3.3').CICS2C                    @SC95041
  841.          COPY  DFHTSMDS                                        @SC95041
  842.          DROP  TSMAPBAR                                        @SC95041
  843. .CICS2C  ANOP                                                  @SC95041
  844. ./ * SC95059 - Preserve transmitted time tag for RESENT file
  845. ./ I 08026040          $ 8026050 10                   02/28/95 19:49:43
  846.          MVC   RECBDAT,FDATE Save date for output file         @SC95059
  847. ./ I 08026280          $ 8026290 10                   02/28/95 19:49:43
  848.          MVC   FDATE,RECBDAT Restore date for output file      @SC95059
  849. ./ I 08089600          $ 8089650 50                   02/28/95 19:49:43
  850. RECBDAT  DS    XL7           Saved date for output file        @SC95059
  851. ./ * SC95108 - Prevent error-free transfers from halting TAKE files
  852. ./ I 02116000          $ 2116500 500                  04/18/95 18:47:43
  853. * Set CC according to R15.                                     @SC95108
  854. ./ R 02120000          $ 2120490 490                  04/18/95 18:47:43
  855.          ICM   15,1,ERRNUM   Return status code                @SC95108
  856. ./ * SC95174 - Implement REGET subcommand
  857. ./ R 01413700          $ 1413700 40                   06/23/95 21:21:34
  858.          GBLC  &AAARSND,&AUPDATE,&AAARGET                      @SC95174
  859. ./ I 01460400          $ 1460450 50                   06/23/95 21:21:34
  860. &AAARGET SETC 'REGET'           cmd, m=3                       @SC95174
  861. ./ R 03030500          $ 3030500 200                  06/23/95 21:13:35
  862.          KW    '&AAAAGET',KRMGET,R                             @SC95174
  863. ./ I 03032000          $ 3032200 200                  06/23/95 21:13:35
  864.          KW    '&AAARGET',KRMGET,J,MIN=3                       @SC95174
  865. ./ R 03034700          $ 3034700 40                   06/23/95 21:13:35
  866.          DC    X'0'          Normal type has no disp code      @SC95174
  867. ./ R 03052500          $ 3052500 100                  06/23/95 21:13:35
  868. KRMGET   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC95174
  869.          PTEXT '&FORFSPC - ',AREG=1,LREG=0                     @SC95174
  870. ./ R 03065000          $ 3065000 100                  06/23/95 21:13:35
  871.          MVC   STYPE,USNCOD  Type = receive initiate (R/J)     @SC95174
  872.          TR    STYPE,ETOAD                                     @SC95174
  873. ./ I 07508500          $ 7508700 200                  06/23/95 21:13:35
  874.          DC    AL1(AJ),AL3(SRVSND)  Micro wants to get a file  @SC95174
  875. ./ R 07530500          $ 7530500 100                  06/23/95 21:13:35
  876.          SR    1,1           Normal send is code 0             @SC95174
  877.          CLI   RTYPE,AJ      Is it a REGET?                    @SC95174
  878.          BNE   *+8                                             @SC95174
  879.           LA   1,AR          Yes, use the RESEND code          @SC95174
  880.          KCALL SEND                                            @SC95174
  881. ./ * SC96122 - Avoid endless double transmission from windowed Kermit
  882. ./ R 01917400 01917800 $ 1917400 100                  05/02/96 20:09:53
  883.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  884.          CLI   DATLSN,0      "plain" only if no data           @SC96122
  885.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  886.          CLC   RSN,SSN       Yes, did we rereceive the prev?   @SC96122
  887.          BNE   SENDNAK       No, must be bad packet, send NAK  @SC96122
  888. SENDRTA  DS    0H                                              @SC96122
  889. ./ I 02619000          $ 2619100 100                  05/02/96 20:09:53
  890. SSN      DS    X             Last sent pkt number              @SC96122
  891. ./ I 08473000          $ 8473200 200                  05/02/96 20:09:53
  892.          MVC   SSN,SEQ       Save an extra copy                @SC96122
  893. ./ * SC96151 - Add system ID to INIT packets
  894. ./ R 08234300          $ 8234250 50                   05/31/96 22:26:14
  895.          MVC   18(LSYSATR-1,9),SYSATR+1 Copy system ID         @SC96151
  896.          LA    0,18+LSYSATR-1   Size of data including ID      @SC96151
  897. ./ * SC96158 - Never skip sending an I-packet while in remote mode
  898. ./ I 01934000          $ 1934300 300                  06/06/96 23:14:40
  899.          CLI   TRMLIN,C' '   Alt. line?                        @SC96158
  900.          BE    IPKGO         No, send I-packet regardless      @SC96158
  901. ./ I 01936000          $ 1936500 500                  06/06/96 23:14:40
  902. IPKGO    DS    0H                                              @SC96158
  903. ./ * SC96165 - Correct handling of dates in 2000's (CICS)
  904. ./ R 06251500 06252000 $ 6251500 200                  06/13/96 15:55:21
  905.          ZAP   TMPDW,EIBDATE      Copy CYYDDD                  @SC96165
  906.          AP    TMPDW,=P'1900000'  Convert to calendar          @SC96165
  907.          MVC   KFSDATE(2),TMPDW+4 Copy year                    @SC96165
  908.          XC    TMPDW(6),TMPDW Clear year portion               @SC96165
  909. ./ D 06263500 06265000                                06/13/96 15:55:21
  910. ./ * SC97028 - Clear 'Kermit command error' condition correctly
  911. ./ I 02279000          $ 2279500 500                  01/28/97 20:49:24
  912. LUPWRT   WTEXT (3),(4)                                         @SC97028
  913. ./ R 02288000          $ 2288000 500                  01/28/97 20:49:24
  914.          WTEXT (3),(4)                                         @SC97028
  915. ./ * SC97164 - Update to level 4.3.2
  916. ./ R 01415400 01415600 $ 1415400 200                  06/13/97 12:29:03
  917. &KDATE   SETC  '97/06/13'                                      @SC97164
  918. &KEDIT   SETC  '2'                                             @SC97164
  919.