*COPY IK0DEF 01400000 * Global variable declarations for open code @SC92178 01400200 GBLC &KVRSN,&KSYS,&KDATE,&RTN,&TYPCMD,&S1CMD,&KCONT @SC88309 01400400 GBLC &KEDIT,&STORDS,&KTAG,&AEACMD,&KNJDEF,&KNJLAB @SC91325 01400600 GBLC &KTRACE,&CMSSFS,&CONOPTS,&S1CMD1 @SC92076 01400800 GBLA &MAXLR,&MAXBS @SC86268 01401000 * Global symbols for language blocks @SC92300 01401200 GBLA &FMTOPT,&LOPRNUM,&LOPRMUS,&MSGFILL @SC92300 01401400 GBLC &AAAAAAS,&AAAAAEA,&AAAAAIO,&AAAAAIS,&AAAAALL @SC92300 01401600 GBLC &AAAAAOK,&AAAAAON,&AAAABIN,&AAAABYE,&AAAADIR @SC92300 01401800 GBLC &AAAAEN,&AAAAEND,&AAAAEOF,&AAAAEOL,&AAAAFIN @SC92300 01402000 GBLC &AAAAGET,&AAAAOFF,&AAAARAW,&AAAASET,&AAAATOE @SC92300 01402200 GBLC &AAAATTY,&AAAAVOL,&AAABAUD,&AAACOPY,&AAADBIN @SC92300 01402400 GBLC &AAAECHO,&AAAETOA,&AAAEXIT,&AAAFILE,&AAAFOLD @SC92300 01402600 GBLC &AAAGIVE,&AAAHALT,&AAAHELP,&AAAHINT,&AAAHOST @SC92300 01402800 GBLC &AAAKEEP,&AAALEFT,&AAALINE,&AAALONG,&AAAMAIL @SC92300 01403000 GBLC &AAAMARK,&AAANONE,&AAAQUIT,&AAASAVE,&AAASEND @SC92300 01403200 GBLC &AAASERV,&AAASHOW,&AAATAKE,&AAATEST,&AAATEXT @SC92300 01403400 GBLC &AAATIME,&AAATYPE,&AAAUNIT,&AAAVBIN,&AABLKSI @SC92300 01403600 GBLC &AADEBUG,&AADELAY,&AADELIM,&AAERASE,&AAGREEK @SC92300 01403800 GBLC &AALOCAL,&AALRECL,&AANAMES,&AAPPEND,&AAPRINT @SC92300 01404000 GBLC &AAQUOTE,&AARECFM,&AARETRY,&AARIGHT,&AASPACE @SC92300 01404200 GBLC &AASPEED,&AATATOE,&AATDUMP,&AATETOA,&AATRACE @SC92300 01404400 GBLC &AAXECHO,&AAXTYPE,&ABACKUP,&AFORCED,&AMARGIN @SC92300 01404600 GBLC &ANYCICS,&APARITY,&APREFIX,&APROMPT,&ARENAME @SC92300 01404800 GBLC &ASCQUOT,&ASTATUS,&ASUBMIT,&ASUFFIX,&ASYSCMD @SC92300 01405000 GBLC &ATTACC,&ATTACCT,&ATTACS,&ATTACSS,&ATTARE @SC92300 01405200 GBLC &ATTAREA,&ATTBLE,&ATTBLEN,&ATTBLK,&ATTBLKS @SC92300 01405400 GBLC &ATTCRE,&ATTCRET,&ATTDAT,&ATTDATE,&ATTDIS @SC92300 01405600 GBLC &ATTDISP,&ATTENC,&ATTENCD,&ATTFRM,&ATTFRMT @SC92300 01405800 GBLC &ATTLEN,&ATTLENG,&ATTORI,&ATTORIG,&ATTPAS @SC92300 01406000 GBLC &ATTPASS,&ATTPRO,&ATTPROT,&ATTRIBU,&ATTSIN @SC92300 01406200 GBLC &ATTSINF,&ATTTYP,&ATTTYPE,&ATTUNK,&AZDISAB @SC92300 01406400 GBLC &A8THBQU,&BACKDUP,&BADCHEK,&BADCOMM @SC92300 01406600 GBLC &BADDELF,&BADDELM,&BADDISP,&BADFSPC @SC92300 01406800 GBLC &BADNAME,&BADOPTN,&BADOPTS,&BADOUTF @SC92300 01407000 GBLC &BADPSYN,&BADPTYP,&BADRNGE,&BADSBCM @SC92300 01407200 GBLC &BADSCMD,&BADSERV,&BADTABS,&BLKCHCK @SC92300 01407400 GBLC &BLNKFRE,&BYTPSEC,&BYTSALW,&BYTSUSD,&CANNOT @SC92300 01407600 GBLC &CHARSET,&COLDISC,&COLLIS,&COLLISN,&CONTINU @SC92300 01407800 GBLC &CONTRLR,&CPCMND,&CWDERRM,&CWDPRVS,&CTRLCHR @SC92300 01408000 GBLC &CYRILLC,&CZECH,&DCBSPAC,&DEBGERR,&DEFAULT @SC92300 01408200 GBLC &DELIMSG,&DIRHDNG,&DISCARD,&DSCARDD,&DSKFULL @SC92300 01408400 GBLC &DSKIOER,&DWRDSTK,&ENDOFLI,&ENDOFPA,&ENDSRV @SC92300 01408600 GBLC &ENTHINT,&ERRACTI,&ERRTAKE,&EXTRAOP,&FILCLSN @SC92300 01408800 GBLC &FILCOPY,&FILDELT,&FILRENM,&FILTYPE,&FINISHD @SC92300 01409000 GBLC &FIXED,&FMTFSPC,&FOREIGN,&FORFSPC,&FSENLST @SC92300 01409200 GBLC &FSPCPRM,&FULLSCR,&GOTNAK,&GRAPHIC,&HANDSHK @SC92300 01409400 GBLC &HANDXON,&HEBREW,&INCOMPL,&INITIAL,&INVALID @SC92300 01409600 GBLC &JAPNEUC,&KBYTFRE,&KCMDERR,&LASTFIL,&LOCKSHF @SC92300 01409800 GBLC &LONGLIN,&LOSTPAK,&MANYFIL,&MANYOPT,&MANYTAB @SC92300 01410000 GBLC &MAXNEST,&MICROAB,&MIGRATD,&MISSING,&MISSOPR @SC92300 01410200 GBLC &MISSOPS,&MRCTRNC,&MSGFILE,&NOBUFFS,&NOCPCMD @SC92300 01410400 GBLC &NODIRDF,&NOERROR,&NOFSENT,&NOFSPEC,&NOHELPF @SC92300 01410600 GBLC &NONXAMS,&NOOPERS,&NOPACKS,&NOSTART,&NOTCPER @SC92300 01410800 GBLC &NOTFOUN,&NOTRANS,&NOWRITE,&NO8THBQ,&ONEFOLL @SC92300 01411000 GBLC &ONLY130,&ONOFFCH,&OPRMUB,&OPRMUL,&OPTSIZE @SC92300 01411200 GBLC &OTHERL6,&OVERWRI,&PACKETS,&PACKLEN,&PACKSIZ @SC92300 01411400 GBLC &PADCHAR,&PADDING,&PKTABBR,&PLSESCP,&PRESERV @SC92300 01411600 GBLC &PREFIXD,&QQWRITE,&READYR,&READYS,&READYSR @SC92300 01411800 GBLC &RECEIVE,&RECFOLD,&RECTRNC,&RECVDAS,&REMOTE @SC92300 01412000 GBLC &REPTCNT,&REQUIRG,&SECABBR,&SENDING,&SENDPAK @SC92300 01412200 GBLC &SERIES1,&SIMSHRT,&SIMULAT,&SPACERR,&SRVTIME @SC92300 01412400 GBLC &STARTOP,&SYSCMND,&SYSFSPC,&TABSEXP,&TAKLOOP @SC92300 01412600 GBLC &TCANCEL,&TERMIOE,&TIMEOUT,&TOOSHRT,&TORECV @SC92300 01412800 GBLC &TOSEND,&TRANSFR,&TRANSPA,&TRUNCAT,&TTTABLE @SC92300 01413000 GBLC &UNDEFND,&UNDEFTR,&UNPREFD,&UNPRSOP,&VARIABL @SC92300 01413200 GBLC &VERSION,&VTAMERR,&VTAMTTY,&WARNING,&XTYPMSG @SC92300 01413400 GBLC &ZZBEWAR,&ZZBYTES,&ZZZZOR,&ZZSHORT @SC92300 01413600 * 01413800 TITLE 'Kermit-370 Control blocks and constants' @SC92178 01414000 PRINT NOGEN @SC92178 01414200 FDBD , @SC86295 01414400 USING COMMON,10 @SC86316 01414600 * 01414800 &KTAG SETC '' @SC90067 01415000 &KVRSN SETC '4.3' @SC93273 01415200 &KDATE SETC '93/09/30' @SC93273 01415400 &KEDIT SETC '0' @SC93273 01415600 &KTRACE SETC 'NO' 'YES' to enable tracing + debug @LM91008 01415800 &KNJDEF SETC 'IBM' or HITACHI or FUJITSU -- default Kanji @SC91325 01416000 &KNJLAB SETC '&KNJDEF'(1,1) @SC91325 01416200 * 01416400 SYSMACS , System-dependent macros @SC90067 01416600 SSYMS , @SC86268 01416800 USING &STORDS,KWRKBASE @SC89268 01417000 * 01417200 ACTBUF DSECT Map for transaction log entry @SC91172 01417400 ACTFID DS CL(LFID) Filespec @SC91172 01417600 ACTSIZ DS XL4 Size in kbytes @SC91172 01417800 ACTERR DS X Error code, if any @SC91172 01418000 ACTREA DS X Reason code, if any @SC91172 01418200 ACTBEG DS XL3 Starting time of day (GMT) @SC91172 01418400 ACTLEN EQU *-ACTFID @SC91172 01418600 * EBCDIC constants 01418800 SOH EQU X'01' ctl-A in Ascii/Ebcdic 01419000 SO EQU X'0E' SO or ctl-N in both. "shift" @SC91275 01419200 SI EQU X'0F' SI or ctl-O in both. "unshift" @SC91275 01419400 DLE EQU X'10' DLE in both @SC91275 01419600 XON EQU X'11' xon in Ascii/Ebcdic 01419800 XOFF EQU X'13' XOFF in ASCII/EBCDIC @SC90106 01420000 NL EQU X'15' 01420200 CR EQU X'0D' CR in Ascci and Ebcdic 01420400 LF EQU X'25' EBCDIC only @SC90264 01420600 * Ascii constants 01420800 * 1st, all letters and digits: @SC86262 01421000 ASCSYM ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 @SC86262 01421200 * and a few others: 01421400 AHT EQU 9 ASCII HT @SC89301 01421600 ALF EQU 10 ASCII LF @SC89301 01421800 AFF EQU 12 ASCII FF @SC91116 01422000 ASUB EQU 26 ASCII ctrl-Z (soft EOF) @SC89301 01422200 ABL EQU 32 ASCII space 01422400 AEXCL EQU 33 ASCII exclamation mark @SC88273 01422600 A# EQU 35 Ascii # 01422800 AAMP EQU 38 Ascii ampersand 01423000 APLUS EQU 43 ASCII plus sign @SC90239 01423200 ACOM EQU 44 ASCII comma @SC89301 01423400 ADOT EQU 46 ASCII period 01423600 ASL EQU 47 ASCII slash @SC89301 01423800 A@ EQU 64 ASCII at sign @SC91109 01424000 AUP EQU 94 Ascii up-arrow (^) @SC86165 01424200 ADEL EQU 127 Ascii delete/rubout 01424400 ATIL EQU 126 Ascii Tilde 01424600 * Flags for extracting filespec @SC86295 01424800 FFRCF EQU X'40' RECEIVE or foreign filespec @SC86295 01425000 FFSND EQU X'20' SEND @SC86295 01425200 FFGET EQU X'10' GET @SC86295 01425400 FFWLD EQU X'08' Treat incomplete filespec as wild @SC86295 01425600 FFNEW EQU X'02' Get unique name (in place) @SC86295 01425800 FFUTL EQU FFSND+FFGET Extract for file utility @SC86295 01426000 FFHDR EQU FFUTL+FFRCF Decode Kermit file header @SC86295 01426200 FFENC EQU FFNEW+FFRCF Encode Kermit file header @SC86295 01426400 FFDSP EQU FFNEW+FFSND Copy name in standard print form @SC86295 01426600 FFGIV EQU FFWLD Like TAKE, but use for output @SC87117 01426800 * Offsets for fields in KW table. @SC90239 01427000 KW DEFINE @SC91320 01427200 * Miscellaneous constants 01427400 KMIN EQU 20 Kermit protocol minimum pkt size 01427600 KMAX EQU 94 Kermit protocol maximum pkt size 01427800 KMAXF EQU KMAX+1 Kermit xtended pkt base @TB86196 01428000 KDEF EQU 80 Kermit protocol default pkt size 01428200 LPKT EQU KMAXE+KMAX+1 Packet buffer size (with pad) @SC90277 01428400 RPTMIN EQU 3 Normal minimum repeat count @SC92052 01428600 MAXNSENT EQU 512 Size of 'sent' table 8*N @SC90264 01428800 MSNDMAX EQU 12 Max extra files to send 2*N @SC90264 01429000 TAKMAX EQU 10 Max TAKE nesting level 01429200 FORMAXL EQU 31 Maximum file prefix/suffix size @HF86223 01429400 TUNECT EQU 15 Count for retuning long packets @SC88349 01429600 * 3270 orders: 01429800 SBA EQU X'11' Set Buffer Address (3270) 01430000 ICR EQU X'12' Insert cursor @SC88168 01430200 RTA EQU X'3C' Repeat To Address (3270) @SC88139 01430400 ** BEGIN LANGUAGE-SPECIFIC DATA ** @SC92300 01430600 &FSPCPRM SETC '[]' Goes with FMTFSPC @SC92300 01430800 &FMTOPT SETA K'&FSPCPRM Length of "[first-last...]" @SC92300 01431000 &OPRMUB SETC 'Operand must be ' @SC86295 01431200 &OPRMUL SETC 'of length ' @SC86295 01431400 &LOPRNUM SETA K'&OPRMUB Length through "be " @SC92300 01431600 &LOPRMUS SETA K'&OPRMUL+&LOPRNUM Total length @SC92300 01431800 &AAAHINT SETC 'HINTS' (needed by Enter hints),cmd, m=2 @SC92300 01432000 &INVALID SETC 'Invalid' Must be same length as "missing" @SC92300 01432200 &MISSING SETC 'Missing' Must be same length as "invalid" @SC92300 01432400 * Numbered status messages (for E-packets) @SC92300 01432600 &NOERROR SETC 'No errors' Err #00 @SC86156 01432800 &NOTRANS SETC 'No file transfers yet' Err #01 @SC86156 01433000 &TCANCEL SETC 'Transfer cancelled' Err #02 @SC86156 01433200 &BADSERV SETC 'Invalid server command' Err #03 @SC86156 01433400 &TERMIOE SETC 'Terminal I/O error' Err #04 @SC86156 01433600 &BADCHEK SETC 'Bad packet count or chksum' Err #05 @SC86156 01433800 &BADPSYN SETC 'Invalid packet syntax' Err #06 @SC86158 01434000 &BADPTYP SETC 'Invalid packet type' Err #07 @SC86156 01434200 &LOSTPAK SETC 'Lost a packet' Err #08 @SC86156 01434400 &GOTNAK SETC 'Micro sent a NAK' Err #09 @SC86156 01434600 &MICROAB SETC 'Micro aborted' Err #10 @SC86156 01434800 &BADNAME SETC 'Invalid file name' Err #11 @SC86156 01435000 &NOTFOUN SETC 'File not found' Err #12 @SC92300 01435200 &DSKFULL SETC 'Disk or file is full' Err #13 @SC86345 01435400 &DSKIOER SETC 'Disk I/O error' Err #14 @SC86345 01435600 &MISSOPR SETC 'Missing operand' Err #15 @SC86158 01435800 &BADSCMD SETC 'Illegal system command' Err #16 @SC86268 01436000 &KCMDERR SETC 'Kermit command error' Err #17 @SC86171 01436200 &NOPACKS SETC 'No packet received' Err #18 @SC86355 01436400 &RECTRNC SETC 'Records truncated' Err #19 @SC87268 01436600 &BADCOMM SETC 'Bad communication line' Err #20 @SC87300 01436800 &NO8THBQ SETC '8th-bit quote not set' Err #21 @SC89072 01437000 &TOOSHRT SETC 'File too short' Err #22 @SC89218 01437200 &NOSTART SETC 'Missing start-of-packet' Err #23 @SC89219 01437400 &BADOPTN SETC 'Option error on filespec' Err #24 @SC89249 01437600 &BADDISP SETC 'Unable to dispose of file' Err #25 @SC90037 01437800 * Messages and phrases @SC92300 01438000 &AAAAAAS SETC ' as ' (gives filespec actually sent) @SC87300 01438200 &AAAAAIS SETC ' is ' (used for SHOW display) @SC87034 01438400 &ASCQUOT SETC 'One char with ASCII value 33-62 or 96-126' @SC86224 01438600 &AZDISAB SETC 'not enabled' i.e., error: should be ON @SC90239 01438800 &BACKDUP SETC '--original backed up as ' (used for file coll.)@SC90211 01439000 &BADDELF SETC 'Option error: Invalid final delimiter' @SC89249 01439200 &BADDELM SETC 'Option error: Invalid delimiter' @SC89249 01439400 &BADOPTS SETC 'Option error: Unknown file option(s)' @SC89249 01439600 &BADRNGE SETC 'Option error: Invalid line range' @SC89249 01439800 &BADSBCM SETC 'Not a valid subcommand' @SC86355 01440000 &BADTABS SETC 'Tabs out of sequence' @TS86100 01440200 &BYTPSEC SETC 'Disk bytes/sec: ' (see SECABBR) @SC86295 01440400 &CANNOT SETC 'Cannot ' (used with MAIL, PRINT, SUB) @SC90239 01440600 &COLDISC SETC 'File already exists, RECEIVE discarded' @SC90061 01440800 &DEBGERR SETC 'DEBUG error' @SC87012 01441000 &DELIMSG SETC 'Line delimiter: one char or none' @SC88095 01441200 &DSCARDD SETC '--discarded as duplicate' (for file collision) @SC90033 01441400 &DWRDSTK SETC ' dwords of stack used.' @SC89089 01441600 &ENDSRV SETC 'To terminate the server use' ('BYE or FINISH') @SC92300 01441800 &ENTHINT SETC 'Enter &AAAHINT to get started' @SC91295 01442000 &ERRTAKE SETC 'Error reading TAKE file' @SC86239 01442200 &EXTRAOP SETC 'Extra operand' @SC91312 01442400 &FINISHD SETC '** finished **' @SC91172 01442600 &FORFSPC SETC 'Foreign filespec' @SC88035 01442800 &FSENLST SETC ' file(s) sent last.' @SC86295 01443000 &HANDXON SETC 'Handshake is XON -- not needed' @SC87338 01443200 &LASTFIL SETC 'Last file used: ' @BS86090 01443400 &MANYFIL SETC 'Too many SEND files' @SC88306 01443600 &MANYOPT SETC 'Too many options' @SC90239 01443800 &MANYTAB SETC 'Too many tabs' @SC86355 01444000 &MAXNEST SETC 'Past maximum nesting level for TAKE command' @SC92300 01444200 &MISSOPS SETC 'Option error: Missing option(s)' @SC89249 01444400 &MRCTRNC SETC ' records truncated' @SC87268 01444600 &MSGFILE SETC 'File ' @SC87300 01444800 &MSGFILL SETA 5 Length of MSGFILE @SC92300 01445000 &NOBUFFS SETC 'Unable to allocate buffers' @SC92300 01445200 &NOFSENT SETC 'No files sent' @SC86295 01445400 &NOHELPF SETC 'No Help file available' @SC90264 01445600 &NOOPERS SETC 'No (more) operands needed' @SC90179 01445800 &NOWRITE SETC 'Unable to write file' @SC87117 01446000 &ONEFOLL SETC 'One of the following:' @SC92300 01446200 &ONLY130 SETC 'Only first 130 characters displayed!' @PG88335 01446400 &ONOFFCH SETC 'Must be ON, OFF, or a character' @SC87008 01446600 &OPTSIZE SETC 'Optimum packet size: ' @SC88120 01446800 &PKTABBR SETC 'pkt' Must be 3 bytes @SC86295 01447000 &PLSESCP SETC 'Please escape to local Kermit now' @SC92300 01447200 &READYR SETC 'ready to receive.' @SC92300 01447400 &READYS SETC 'ready to send.' @SC92300 01447600 &READYSR SETC 'entering server mode.' @SC92300 01447800 &RECFOLD SETC ' records folded' @SC88120 01448000 &RECVDAS SETC ' Rcv as ' @SC87300 01448200 &REPTCNT SETC ' repeat packets sent' @SC86316 01448400 &REQUIRG SETC ' requiring ' @SC86295 01448600 &SECABBR SETC 'sec' Must be 3 bytes @SC86295 01448800 &SENDING SETC 'Sending ' @SC87300 01449000 &SENDPAK SETC 'Size<20 dangerous; >94 meaningless for SEND' @SC90122 01449200 * Warning on packet size "limits" @SC92300 01449400 &SIMSHRT SETC 'Input file not found or too short' @SC91312 01449600 &SYSCMND SETC 'Specify a &KSYS command to issue' @SC86295 01449800 &SYSFSPC SETC '&KSYS filespec' @SC88035 01450000 &TAKLOOP SETC 'TAKE file loop' @SC86239 01450200 &TORECV SETC ' to RECEIVE the file(s).' @SC92300 01450400 &TOSEND SETC ' to SEND the file(s).' @SC92300 01450600 &UNDEFTR SETC 'Undefined character translation' @SC90040 01450800 &UNPRSOP SETC 'Unprintable start-of-packet' @SC92030 01451000 &VTAMERR SETC 'S/1 VTAM Error Recovery ' @TB87009 01451200 &XTYPMSG SETC 'Text string with ^X for cntl-X' @SC86165 01451400 &ZZBEWAR SETC 'existing files beware' (for HINTS on COLLISION) @SC92300 01451600 &ZZBYTES SETC 'Bytes' @SC92300 01451800 &ZZZZOR SETC 'or' @SC92300 01452000 &ZZSHORT SETC 'short' (for HINTS on BLOCK or PACKET) @SC92300 01452200 * Kermit subcommands and keywords (marked cmd or kwd, resp). @SC92300 01452400 * Keywords are cross-referenced to symbol(s) of higher keywords@SC92300 01452600 * Minimum abbreviation is 1 character unless marked "m=length".@SC92300 01452800 &AAAAAEA SETC 'AEA' kwd->CONTRLR @SC91320 01453000 &AAAAAIO SETC 'I/O' kwd->AADEBUG @SC88168 01453200 &AAAAALL SETC 'ALL' kwd->AAASHOW, m=3 @SC88293 01453400 &AAAAAON SETC 'ON' kwd, m=2 @SC87166 01453600 &AAAABIN SETC 'BINARY' kwd->ATTTYPE @SC91320 01453800 &AAAABYE SETC 'BYE' cmd, m=3 @SC86155 01454000 &AAAADIR SETC 'DIRECTORY' cmd;kwd->REMOTE, m=3 @SC91320 01454200 &AAAAEN SETC 'End ' kwd in mixed-case, fixed-length@SC92300 01454400 &AAAAEND SETC 'END' cmd=AAAQUIT;kwd->ATTRIBU, m=3 @SC88035 01454600 &AAAAEOF SETC 'EOF' kwd->AAAASET, m=3 @SC86133 01454800 &AAAAEOL SETC 'EOL' kwd->RECEIVE,AAASEND, m=3 @SC86133 01455000 &AAAAFIN SETC 'FINISH' cmd, m=3 @SC86155 01455200 &AAAAGET SETC 'GET' cmd @SC86155 01455400 &AAAAOFF SETC 'OFF' kwd, m=2 @SC87166 01455600 &AAAARAW SETC 'RAW' kwd->AADEBUG @SC88168 01455800 &AAAASET SETC 'SET' cmd, m=3 @SC91320 01456000 &AAAATOE SETC 'ATOE' kwd->AAAASET,etc, m=4 @SC87166 01456200 &AAAATTY SETC 'TTY' kwd->CONTRLR @SC91320 01456400 &AAABAUD SETC 'BAUD' kwd->AAAASET, m=2 @SC90099 01456600 &AAACOPY SETC 'COPY' kwd->REMOTE, m=2 @SC91320 01456800 &AAADBIN SETC 'D-BINARY' kwd->ATTTYPE @SC91320 01457000 &AAAECHO SETC 'ECHO' cmd;kwd->AAATAKE, m=2-3 @SC92300 01457200 &AAAETOA SETC 'ETOA' kwd->AAAASET,etc, m=4 @SC87166 01457400 &AAAEXIT SETC 'EXIT' cmd, m=2 @SC92300 01457600 &AAAFILE SETC 'FILE' kwd->AAAASET @SC86295 01457800 &AAAFOLD SETC 'FOLD' kwd->LONGLIN @SC91320 01458000 &AAAGIVE SETC 'GIVE' cmd, m=2 @SC87117 01458200 &AAAHALT SETC 'HALT' kwd->ERRACTI,LONGLIN @SC86171 01458400 &AAAHELP SETC 'HELP' cmd;kwd->REMOTE @SC92300 01458600 &AAAHOST SETC 'HOST' cmd;kwd->REMOTE, m=2 @SC91320 01458800 &AAAKEEP SETC 'KEEP' kwd->INCOMPL @SC86225 01459000 &AAALEFT SETC 'LEFT' kwd->AMARGIN @SC87253 01459200 &AAALINE SETC 'LINE' kwd->AAAASET, m=3 @SC87166 01459400 &AAALONG SETC 'LONG' kwd->AADEBUG @SC90222 01459600 &AAAMAIL SETC 'MAIL' kwd->REMOTE @SC91320 01459800 &AAAMARK SETC 'MARK' kwd->APARITY @SC86316 01460000 &AAANONE SETC 'NONE' kwd->APARITY,CONTRLR @SC91320 01460200 &AAAQUIT SETC 'QUIT' cmd @SC92300 01460400 &AAASAVE SETC 'SAVE' kwd->AADEBUG @SC88168 01460600 &AAASEND SETC 'SEND' cmd;kwd (see AAAASET), m=3 @SC92300 01460800 &AAASERV SETC 'SERVER' cmd, m=3 @SC92300 01461000 &AAASHOW SETC 'SHOW' cmd, m=2 @SC86295 01461200 &AAATAKE SETC 'TAKE' cmd;kwd->AAAASET, m=2-3 @SC86295 01461400 &AAATEST SETC 'TEST' kwd->AAAASET @SC87166 01461600 &AAATEXT SETC 'TEXT' kwd->ATTTYPE @SC91320 01461800 &AAATIME SETC 'TIME' kwd->AADEBUG @SC91172 01462000 &AAATYPE SETC 'TYPE' cmd; kwd->REMOTE (=write) @SC91320 01462200 &AAAVBIN SETC 'V-BINARY' kwd->ATTTYPE @SC91320 01462400 &AADEBUG SETC 'DEBUG' kwd->AAAASET @SC86133 01462600 &AADELAY SETC 'DELAY' kwd->AAAASET, m=3 @SC86164 01462800 &AADELIM SETC 'DELIM' kwd->AAAASET, m=4 @SC88095 01463000 &AAERASE SETC 'ERASE' kwd->REMOTE @SC91320 01463200 &AAGREEK SETC 'GREEK' kwd->CHARSET, m=2 @SC90152 01463400 &AALOCAL SETC 'LOCAL' cmd, m=3 @SC86295 01463600 &AALRECL SETC 'LRECL' kwd->AAAFILE @SC87166 01463800 &AANAMES SETC 'NAMES' kwd->AATDUMP @SC86295 01464000 &AAPPEND SETC 'APPEND' kwd->COLLISN, m=3 @SC91320 01464200 &AAPRINT SETC 'PRINT' kwd->RETMOTE @SC91320 01464400 &AAQUOTE SETC 'QUOTE' kwd->RECEIVE,AAASEND @SC86133 01464600 &AARECFM SETC 'RECFM' kwd->AAAFILE, m=4 @SC87012 01464800 &AARETRY SETC 'RETRY' kwd->AAAASET, m=3 @SC86345 01465000 &AARIGHT SETC 'RIGHT' kwd->AMARGIN @SC87253 01465200 &AASPACE SETC 'SPACE' cmd;kwd->REMOTE, m=2 @SC86295 01465400 &AASPEED SETC 'SPEED' kwd->AAAASET, m=2 @SC90099 01465600 &AATATOE SETC 'TATOE' kwd->AAAASET,etc, m=2-5 @SC87166 01465800 &AATDUMP SETC 'TDUMP' cmd, m=2 @SC86295 01466000 &AATETOA SETC 'TETOA' kwd->AAAASET,etc, m=2-5 @SC87166 01466200 &AATRACE SETC 'TRACE' kwd->AATDUMP @SC90040 01466400 &AAXECHO SETC 'XECHO' cmd, m=2 @SC86204 01466600 &AAXTYPE SETC 'XTYPE' cmd, m=2 @SC86204 01466800 &ABACKUP SETC 'BACKUP' kwd->COLLISN @SC91320 01467000 &AFORCED SETC 'FORCED' kwd->LOCKSHF @SC91275 01467200 &AMARGIN SETC 'MARGIN' kwd->AAAASET @SC87253 01467400 &APARITY SETC 'PARITY' kwd->RECEIVE,AAASEND @SC88288 01467600 &APREFIX SETC 'PREFIX' kwd->FOREIGN @HF86223 01467800 &APROMPT SETC 'PROMPT' kwd->AAAASET, m=2 @SC87268 01468000 &ARENAME SETC 'RENAME' kwd->COLLISN,REMOTE @SC91320 01468200 &ASTATUS SETC 'STATUS' cmd, m=2 @SC86295 01468400 &ASUBMIT SETC 'SUBMIT' kwd->REMOTE, m=2 @SC91320 01468600 &ASUFFIX SETC 'SUFFIX' kwd->FOREIGN @HF86223 01468800 &ASYSCMD SETC 'SYSCMD' kwd->AAAASET, m=2 @SC86295 01469000 &ATTACC SETC 'Account' kwd in mixed-case, fixed-length@SC92300 01469200 &ATTACCT SETC 'ACCOUNT' kwd->ATTRIB, m=4 @SC90037 01469400 &ATTACS SETC 'Access ' kwd in mixed-case, fixed-length@SC92300 01469600 &ATTACSS SETC 'ACCESS' kwd->ATTRIBU, m=3 @SC90037 01469800 &ATTARE SETC 'Area ' kwd in mixed-case, fixed-length@SC92300 01470000 &ATTAREA SETC 'AREA' kwd->ATTRIBU, m=2 @SC90037 01470200 &ATTBLE SETC 'Bytes ' kwd in mixed-case, fixed-length@SC92300 01470400 &ATTBLEN SETC 'BYTE-LENGTH' kwd->ATTRIBU, m=2 @SC90037 01470600 &ATTBLK SETC 'Blksize' kwd in mixed-case, fixed-length@SC92300 01470800 &ATTBLKS SETC 'BLOCKSIZE' kwd->ATTRIBU @SC90037 01471000 &ATTCRE SETC 'Creator' kwd in mixed-case, fixed-length@SC92300 01471200 &ATTCRET SETC 'CREATOR' kwd->ATTRIBU, m=2 @SC90037 01471400 &ATTDAT SETC 'Date ' kwd in mixed-case, fixed-length@SC92300 01471600 &ATTDATE SETC 'DATE' kwd->ATTRIBU, m=2 @SC90037 01471800 &ATTDIS SETC 'Disp ' kwd in mixed-case, fixed-length@SC92300 01472000 &ATTDISP SETC 'DISPOSITION' kwd->ATTRIBU, m=2 @SC90037 01472200 &ATTENC SETC 'Encodng' kwd in mixed-case, fixed-length@SC92300 01472400 &ATTENCD SETC 'ENCODING' kwd->ATTRIBU @SC90037 01472600 &ATTFRM SETC 'Format ' kwd in mixed-case, fixed-length@SC92300 01472800 &ATTFRMT SETC 'FORMAT' kwd->ATTRIBU @SC90037 01473000 &ATTLEN SETC 'Length ' kwd in mixed-case, fixed-length@SC92300 01473200 &ATTLENG SETC 'LENGTH' kwd->ATTRIBU @SC90037 01473400 &ATTORI SETC 'Origin ' kwd in mixed-case, fixed-length@SC92300 01473600 &ATTORIG SETC 'ORIGIN' kwd->ATTRIBU @SC90037 01473800 &ATTPAS SETC 'Passwrd' kwd in mixed-case, fixed-length@SC92300 01474000 &ATTPASS SETC 'PASSWORD' kwd->ATTRIBU, m=2 @SC90037 01474200 &ATTPRO SETC 'Protect' kwd in mixed-case, fixed-length@SC92300 01474400 &ATTPROT SETC 'PROTECT' kwd->ATTRIBU, m=2 @SC90037 01474600 &ATTRIBU SETC 'ATTRIBUTES' kwd->AAAASET, m=3 @SC90037 01474800 &ATTSIN SETC 'Sysinfo' kwd in mixed-case, fixed-length@SC92300 01475000 &ATTSINF SETC 'SYS-INFO' kwd->ATTRIBU, m=2 @SC90037 01475200 &ATTTYP SETC 'Type ' kwd in mixed-case, fixed-length@SC92300 01475400 &ATTTYPE SETC 'TYPE' kwd->ATTRIBU,AAAFILE (=variety)@SC90037 01475600 &ATTUNK SETC 'Unknown' kwd in mixed-case, fixed-length@SC92300 01475800 &A8THBQU SETC '8-BIT-QUOTE' kwd->AAAASET @SC87008 01476000 &BLKCHCK SETC 'BLOCK-CHECK' kwd->AAAASET @SC86133 01476200 &BLNKFRE SETC 'BLANK-FREE-2' kwd->BLKCHCK @SC92085 01476400 &CHARSET SETC 'CHARACTER-SET' kwd->AAAFILE,TRANSFR, m=2 @SC90040 01476600 &COLLIS SETC 'Collisn' kwd in mixed-case, fixed-length@SC92300 01476800 &COLLISN SETC 'COLLISION' kwd->AAAFILE, m=2 @SC90033 01477000 &CONTINU SETC 'CONTINUE' kwd->ERRACTI @SC86171 01477200 &CONTRLR SETC 'CONTROLLER' kwd->AAAASET, m=3 @SC87268 01477400 &CTRLCHR SETC 'CONTROL-CHARACTER' kwd->AAAASET,AATDUMP, m=8 @SC87268 01477600 &CYRILLC SETC 'CYRILLIC' kwd->CHARSET, m=3 @SC90152 01477800 &CZECH SETC 'CZECH' kwd->CHARSET, m=2 @SC90152 01478000 &DEFAULT SETC 'DEFAULT' kwd->OVERWRI @SC90033 01478200 &DISCARD SETC 'DISCARD' kwd->INCOMPL,COLLISN @SC86225 01478400 &ENDOFLI SETC 'END-OF-LINE' kwd->RECEIVE,AAASEND @SC86133 01478600 &ENDOFPA SETC 'END-OF-PACKET' kwd->RECEIVE,AAASEND @SC86133 01478800 &ERRACTI SETC 'ERROR-ACTION' kwd->AAATAKE, m=3 @SC86171 01479000 &FILTYPE SETC 'FILE-TYPE' kwd->AAAASET (obsolete), m=5 @SC87166 01479200 &FIXED SETC 'FIXED' kwd->AARECFM @SC87012 01479400 &FOREIGN SETC 'FOREIGN' kwd->AAAASET, m=3 @HF86223 01479600 &FULLSCR SETC 'FULLSCREEN' kwd->CONTRLR @SC92030 01479800 &GRAPHIC SETC 'GRAPHICS' kwd->CONTRLR @SC91320 01480000 &HANDSHK SETC 'HANDSHAKE' kwd->AAAASET @SC87274 01480200 &HEBREW SETC 'HEBREW' kwd->CHARSET, m=2 @SC90152 01480400 &INCOMPL SETC 'INCOMPLETE' kwd->AAAASET, m=3 @SC86225 01480600 &INITIAL SETC 'INITIAL' kwd->AARETRY @SC86345 01480800 &JAPNEUC SETC 'JAPAN-EUC' kwd->CHARSET, m=3 @SC91325 01481000 &LOCKSHF SETC 'LOCKING-SHIFT' kwd->TRANSFR @SC91275 01481200 &LONGLIN SETC 'LONGLINE' kwd->AAAFILE, m=2 @SC88120 01481400 &OVERWRI SETC 'OVERWRITE' kwd->COLLISN,AAAFILE @SC91320 01481600 &PACKETS SETC 'PACKETS' kwd->AARETRY @SC86345 01481800 &PACKLEN SETC 'PACKET-LENGTH' kwd->RECEIVE,AAASEND @SC90150 01482000 &PACKSIZ SETC 'PACKET-SIZE' kwd->RECEIVE,AAASEND @SC86133 01482200 &PADCHAR SETC 'PAD-CHAR' kwd->RECEIVE,AAASEND, m=5 @SC86164 01482400 &PADDING SETC 'PADDING' kwd->RECEIVE,AAASEND, m=3 @SC86164 01482600 &PREFIXD SETC 'PREFIXED' kwd->CTRLCHR @SC92300 01482800 &PRESERV SETC 'PRESERVE' kwd->OVERWRI @SC90033 01483000 &RECEIVE SETC 'RECEIVE' cmd;kwd->AAAASET, m=3 @SC92300 01483200 &REMOTE SETC 'REMOTE' cmd, m=3 @SC86155 01483400 &SERIES1 SETC 'SERIES1' kwd->CONTRLR @SC91320 01483600 &SIMULAT SETC 'SIMULATE' cmd, m=2 @SC91312 01483800 &SRVTIME SETC 'SERVER-TIMEOUT' kwd->AAAASET, m=3 @SC90045 01484000 &STARTOP SETC 'START-OF-PACKET' kwd->RECEIVE,AAASEND @SC86133 01484200 &TABSEXP SETC 'TABS-EXPAND' kwd->AAAASET @SC86133 01484400 &TIMEOUT SETC 'TIMEOUT' kwd->RECEIVE,AAASEND @SC86164 01484600 &TRANSFR SETC 'TRANSFER' kwd->AAAASET, m=2 @SC90040 01484800 &TRANSPA SETC 'TRANSPARENT' kwd->CHARSET, m=2 @SC90250 01485000 &TRUNCAT SETC 'TRUNCATE' kwd->LONGLIN @SC91320 01485200 &TTTABLE SETC 'TTABLE' kwd->AAAASET, m=2 @SC87117 01485400 &UNDEFND SETC 'UNDEFINED' kwd->AARECFM @SC86295 01485600 &UNPREFD SETC 'UNPREFIXED' kwd->CTRLCHR @SC92300 01485800 &VARIABL SETC 'VARIABLE' kwd->AARECFM @SC87012 01486000 &VERSION SETC 'VERSION' cmd, m=2 @SC90339 01486200 &VTAMTTY SETC 'VTAMTTY' kwd->CONTRLR @SC91320 01486400 &WARNING SETC 'WARNING' kwd->AAAASET (obsolete) @SC90033 01486600 ** END LANGUAGE-SPECIFIC DATA ** @SC92300 01486800