home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ibm370.tar.gz
/
ibm370.tar
/
ikxker.upd
< prev
next >
Wrap
Text File
|
1997-12-16
|
64KB
|
919 lines
./ * Update summary:
./ * SC93342 - Use date transmitted with file (CICS)
./ * SC94074 - NAK bad data packet instead of re-ACKing previous
./ * SC94174 - WHATAMI option for file type
./ * SC94181 - Implement level-1 restart/recovery mode (CICS)
./ * SC94245 - More accurate statistics after server transfers
./ * SC94262 - Leave room for table expansion (CICS)
./ * BM94344 - Support for CICS 3.3 (CICS)
./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
./ * SC95032 - Allow Recovery into almost-full file system
./ * SC95033 - Update to level 4.3.1
./ * SC95041 - Avoid obsolete COPY book in CICS 3.3 and higher
./ * SC95059 - Preserve transmitted time tag for RESENT file
./ * SC95108 - Prevent error-free transfers from halting TAKE files
./ * SC95174 - Implement REGET subcommand
./ * SC96122 - Avoid endless double transmission from windowed Kermit
./ * SC96151 - Add system ID to INIT packets
./ * SC96158 - Never skip sending an I-packet while in remote mode
./ * SC96165 - Correct handling of dates in 2000's (CICS)
./ * SC97028 - Clear 'Kermit command error' condition correctly
./ * SC97164 - Update to level 4.3.2
./ * .....Updates.....
./ * SC93342 - Use date transmitted with file (CICS)
./ I 01038000 $ 1038200 200 12/08/93 18:01:27
FABNDAT DS CL7 Intended date for output file @SC93342
./ I 01416400 $ 1416500 100 09/01/94 21:20:42
SSYMS , @SC93342
./ D 01416800 09/01/94 21:20:42
./ I 05695500 $ 5695700 200 12/08/93 18:10:17
MVC FABNDAT,FDATE Save date from other end @SC93342
./ I 05726000 $ 5726200 200 12/08/93 18:10:17
XC FDATE,FDATE Clear date again @SC93342
./ I 06250500 $ 6250600 100 09/01/94 18:10:17
MVC KFSDATE,FABNDAT Possible override date/time @SC93342
CLC F0,FABNDAT Any date to fill in? @SC93342
BNE KFLCLD3 Yes, use it @SC93342
./ I 06266000 $ 6266200 200 09/01/94 18:10:17
KFLCLD3 DS 0H @SC93342
./ * SC94074 - NAK bad data packet instead of re-ACKing previous
./ I 01917000 $ 1917200 200 03/15/94 16:25:11
CLI STYPE,AY See if sent a plain ACK @SC94074
BNE *+12 No, resend whatever it was @SC94074
CLI DATLSN,0 "plain" only if no data @SC94074
BE SENDNAK Yes, send a NAK @SC94074
./ R 02579000 $ 2579000 1000 03/15/94 16:25:11
DATL DS F Size of data in packet (S or R) @SC94074
./ I 02617000 $ 2617200 200 03/15/94 16:25:11
DATLSN DS X Data length in last packet sent @SC94074
./ I 08466500 $ 8466600 100 03/15/94 16:25:11
STC 9,DATLSN Copy length of data sent, if any @SC94074
./ * SC94174 - WHATAMI option for file type
./ I 01424200 $ 1424300 100 06/23/94 22:46:07
AUND EQU 95 ASCII underscore @SC94174
./ I 02082200 $ 2082300 100 06/23/94 22:46:07
MVI WHATRU,0 No valid value anymore @SC94174
./ R 02492000 $ 2492000 500 06/24/94 00:00:08
DC AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL) @SC94174
./ I 02680000 $ 2680500 500 06/23/94 18:34:18
WHATRU DS X Mode info from other Kermit @SC94174
./ R 02716000 $ 2716000 500 06/24/94 00:00:08
DS AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL) @SC94174
./ D 08159500 08160000 06/24/94 01:36:05
./ I 08167500 $ 8167600 100 06/24/94 01:36:05
TM RCAPA,LONGP Test for long packet bit @SC94174
BZ SPARNX No extended packets @SC94174
./ I 08168500 $ 8168510 10 06/23/94 18:26:14
BAL 14,SPARFTCH Get checkpoint flag @SC94174
* UNCHR 4,,SCKPNT Save for later @SC94174
XR 1,1 Clear checkpoint length @SC94174
LA 15,3 @SC94174
SPARCKPL MH 1,XLFCT+2 Shift left @SC94174
BAL 14,SPARFTCH Get next checkpoint length byte @SC94174
UNCHR 4 @SC94174
AR 1,4 @SC94174
BCT 15,SPARCKPL @SC94174
* ST 1,SCKINT @SC94174
BAL 14,SPARFTCH Get WHATAMI @SC94174
UNCHR 4,,WHATRU @SC94174
TM WHATRU,X'20' Valid? @SC94174
BZ SPARWHT No, skip it @SC94174
TM FL2,SRV Acting as server? @SC94174
BZ SPARWHT No, skip it @SC94174
IC 0,FL1 Get my file-type flag @SC94174
SRL 0,1 Shift BINF (4) to 2-bit @SC94174
XR 0,4 Compare (client 2-bit is binary) @SC94174
N 0,F2 Do they match? @SC94174
BZ SPARWHT Yes, all set @SC94174
XI FL1,BINF No, switch my setting @SC94174
MVI TYPFIL,C'T' Also set the subflag @SC94174
TM FL1,BINF @SC94174
BZ SPARWHT @SC94174
MVI TYPFIL,C'B' @SC94174
SPARWHT DS 0H @SC94174
./ R 08219000 $ 8219000 100 06/23/94 18:26:14
MVI 10(9),ABL Window size is blank @SC86295
./ R 08229500 $ 8229500 200 06/23/94 18:26:14
BNH RPARS1 KMAX >= RPSIZ @SC94174
./ R 08230500 $ 8230500 200 06/23/94 18:26:14
SH 5,=H'7' Allow for long header @SC94174
./ D 08231500 06/24/94 00:00:08
./ R 08233500 08234000 $ 8233400 100 06/23/94 18:26:14
MVC 13(4,9),DEFPARM+13 No ckpt support @SC94174
LA 4,X'24' Bits always on in WHATAMI @SC94174
TM FL1,BINF Binary? @SC94174
BZ *+8 @SC94174
LA 4,2(,4) Yes @SC94174
TM FL2,SRV Server mode? @SC94174
BZ *+8 @SC94174
LA 4,1(,4) Yes @SC94174
TOCHR 4,,17(9) @SC94174
LA 0,18 Size of data including WHATAMI @SC94174
./ * SC94181 - Implement level-1 restart/recovery mode (CICS)
./ I 01002000 $ 1002300 300 06/29/94 18:55:26
FDBSIZEB DS F File size in bytes @SC94181
./ I 01413600 $ 1413700 100 09/14/94 15:49:04
GBLC &AAARSND,&AUPDATE @SC94181
./ R 01415400 01415600 $ 1415400 200 09/30/93 14:45:03
&KDATE SETC '94/06/30' @SC94181
&KEDIT SETC '1 TEST' @SC94181
./ I 01460400 $ 1460500 100 06/28/94 18:25:34
&AAARSND SETC 'RESEND' cmd, m=3 @SC94181
./ I 01475800 $ 1475900 100 09/20/94 21:29:31
&AUPDATE SETC 'UPDATE' kwd->COLLISN @SC94181
./ I 02119000 $ 2119100 100 09/21/94 15:17:19
CLI ERRNUM,ERRTRC Canceled? @SC94181
BNE LDERR2 @SC94181
CLI REASON,STACNDAT Date too early? @SC94181
BER 14 Not an error @SC94181
CLI REASON,STACNDSC Simply a duplicate? @SC94181
BER 14 Not an error @SC94181
LDERR2 DS 0H @SC94181
./ R 02494000 $ 2494000 500 06/28/94 18:25:34
DC X'38' Capabilities I have SCAPA @SC94181
./ R 03033000 $ 3033000 80 06/28/94 18:25:34
KW '&AAARSND',KRMSND,R,MIN=3 @SC94181
SNDKCMD KW '&AAASEND',KRMSND,MIN=3 @SC94181
ORG SNDKCMD+KWCODE @SC94181
DC X'0' Normal send has no disp code @SC94181
ORG , @SC94181
./ R 03034500 $ 3034500 100 10/15/94 18:25:34
XTYKCMD KW '&AAXTYPE',KRMNPS,MIN=2 @SC94181
ORG XTYKCMD+KWCODE @SC94181
DC X'0' Normal send has no disp code @SC94181
ORG , @SC94181
./ R 03081000 $ 3081000 200 06/28/94 18:25:34
KRMSND MVC USNCOD,KWCODE(1) Save send command abbrev @SC94181
PTEXT '&SYSFSPC - ',AREG=1,LREG=0 @SC94181
./ R 03094000 03095000 $ 3094000 90 09/21/94 16:45:10
KRMSNDBG SR 1,1 @SC94181
ICM 1,1,USNCOD Get send command code @SC94181
BZ USNSND3 Fine, no special disposition @SC94181
TM SCAPA,8 Can we do attributes? @SC94181
BZ USNSNDX No, give up right away @SC94181
TM ATFL2,ATFDSP Disposition attribute enabled? @SC94181
BZ USNSNDX No, can't do it @SC94181
TM ATFLG,ATFTYP Type attribute enabled? @SC94181
BZ USNSNDX Can't do it @SC94181
TM ATFL4,ATFEND End-of-atts attribute enabled? @SC94181
BZ USNSNDX Can't do it @SC94181
TM FL1,BINF Are we binary? @SC94181
BZ USNSNDX1 No, can't do it @SC94181
USNSND3 IC 1,ETOAD(1) Use ASCII version of Disp code @SC94181
XC LEN,LEN Clear length of Disp options @SC94181
KCALL SEND @SC94181
KRMXFZ BAL 14,LDERR Get massaged error code @SC94181
./ I 03096000 $ 3096080 80 06/28/94 18:25:34
B USNSNDZ @SC94181
USNSNDX WTEXT '&ATTRIBU &AZDISAB' @SC94181
B USNSNDZ @SC94181
USNSNDX1 WTEXT '&CANNOT.&AAARSND ->&AAAABIN' @SC94181
USNSNDZ DS 0H @SC94181
./ I 03105000 $ 3105200 200 06/28/94 18:25:34
MVI USNCOD,0 No special disposition @SC94181
./ I 03130500 $ 3130700 200 06/28/94 18:25:34
USNCOD DS X Temporary flags for SEND/RESEND @SC94181
./ I 03192000 $ 3192200 200 09/20/94 21:29:31
KW '&AUPDATE',SETCLSN,U @SC94181
./ R 03754000 $ 3754000 100 09/20/94 21:29:31
STACNTB DC C'-&ATTUNK.-&ATTLEN.-&ATTTYP' @SC94181
STACNDAT EQU (*-STACNTB)/8 Date reason code @SC94181
DC C'-&ATTDAT.' @SC94181
./ R 03756500 $ 3756500 100 09/20/94 16:08:33
DC (31-(*-STACNTB)/8)CL8'-??' @SC94181
STACNDSC EQU (*-STACNTB)/8 One extra reason (not in A-packet)@SC94181
DC C'-&COLLIS.' @SC94181
./ R 06012000 $ 6012000 100 09/21/94 12:44:43
DSKTSPX XC DSKFDB,DSKFDB Clear out info @SC94181
MVC DSKSTNM,0(2) File not opened yet, look for it @SC94181
./ D 06014500 09/21/94 12:44:43
./ R 06081000 $ 6081000 100 09/21/94 12:44:43
DSKNXTTO XC DSKFDB,DSKFDB Clear out info @SC94181
MVC DSKSTNM,FILNAM Other types: just do one @SC94181
./ R 06152000 $ 6152000 200 06/29/94 18:53:13
DSKVLSB LR 1,6 Use observed max length for LRECL @SC94181
DSKVLSC ST 0,FDBSIZEB Save @SC94181
AL 0,=F'512' Round up @SC94181
./ D 06153500 06/29/94 18:53:13
./ R 06158500 06160000 $ 6159000 100 06/29/94 18:53:13
B DSKVLSC Save size in bytes & Kbytes @SC94181
./ I 07683000 $ 7683100 100 06/28/94 18:25:34
CLI SNDDSP,AR Trying to recover? @SC94181
BNE SNDFIL No, fine @SC94181
TM RCAPA,X'10' Yes, can the other Kermit do it? @SC94181
BZ SNDCMDER No. Give up @SC94181
./ I 07685000 $ 7685200 200 06/28/94 18:25:34
XC SNDBLEN,SNDBLEN Clear "recovery" length @SC94181
./ I 07757500 $ 7757530 30 06/28/94 18:25:34
CLI SNDDSP,AR Trying to recover? @SC94181
BNE SNDPKLX No @SC94181
CLC DATL,F3 Any byte length? @SC94181
BL SNDPKLX No @SC94181
CLI 0(1),A1 Is this it? @SC94181
BNE SNDPKLX No @SC94181
UNCHR 7,1(1) Yes, get length of number string @SC94181
LA 6,2(,1) Ptr to numeric string @SC94181
LR 14,7 @SC94181
BCTR 14,0 @SC94181
EX 14,SNDTRAT @SC94181
BAL 14,GETNUM Get file length @SC94181
LA 0,0 Default is to send all @SC94181
ST 0,SNDBLEN Save expected size @SC94181
./ I 07760500 $ 7760700 200 06/28/94 18:25:34
SNDTRAT TR 0(,6),ATOED Convert to EBCDIC for decoding @SC94181
./ I 07765000 $ 7765050 50 06/28/94 18:25:34
L 5,SNDBLEN Length to skip @SC94181
SNDRECL LTR 5,5 Any more? @SC94181
BNP SNDENC No, start sending @SC94181
KCALL INBUF,E=SNDEND @SC94181
S 5,RBUFL Data length in RBUF @SC94181
BNM SNDRECL Keep skipping @SC94181
A 5,RBUFL Must use part of this buffer @SC94181
ST 5,RBUFP Index of next char in RBUF @SC94181
./ I 07797000 $ 7797200 200 12/19/94 15:58:18
SNDEND MVC DATL,F0 End while restarting: do nothing @SC94181
./ I 07809000 $ 7809060 60 09/21/94 15:58:18
CLI ERRNUM,ERRTRC Cancelled? @SC94181
BNE SNDBRKA No, it's a solid error @SC94181
CLI REASON,STACNDAT Refused as duplicate (date)? @SC94181
BE SNDBRKP Yes, not really an error @SC94181
CLI REASON,STACNDSC Refused as duplicate? @SC94181
BE SNDBRKP Yes, not really an error @SC94181
SNDBRKA DS 0H @SC94181
./ I 07833000 $ 7833200 200 06/28/94 18:25:34
SNDBLEN DS F Length to skip in resending file @SC94181
./ R 07864500 07875500 $ 7865500 500 06/29/94 20:43:04
RECOVR XC FILFLGS,FL3 Set flag for DISP @SC94181
NI FILFLGS,255-APPN-SVATT @SC90033
XC FILFLGS,FL3 @SC86295
TM RCAPA,X'18' Attributes, including End? @SC94181
BNO RECCOL No, do collision test now @SC94181
TM SCAPA,X'08' Am I expecting A-packets? @SC94181
BNO RECCOL No, do collision test now @SC94181
TM ATFL4,ATFEND Will I honor the End attribute? @SC94181
BO RECOPN Yes, defer collision test @SC94181
RECCOL KCALL TCOLL,E=(RECOPN,Z) @SC94181
./ R 07879000 07883500 $ 7879000 1000 06/29/94 20:43:04
RECOPN DS 0H @SC94181
./ I 07892500 $ 7892560 60 06/30/94 14:49:18
MVI RECDISP,0 No disposition specified @SC94181
TM RCAPA,X'18' Does he promise End attribute? @SC94181
BNO RECDAT No, let it ride @SC94181
TM SCAPA,X'08' Am I expecting A-packets @SC94181
BNO RECDAT No, but I'll accept them @SC94181
TM ATFL4,ATFEND Will I honor the End attribute? @SC94181
BNO RECDAT No, let it ride @SC94181
LA 8,RECAST Ok, accept only A-packets for now @SC94181
./ I 07896500 $ 7896600 100 06/29/94 21:14:51
L 2,FSIZE Default lrecl @SC94181
ICM 0,15,FILPTR Already opened? @SC94181
BNZ RECDATO Yes, fine @SC94181
./ I 07899500 $ 7899700 200 06/29/94 21:14:51
RECDATO DS 0H @SC94181
./ R 07908000 $ 7908000 100 06/30/94 14:49:18
RECDAK XC DATL,DATL Set length to zero @SC94181
RECDAKL BAL 2,SENDACKL Send an ack @SC94181
./ R 07927000 $ 7927000 200 09/20/94 16:42:43
BNZ RECADTX Invalid, stop now @SC94181
./ R 07930500 $ 7930500 200 09/20/94 16:42:43
BH RECADTX Too big, stop now @SC94181
./ R 07932000 $ 7932000 200 09/20/94 16:42:43
BNE RECADTX No, illegal @SC94181
./ R 07940500 $ 7940500 200 09/20/94 16:42:43
BNE RECADTX No, error @SC94181
./ I 07942500 $ 7942600 100 09/20/94 16:42:43
RECADTX MVI ERRNUM,ERRIPS Bad syntax @SC94181
B RECABR Quit @SC94181
./ I 07945000 $ 7945200 200 06/30/94 16:32:21
XC DATL,DATL Normally no data on ACK @SC94181
./ R 07946000 $ 7946000 200 06/30/94 16:32:21
BNL RECDAKL No, done @SC94181
./ R 07947000 $ 7947000 200 06/30/94 16:32:21
BO RECDAKL Yes, ignore further attributes @SC94181
./ I 07951000 $ 7951100 100 06/30/94 14:49:18
CLC FILPTR,F0 End attribute already seen? @SC94181
BNE RECRJC Yes, this is forbidden @SC94181
./ R 07959000 $ 7959000 200 06/28/94 18:25:34
RECDSPCD DC AL1(11),AL3(RECADI) + - Disposition @SC94181
./ R 07994500 $ 7994500 200 06/28/94 18:25:34
RECADI MVC RECDISP,0(6) Save disp code @SC94181
BAL 2,RECALKP @SC94181
./ I 07996000 $ 7996300 300 06/28/94 18:25:34
DC AL1(AR),AL3(RECCKL) Recover @SC94181
./ R 08026000 08026500 $ 8025800 20 06/30/94 14:49:18
RECAZZ DS 0H End of attributes, must be last @SC94181
CLI RECDISP,AR Recover? @SC94181
BNE RECAZ2 No, fine @SC94181
TM FL1,BINF Yes, make sure binary @SC94181
BZ RECRJD Oops, can't do it @SC94181
BAL 14,RDWSET Decide which kind of binary @SC94181
OI FILFLGS,APPN Yes, must append @SC94181
RECAZ2 TM RCAPA,X'18' Did other Kermit promise End att? @SC94181
BNO RECAZ3 No, already tested collision @SC94181
KCALL TCOLL,E=RECRJC Do it now @SC94181
RECAZ3 XC DATL,DATL @SC94181
CLI RECDISP,AR Recover? @SC94181
BNE RECAZ4 No, fine @SC94181
SR 4,4 Ok, get exact length of file @SC94181
OPENF T,FILNAM,E=RECBLCZ Does it exist? @SC94181
CLI TYPFIL,C'B' Ordinary binary? @SC94181
BE RECBLCA Yes, try shortcut @SC94181
MVC FDBSIZEB-FDBD(4,1),F0 No, can't trust n*lrecl @SC94181
RECBLCA ICM 4,15,FDBSIZEB-FDBD(1) Yes, get length, if poss. @SC94181
BNZ RECBLCZ Ok, got it @SC94181
OPENF I,FILNAM,FILFDB,FILPTR,E=RECBLCZ @SC94181
RECBLCL KCALL INBUF,E=RECBLCZ @SC94181
A 4,RBUFL (Doing it the hard way) @SC94181
B RECBLCL @SC94181
RECBLCZ CLOSF FILPTR Done, close file for input @SC94181
NI FL1,255-EOF Clear eof condition @SC94181
ST 4,RECBLEN Got total length @SC94181
LTR 4,4 Any? @SC94181
BZ RECAZ4 No, just process normally @SC94181
LA 0,512 @SC94181
ALR 0,4 Round to nearest K @SC94181
SRL 0,10 @SC94181
L 6,FILFSIZ Size of promised file @SC94181
SLR 6,0 Amount to be sent and appended @SC94181
BC 3,*+6 Ok @SC94181
SLR 6,6 All received already! @SC94181
ST 6,FILFSIZ Corrected size for space check @SC94181
L 6,ASDATA Output buffer @SC94181
MVI 0(6),A1 Byte-length attribute code @SC94181
LA 15,2(,6) @SC94181
BAL 2,EDDEC Format it (clobbers R8!) @SC94181
TR 2(9,6),ETOAD Convert plenty to ASCII @SC94181
SR 15,6 @SC94181
ST 15,DATL Length of data field @SC94181
LA 4,ABL-2(,15) Number of digits (printably) @SC94181
STC 4,1(,6) @SC94181
RECAZ4 DS 0H @SC94181
KCALL ACCTNM,FILNAM Insert revised name, if necessary @SC94181
OPENF O,FILNAM,FILFDB,FILPTR,E=RECRJA @SC94181
USING FDBD,1 @SC94181
MVC FSIZE,FABLRTR Copy LRECL from effective length @SC94181
MVC FRECF,FDBRCF Save info @SC94181
DROP 1 @SC94181
ICM 0,15,FILFSIZ Expected size, if known @SC94181
BZ RECAZ5 Not known, proceed @SC94181
OPENF S,FILNAM,FILFDB,FILPTR,E=RECRJLL Check disk spac@SC94181
XC FILFSIZ,FILFSIZ No need to repeat this test @SC94181
RECAZ5 DS 0H @SC94181
LA 8,RECANST Now accept D-packets @SC94181
./ I 08027500 $ 8027550 50 06/28/94 18:25:34
RECRJD MVC REASON,RECDSPCD Because of disposition @SC94181
B RECRJC @SC94181
RECRJLL MVC REASON,RECLNCOD Because of length @SC94181
B RECRJC @SC94181
RECRJA MVI REASON,6 Because of "area" (couldn't open) @SC94181
B RECRJC @SC94181
./ I 08034500 $ 8034700 200 06/30/94 17:17:14
LA 8,RECANST Accept A, D, or Z now @SC94181
./ R 08036000 08036500 $ 8036000 200 06/30/94 16:32:21
B RECDAKL Acknowledge @SC94181
./ I 08041500 $ 8041700 200 10/28/94 22:42:46
L 5,FILPTR @SC94181
./ I 08042000 $ 8042100 100 10/28/94 22:42:46
LTR 5,5 Was the file actually open? @SC94181
BZ RECKEP No, don't worry about it @SC94181
./ R 08058500 $ 8058500 70 09/21/94 15:17:19
BZ RECBRKA No, that's fine @SC94181
CLI REASON,STACNDAT Refused as duplicate (date)? @SC94181
BE RECBRKA Yes, not really an error @SC94181
CLI REASON,STACNDSC Refused as duplicate? @SC94181
BNE RECERP No, send an error packet @SC94181
RECBRKA DS 0H @SC94181
./ R 08079000 $ 8079000 200 09/21/94 01:21:04
* DC XL1'FF',AL3(RECABR) Stop (same as unknown) @SC94181
./ D 08081500 09/21/94 01:21:04
./ R 08084000 $ 8084000 200 06/30/94 14:49:18
DC AL1(00),AL3(RECABR) Error return @SC94181
RECAST DC AL1(AA),AL3(RECCKA) Micro sent A-packet @SC94181
./ I 08089500 $ 8089600 100 06/28/94 18:25:34
RECBLEN DS F Length of recovery file @SC94181
RECDISP DS X Requested disposition @SC94181
./ I 08113500 $ 8113540 40 10/28/94 22:42:46
*
* Copy file name from (R1) to current file table entry, if any @SC94181
ACCTNM ENTER ALT @SC94181
L 3,NSENT Number of current file @SC94181
C 3,NSENTAC Off the end? @SC94181
BNE RTRN0 Yes, quit now @SC94181
BCTR 3,0 Ok, get offset @SC94181
MH 3,FLFID1+2 Times length of items @SC94181
A 3,TSENT Loc in sent-table @SC94181
MVC ACTFID,0(1) Save filespec @SC94181
B RTRN0 @SC94181
./ R 08985500 $ 8986000 500 06/29/94 20:43:04
TITLE 'TCOLL Routine - test for collision (RECEIV)' @SC94181
* Exit: R15=0 if ok (use name in FILNAM), else reject @SC94181
TCOLL ENTER , @SC94181
TM FILFLGS,APPN Appending to old file? @SC94181
BO RTRN0 Yes, just do it @SC94181
CLI CLSNFL,C'U' @SC94181
BE *+12 Update option overrides "warn" @SC94181
TM FL1,REN @SC94181
BZ RTRN0 No, just do it @SC94181
LA 0,FFNEW @SC86295
KCALL FSPEC,FILNAM,E=RTRN1 Check collisions @SC94181
TM FL4,NMCHNG @SC90033
BZ RTRN0 @SC90033
CLI CLSNFL,C'B' @SC90033
BNE TCLTSTD @SC90033
LA 2,FILNAM Must back up original file @SC90033
LA 0,15 Rename it to unique new name @SC90033
KCALL DISKIO,XFILE,E=RTRN1 Give up if rename fails @SC90264
CLI TRMLIN,C' ' Alt. line? @SC90033
BE TCLBZ No, be quiet @SC90033
INITSTR '&BACKDUP',CMD,REG=7 @SC92300
LA 1,FILNAM @SC90033
BAL 2,STAFSP Format backup name and show it @SC90033
TCLBZ MVC FILNAM,XFILE Now, just use intended name @SC90033
TCLMSG DS 0H @SC90033
CLI TRMLIN,C' ' Alt. line? @SC87300
BE RTRN0 No, be quiet @SC94181
INITSTR '&RECVDAS',CMD,REG=7 Yes, display message @SC92300
LA 1,FILNAM @SC87300
BAL 2,STAFSP Format name and show it @SC87300
B RTRN0 @SC94181
TCLTSTD CLI CLSNFL,C'D' @SC90033
BNE TCLTSTU See if UPDATE @SC94181
MVI REASON,STACNDSC Reason is collision (DISCARD) @SC94181
B RTRN1 @SC94181
TCLTSTU CLI CLSNFL,C'U' @SC94181
BNE TCLMSG Other case is just "rename" @SC94181
CLI FDATE,0 @SC94181
BE TCLOKU @SC94181
OPENF T,XFILE,E=TCLOKU Look at existing file @SC94181
USING FDBD,1 @SC94181
CLI FDBDATE,0 Is there a time tag? @SC94181
BE TCLOKU No, skip this test @SC94181
CLC FDATE,FDBDATE Is the incoming file newer? @SC94181
BH TCLOKU Yes, overwrite the file @SC94181
DROP 1 @SC94181
MVI REASON,STACNDAT No, reason is date @SC94181
B RTRN1 @SC94181
TCLOKU MVC FILNAM,XFILE Restore original name @SC94181
B RTRN0 @SC94181
LOCALS , @SC94181
EXIT , @SC94181
END KERMIT
./ * SC94245 - More accurate statistics after server transfers
./ R 02084000 $ 2084000 500 05/29/92 ->4.3<-
LR 15,7 Get time supplied as "end" @SC94245
./ I 07824500 $ 7824600 100 05/29/92 ->4.3<-
KCALL SUPFNC,10 Get time of completion @SC94245
LR 7,15 Save for statistics @SC94245
./ I 08060500 $ 8060700 200 05/29/92 ->4.3<-
KCALL SUPFNC,10 Say completion time is now @SC94245
ST 15,RECTIMZ Save @SC94245
./ R 08070000 $ 8070000 200 05/29/92 ->4.3<-
RECERP KCALL SUPFNC,10 Say completion time is now @SC94245
ST 15,RECTIMZ Save @SC94245
KCALL ERPACK Send error packet @SC94245
./ I 08070500 $ 8070700 200 05/29/92 ->4.3<-
L 7,RECTIMZ @SC94245
./ I 08089500 $ 8089550 50 05/29/92 ->4.3<-
RECTIMZ DS F Ending time of transfer @SC94245
./ * SC94262 - Leave room for table expansion (CICS)
./ R 01415400 $ 1415400 200 09/30/93 14:45:03
&KDATE SETC '94/09/20' @SC94262
./ R 01513000 $ 1513000 100 09/20/94 17:56:54
L 3,PTATOED @SC94262
MVC ATOE,0(3) @SC94262
./ R 01515000 $ 1515000 1000 09/20/94 17:56:54
MVC TATOE,0(3) @SC94262
./ R 01893000 $ 1893000 300 09/20/94 17:56:54
L 4,PTATOED @SC94262
TR 0(LEMSG,1),0(4) Convert to EBCDIC @SC94262
./ I 02453000 $ 2453200 200 09/20/94 17:56:54
PTATOED DC A(ATOED) Address of ASCII-to-EBCDIC def. @SC94262
./ I 02519000 $ 2519500 500 09/20/94 17:56:54
DEFTBLS CSECT @SC94262
./ I 02536000 $ 2536500 500 09/20/94 17:56:54
COMMON CSECT @SC94262
./ R 03354000 $ 3354000 200 09/20/94 17:56:54
SETTAT2 L 2,PTATOED Address of original @SC94262
./ R 03635000 $ 3635000 100 09/20/94 17:56:54
L 8,PTATOED @SC94262
TR TMP,0(8) Convert to EBCDIC @SC94262
./ R 03840000 $ 3840000 200 09/20/94 17:56:54
GIVA1 L 0,PTATOED @SC94262
./ I 05065000 $ 5065200 200 09/20/94 20:32:10
L 14,PTATOED @SC94262
./ R 05067000 $ 5067000 200 09/20/94 20:32:10
FSPTRAE TR 0(,5),0(14) @SC94262
./ R 07610500 $ 7610500 200 09/20/94 17:56:54
L 14,PTATOED Use default if "transparent" @SC94262
./ R 07690000 $ 7690000 100 09/20/94 17:56:54
L 2,PTATOED @SC94262
TR 0(250,15),0(2) Back to EBCDIC @SC94262
./ I 07757800 $ 7757810 10 09/20/94 17:56:54
L 4,PTATOED @SC94262
./ R 07760700 $ 7760700 100 09/20/94 17:56:54
SNDTRAT TR 0(,6),0(4) Convert to EBCDIC for decoding @SC94262
./ R 07859000 $ 7859000 100 09/20/94 17:56:54
L 14,PTATOED @SC94262
TR 0(256,1),0(14) Convert to std EBCDIC @SC94262
./ I 07925500 $ 7925700 200 09/20/94 17:56:54
L 4,PTATOED @SC94262
./ R 07973000 $ 7973000 100 09/20/94 17:56:54
L 14,PTATOED @SC94262
IC 4,0(4,14) Ok, set file type as well @SC94262
./ I 07978500 $ 7978700 200 09/20/94 17:56:54
L 4,PTATOED @SC94262
./ I 07984000 $ 7984200 200 09/20/94 17:56:54
L 4,PTATOED @SC94262
./ R 07987500 $ 7987500 200 09/20/94 17:56:54
RECTRAT TR 0(,6),0(4) Convert to EBCDIC for decoding @SC94262
./ R 08013000 $ 8013000 100 09/20/94 17:56:54
L 1,PTATOED @SC94262
TR 0(94,4),0(1) Convert to EBCDIC @SC94262
./ R 08397000 $ 8397000 100 09/20/94 17:56:54
L 4,PTATOED @SC94262
TR 0(5,6),0(4) No, must be 5-byte ASCII prefix @SC94262
./ R 08584000 $ 8584000 100 09/20/94 17:56:54
L 4,PTATOED @SC94262
TR STOPBUF,0(4) @SC94262
./ * BM94344 - Support for CICS 3.3 (CICS)
./ I 01240000 $ 1240500 100 12/14/94 20:36:40
AIF ('&SYSPARM' GE '3.3').CICS3 @SC94344
./ R 01243000 01244000 $ 1243000 1000 12/14/94 20:36:40
TDIOTYPE EQU DCTSDSCI+48 TYPEFILE status (= OFLGS in DCB) @SC94344
TDIOOUT EQU X'80' Output @SC94344
./ R 01246000 01248200 $ 1246000 100 12/14/94 20:36:40
TDBLK2 EQU DCTSDSCI+62 BLKSIZE in DCB @SC94344
TDLRC2 EQU DCTSDSCI+82 LRECL in DCB @SC94344
TDNREC EQU TDDCTTQC Number of items in TDQ @SC94344
AGO .CICS2B @SC94344
.CICS2 AIF ('&SYSPARM' GE '3.0').CICS2A @SC94344
TDIOTYPE EQU DCTSDSTF TYPEFILE status @SC94344
TDIOOUT EQU DCTSDSOP Output @SC94344
TDBLK2 EQU DCTSDSBL BLKSIZE in DCB @SC94344
TDLRC2 EQU DCTSDSRL LRECL in DCB @SC94344
TDNREC EQU TDDCTTQC Number of items in TDQ @SC94344
AGO .CICS2B @SC94344
.CICS2A ANOP @SC94344
./ R 01248600 01248800 $ 1248600 30 12/14/94 20:36:40
TDIOTYPE EQU DCTSDTF TYPEFILE status @SC94344
TDIOOUT EQU X'80' Output @SC94344
TDBLK2 EQU DCTSDSBL BLKSIZE in DCB @SC94344
TDLRC2 EQU DCTSDSRL LRECL in DCB @SC94344
TDNREC EQU TDDCTTQC Number of items in TDQ @SC94344
.CICS2B ANOP @SC94344
./ I 01254000 $ 1254200 200 12/14/94 20:36:40
.CICS3 ANOP @SC94344
./ R 01415400 $ 1415400 200 12/12/94 11:15:03
&KDATE SETC '94/12/12' @SC94262
./ I 05579000 $ 5579200 200
AIF ('&SYSPARM' GE '3.3').CICS3A @SC94344
./ I 05582500 $ 5582700 200
.CICS3A ANOP @SC94344
./ R 05676500 $ 5676500 500
DC Y(DSKNXT-DSK0,DSKFLUSH-DSK0,DSKCWDF-DSK0) 6-8 @BM94344
./ R 05863500 $ 5863500 500
TM FDBFL2,TDINDTBM Intra-partition? @BM94344
./ I 05931000 $ 5931200 200
AIF ('&SYSPARM' GE '3.3').CICS3C @SC94344
./ I 05942000 $ 5942010 10
AGO .CICS3C2 @SC94344
.CICS3C ANOP @SC94344
L 7,DFHEIBP @BM94344
USING DFHEIBLK,7 @BM94344
EXEC CICS INQUIRE TSQUEUE(FABFNAM) FLENGTH(FDBSIZEB), @BM94344+
MAXITEMLEN(FDBXLRC) NUMITEMS(FDBNREC), @BM94344+
RESP(FABRESP), @BM94344
CLC FABRESP(4),DFHRESP(NORMAL) @BM94344
BNE DSKLKNF @BM94344
DROP 7 @BM94344
.CICS3C2 ANOP @SC94344
./ I 05944000 $ 5944200 200
AIF ('&SYSPARM' GE '3.3').CICS3D @SC94344
./ I 05949500 $ 5949510 10
AGO .CICS3D2 @SC94344
.CICS3D ANOP @SC94344
DSKLKPD L 7,DFHEIBP @BM94344
USING DFHEIBLK,7 @BM94344
EXEC CICS INQUIRE TDQUEUE(FABFNAM) IOTYPE(TDIOTYPE), @BM94344+
NUMITEMS(TDNREC) RECORDFORMAT(TDRECFM), @BM94344+
RECORDLENGTH(TDLRC) TYPE(TDTYPE) RESP(FABRESP), @BM94344
CLC FABRESP(4),DFHRESP(NORMAL) @BM94344
BNER 2 Yes, return CC=NZ @BM94344
DROP 7 @BM94344
MVC FDBNREC,TDNREC+2 Pick up HW numitems @BM94344
CLC TDTYPE,DFHVALUE(INTRA) @BM94344
BNE *+12 @BM94344
OI FDBFL2,TDINDTBM @BM94344
B DSKLKDX0 @BM94344
CLC TDTYPE,DFHVALUE(EXTRA) @BM94344
BNER 2 @BM94344
OI FDBFL2,TDEXTRBM @BM94344
.CICS3D2 ANOP @SC94344
./ R 05950000 $ 5950000 500
DSKLKDX0 TM FDBFL2,TDINDTBM INTRA? @BM94344
./ R 05951000 $ 5951000 200 12/14/94 03:51:50
CLC F0,TDNREC Yes, any records in it? @SC94344
./ R 05952500 $ 5952500 500
DSKLKDX TM FDBFL2,TDEXTRBM EXTRA? @BM94344
./ I 05953500 $ 5953700 200
AIF ('&SYSPARM' GE '3.3').CICS3E @SC94344
./ I 05955000 $ 5955040 40
AGO .CICS3E2 @SC94344
.CICS3E ANOP @SC94344
MVI FDBXRCF,X'80' F @BM94344
CLC TDRECFM,DFHVALUE(FIXED) @BM94344
BE *+8 @BM94344
MVI FDBXRCF,X'C0' U @BM94344
CLC TDIOTYPE,DFHVALUE(OUTPUT) @BM94344
MVI TDIOTYPE,0 @SC94344
BNE *+8 @SC94344
OI TDIOTYPE,TDIOOUT It's for output @SC94344
.CICS3E2 ANOP @SC94344
./ R 05955500 05956000 $ 5955500 500 12/14/94 03:51:50
MVC FDBXLRC,TDLRC2 LRECL @SC94344
MVC FDBXBLK,TDBLK2 BLKSI @SC94344
./ R 05958500 $ 5958500 200 12/14/94 20:36:40
TM TDIOTYPE,TDIOOUT Output? @SC94344
./ R 05961000 $ 5961000 200 12/14/94 20:36:40
DSKLKDA TM TDIOTYPE,TDIOOUT Output? @SC94344
./ I 05990500 $ 5990700 200 12/14/94 22:37:16
B DSKNSX @SC94344
./ I 05991500 $ 5991700 200
DSKFLUSH MVI NXDEST,0 @SC94344
./ I 05992000 $ 5992200 200 12/14/94 22:37:16
AIF ('&SYSPARM' GE '3.3').CICS3H @SC94344
./ I 05996000 $ 5996010 10
AGO .CICS3H2 @SC94344
.CICS3H ANOP @SC94344
LA 3,DSKSTT @BM94344
L 7,DFHEIBP @BM94344
USING DFHEIBLK,7 @BM94344
* End searching in case previously started; ignore conditions @BM94344
EXEC CICS INQUIRE TSQUEUE END RESP(FABRESP), @BM94344
EXEC CICS INQUIRE TDQUEUE END RESP(FABRESP), @BM94344
TM NXDEST,FABFTS @SC94344
BNO DSKNSX1 @BM94344
EXEC CICS INQUIRE TSQUEUE START RESP(FABRESP), @BM94344
B DSKNDXEX @BM94344
DSKNSX1 TM NXDEST,FABFTD @SC94344
BNO RTRN0 Must expand later @SC94344
EXEC CICS INQUIRE TDQUEUE START RESP(FABRESP), @BM94344
DSKNDXEX CLC FABRESP(4),F0 Ok? @BM94344
BE RTRN0 Yes @BM94344
B RTRN1 @BM94344
DROP 7 @BM94344
.CICS3H2 ANOP @SC94344
./ I 06020000 $ 6020200 200
LA 3,DSKSTT @BM94344
./ I 06025000 $ 6025200 200
AIF ('&SYSPARM' GE '3.3').CICS3J @SC94344
./ I 06040500 $ 6040600 100
.CICS3J ANOP @SC94344
./ I 06043500 $ 6043700 200
AIF ('&SYSPARM' GE '3.3').CICS3K @SC94344
./ I 06044000 $ 6044200 100
.CICS3K ANOP @SC94344
./ I 06058000 $ 6058200 200
AIF ('&SYSPARM' GE '3.3').CICS3L @SC94344
./ I 06061500 $ 6061520 20
MVC FDBFL2,TDDCTDT Copy flags so we'll remember @SC94344
AGO .CICS3L2 @SC94344
.CICS3L ANOP @SC94344
MVC NXPTR,F0 In case none left @SC94344
L 7,DFHEIBP @BM94344
USING DFHEIBLK,7 @BM94344
EXEC CICS INQUIRE TDQUEUE(FABFNAM) NEXT, @BM94344+
IOTYPE(TDIOTYPE) NUMITEMS(TDNREC), @BM94344+
RECORDFORMAT(TDRECFM) RECORDLENGTH(TDLRC), @BM94344+
TYPE(TDTYPE) RESP(FABRESP), @BM94344
CLC FABRESP(4),DFHRESP(NORMAL) @BM94344
BE NXTDCHK @BM94344
EXEC CICS INQUIRE TDQUEUE END RESP(FABRESP), @BM94344
B RTRN1 @BM94344
DROP 7 @BM94344
NXTDCHK CLC TDTYPE,DFHVALUE(INTRA) @BM94344
BNE *+12 @BM94344
OI FDBFL2,TDINDTBM @BM94344
B NXTCHEK1 @BM94344
CLC TDTYPE,DFHVALUE(EXTRA) @BM94344
BNE NXTCHEK1 @BM94344
OI FDBFL2,TDEXTRBM @BM94344
NXTCHEK1 LA 1,1 Pseudo ptr to next item @SC94344
.CICS3L2 ANOP @SC94344
./ I 06066500 $ 6066700 200 12/14/94 03:51:50
DROP 9 @SC94344
./ D 06074000
./ R 06075500 $ 6075500 100
TM FDBFL2,TDEXTRBM EXTRA? @SC94344
./ I 06076000 $ 6076200 200
AIF ('&SYSPARM' GE '3.3').CICS3M @SC94344
./ R 06078000 06078500 $ 6078000 500 12/14/94 03:51:50
MVC FDBXLRC,TDLRC2 LRECL @SC94344
MVC FDBXBLK,TDBLK2 BLKSI @SC94344
./ I 06079000 $ 6079020 20
AGO .CICS3M2 @SC94344
.CICS3M ANOP @SC94344
ICM 7,15,TDNREC @SC94344
BNP *+8 @BM94344
STH 7,FDBNREC LOCATION OF NUMITEMS @BM94344
ICM 7,15,TDLRC @SC94344
BNP *+12 @BM94344
STH 7,FDBXLRC Location of LRECL @BM94344
STH 7,FDBXBLK Location of BLKSI @SC94344
MVI FDBXRCF,X'80' F @BM94344
CLC TDRECFM,DFHVALUE(FIXED) @BM94344
BE NXTCHEK2 @BM94344
MVI FDBXRCF,X'40' V @BM94344
CLC TDRECFM,DFHVALUE(VARIABLE) @BM94344
BE NXTCHEK2 @BM94344
MVI FDBXRCF,X'C0' U @BM94344
NXTCHEK2 LA 6,FABFNAM @BM94344
.CICS3M2 ANOP @SC94344
./ I 06084000 $ 6084200 200
AIF ('&SYSPARM' GE '3.3').CICS3N @SC94344
./ I 06089000 $ 6089200 200
ST 1,DSKSECPL Ptr to TSUTE @SC94344
./ I 06089500 $ 6089520 20
AGO .CICS3N2 @SC94344
.CICS3N ANOP @SC94344
NXFNXTS DS 0H @BM94344
L 7,DFHEIBP @BM94344
USING DFHEIBLK,7 @BM94344
EXEC CICS INQUIRE TSQUEUE(FABFNAM) NEXT, @BM94344+
MAXITEMLEN(FDBLRC) NUMITEMS(FDBNREC), @BM94344+
FLENGTH(FDBSIZEB) RESP(FABRESP), @BM94344
CLC FABRESP(4),DFHRESP(NORMAL) @BM94344
MVC NXPTR,F0 In case none left @SC94344
BE NXFNXTSG @BM94344
EXEC CICS INQUIRE TSQUEUE END RESP(FABRESP), @BM94344
B RTRN1 @BM94344
DROP 7 @BM94344
NXFNXTSG LA 6,FABFNAM FILE NAME @BM94344
LA 1,1 Pseudo ptr to next item @SC94344
.CICS3N2 ANOP @SC94344
./ D 06090500
./ I 06091000 $ 6091200 200
AIF ('&SYSPARM' GE '3.3').CICS3O @SC94344
./ I 06097000 $ 6097200 20
.CICS3O ANOP @SC94344
./ I 06134500 $ 6134700 200
AIF ('&SYSPARM' GE '3.3').CICS3P @SC94344
./ I 06152000 $ 6152020 20
AGO .CICS3P2 @SC94344
.CICS3P ANOP @SC94344
ICM 0,15,FDBSIZEB Did INQUIRE render a value? @BM94344
BP DSKADJKB Yes, then go use it @BM94344
LA 0,80 Otherwise multiply number of recs @BM94344
MH 0,FDBNREC by 80 to get some value @BM94344
DSKADJKB LH 1,FDBXLRC Max record length @BM94344
.CICS3P2 ANOP @SC94344
./ D 06164000
./ R 06166000 $ 6166000 200 12/14/94 03:51:50
MVC FDBNREC,TDNREC+2 Yes, grab record count @SC94344
./ R 06174500 $ 6174500 100
DSKVLR LTR 1,1 @BM94344
BP LRCNOT0 @BM94344
L 1,MAXLRC Use max length by default cmh @BM94344
S 1,F4 Truncate for overhead cmh @BM94344
LRCNOT0 STH 1,FDBLRC @BM94344
./ I 06192700 $ 6192720 20 12/14/94 03:51:50
AIF ('&SYSPARM' LT '3.3').CICS3Q @SC94344
TDIOTYPE DS F INPUT OUTPUT READBACK @BM94344
TDIOOUT EQU X'80' Output (dummy) @SC94344
TDRECFM DS F FIXED VARIABLE N/A @BM94344
TDTYPE DS F INTRA EXTRA REMOTE INDIRECT @BM94344
TDNREC DS F Num. of records @BM94344
TDLRC DS F Rec. length @BM94344
ORG TDLRC+2 @SC94344
TDLRC2 DS 0H Substitute for SDSCI LRECL @SC94344
TDBLK2 DS H Substitute for SDSCI BLKSI @SC94344
.CICS3Q ANOP @SC94344
./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
./ R 01415400 $ 1415400 200 01/23/95 11:12:19
&KDATE SETC '95/01/23' @SC95023
./ I 01422200 $ 1422300 100 01/23/95 11:12:19
AESC EQU 27 ASCII ESC @SC95023
./ I 01424000 $ 1424100 100 01/23/95 11:12:19
ABSL EQU 92 ASCII backslash @SC95023
./ I 03028500 $ 3028700 200 01/23/95 11:12:19
KW 'APC',USNAPC,MIN=3 @SC95023
./ I 03103000 $ 3103030 30 01/23/95 11:12:19
*
USNAPC L 5,ADR Pointer to rest of line @SC95023
ICM 4,15,LEN Remaining data length @SC95023
BNP KRMXPEH Go if nothing specified @SC95023
L 3,RBUF @SC95023
ICM 0,2,ATOE+AESC Get special wrapper for APC @SC95023
ICM 0,1,ATOE+AUND Must use current EBCDIC codes @SC95023
STCM 0,3,0(3) @SC95023
MVC 2(256,3),0(5) Copy to disk read buffer @SC95023
AR 4,3 Get end @SC95023
ICM 0,1,ATOE+ABSL Closing wrapper @SC95023
STCM 0,3,2(4) @SC95023
LA 4,4(4) Account for wrapper @SC95023
B USNAPC1 @SC95023
./ D 03105200 01/23/95 11:12:19
./ I 03106500 $ 3106700 200 01/23/95 11:12:19
USNAPC1 MVI USNCOD,0 No special disposition @SC95023
./ R 07765100 $ 7765100 50 01/23/95 19:14:24
LTR 5,5 Any? @SC95023
./ R 07765200 $ 7765200 50 01/23/95 19:14:24
SNDRECL KCALL INBUF,E=SNDEND @SC95023
./ R 07765300 $ 7765300 50 01/23/95 19:14:24
BH SNDRECL Keep skipping @SC95023
./ * SC95032 - Allow Recovery into almost-full file system
./ R 01415400 $ 1415400 200 02/01/95 12:29:03
&KDATE SETC '95/02/01' @SC95032
./ I 07986000 $ 7986080 80 02/01/95 16:54:31
TM RCAPA,X'18' Attributes, including End? @SC95032
BNO RECAL3 No, do space test now @SC95032
TM ATFL4,ATFEND Will I honor the End attribute? @SC95032
BO RECCKL Yes, defer space test @SC95032
RECAL3 DS 0H @SC95032
./ * SC95033 - Update to level 4.3.1
./ R 01415400 01415600 $ 1415400 200 02/02/95 12:29:03
&KDATE SETC '95/02/02' @SC95033
&KEDIT SETC '1' @SC95033
./ * SC95041 - Avoid obsolete COPY book in CICS 3.3 and higher
./ D 01253000 01254000 02/10/95 13:52:24
./ I 01416500 $ 1416520 20 02/10/95 13:52:24
AIF ('&SYSPARM' GE '3.3').CICS2C @SC95041
COPY DFHTSMDS @SC95041
DROP TSMAPBAR @SC95041
.CICS2C ANOP @SC95041
./ * SC95059 - Preserve transmitted time tag for RESENT file
./ I 08026040 $ 8026050 10 02/28/95 19:49:43
MVC RECBDAT,FDATE Save date for output file @SC95059
./ I 08026280 $ 8026290 10 02/28/95 19:49:43
MVC FDATE,RECBDAT Restore date for output file @SC95059
./ I 08089600 $ 8089650 50 02/28/95 19:49:43
RECBDAT DS XL7 Saved date for output file @SC95059
./ * SC95108 - Prevent error-free transfers from halting TAKE files
./ I 02116000 $ 2116500 500 04/18/95 18:47:43
* Set CC according to R15. @SC95108
./ R 02120000 $ 2120490 490 04/18/95 18:47:43
ICM 15,1,ERRNUM Return status code @SC95108
./ * SC95174 - Implement REGET subcommand
./ R 01413700 $ 1413700 40 06/23/95 21:21:34
GBLC &AAARSND,&AUPDATE,&AAARGET @SC95174
./ I 01460400 $ 1460450 50 06/23/95 21:21:34
&AAARGET SETC 'REGET' cmd, m=3 @SC95174
./ R 03030500 $ 3030500 200 06/23/95 21:13:35
KW '&AAAAGET',KRMGET,R @SC95174
./ I 03032000 $ 3032200 200 06/23/95 21:13:35
KW '&AAARGET',KRMGET,J,MIN=3 @SC95174
./ R 03034700 $ 3034700 40 06/23/95 21:13:35
DC X'0' Normal type has no disp code @SC95174
./ R 03052500 $ 3052500 100 06/23/95 21:13:35
KRMGET MVC USNCOD,KWCODE(1) Save send command abbrev @SC95174
PTEXT '&FORFSPC - ',AREG=1,LREG=0 @SC95174
./ R 03065000 $ 3065000 100 06/23/95 21:13:35
MVC STYPE,USNCOD Type = receive initiate (R/J) @SC95174
TR STYPE,ETOAD @SC95174
./ I 07508500 $ 7508700 200 06/23/95 21:13:35
DC AL1(AJ),AL3(SRVSND) Micro wants to get a file @SC95174
./ R 07530500 $ 7530500 100 06/23/95 21:13:35
SR 1,1 Normal send is code 0 @SC95174
CLI RTYPE,AJ Is it a REGET? @SC95174
BNE *+8 @SC95174
LA 1,AR Yes, use the RESEND code @SC95174
KCALL SEND @SC95174
./ * SC96122 - Avoid endless double transmission from windowed Kermit
./ R 01917400 01917800 $ 1917400 100 05/02/96 20:09:53
BNE SENDRTA No, resend whatever it was @SC96122
CLI DATLSN,0 "plain" only if no data @SC96122
BNE SENDRTA No, resend whatever it was @SC96122
CLC RSN,SSN Yes, did we rereceive the prev? @SC96122
BNE SENDNAK No, must be bad packet, send NAK @SC96122
SENDRTA DS 0H @SC96122
./ I 02619000 $ 2619100 100 05/02/96 20:09:53
SSN DS X Last sent pkt number @SC96122
./ I 08473000 $ 8473200 200 05/02/96 20:09:53
MVC SSN,SEQ Save an extra copy @SC96122
./ * SC96151 - Add system ID to INIT packets
./ R 08234300 $ 8234250 50 05/31/96 22:26:14
MVC 18(LSYSATR-1,9),SYSATR+1 Copy system ID @SC96151
LA 0,18+LSYSATR-1 Size of data including ID @SC96151
./ * SC96158 - Never skip sending an I-packet while in remote mode
./ I 01934000 $ 1934300 300 06/06/96 23:14:40
CLI TRMLIN,C' ' Alt. line? @SC96158
BE IPKGO No, send I-packet regardless @SC96158
./ I 01936000 $ 1936500 500 06/06/96 23:14:40
IPKGO DS 0H @SC96158
./ * SC96165 - Correct handling of dates in 2000's (CICS)
./ R 06251500 06252000 $ 6251500 200 06/13/96 15:55:21
ZAP TMPDW,EIBDATE Copy CYYDDD @SC96165
AP TMPDW,=P'1900000' Convert to calendar @SC96165
MVC KFSDATE(2),TMPDW+4 Copy year @SC96165
XC TMPDW(6),TMPDW Clear year portion @SC96165
./ D 06263500 06265000 06/13/96 15:55:21
./ * SC97028 - Clear 'Kermit command error' condition correctly
./ I 02279000 $ 2279500 500 01/28/97 20:49:24
LUPWRT WTEXT (3),(4) @SC97028
./ R 02288000 $ 2288000 500 01/28/97 20:49:24
WTEXT (3),(4) @SC97028
./ * SC97164 - Update to level 4.3.2
./ R 01415400 01415600 $ 1415400 200 06/13/97 12:29:03
&KDATE SETC '97/06/13' @SC97164
&KEDIT SETC '2' @SC97164