HDISVM03 ;BPFO/JRP,HRN/ART - UUENCODE;5/31/2007
Source file <HDISVM03.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCODE(IN,OUT,ZERO) | ;UUEncode contents of array
; Input: IN = Array containing lines of text to encode ; (FULL GLOBAL REFERENCE) ; IN(0) = File name for encoded text ; (used when uudecoding) ; IN(1..n) = Lines of text ; IN(n,1..m) = Continuation of text when length of line ; is longer than 245 characters ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; ZERO = Flag indicating if the main nodes in the input array ; store their text on a zero node. A value of 1 ; denotes that the text is stored in IN(node,0). A ; value of 0 denotes that the text is not. This only ; applies to the main nodes; IN(0) and continuation ; nodes are assumed to not use a zero node (i.e. ; IN(0,0) and IN(node,cont,0) are not valid). ; (DEFAULTS TO 0) |
|
| ENCGRID(IN,OUT,DELIMITR) | ;UUEncode contents of a grid
; Input: IN = Array containing grid cells of text to encode ; (FULL GLOBAL REFERENCE) ; IN(0) = File name for encoded text ; (used when uudecoding) ; IN(1..n,1..n) = Grid cells of text - IN(row,col)=value ; IN(n,n,1..m) = Continuation of text when length of line ; is longer than 245 characters ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; DELIMITR = Delimiter character (DEFAULTS TO | (pipe)) |
|
| UUEWORK(TEXT,WORKING,OUT,OUTNODE) | ;UUEncode text & add to output
; Input: TEXT = Text to append to uuencoded output array ; WORKING = Text that hasn't been uuencoded yet as ; uuencoding is done against 45 characters ; at a time ; (PASS BY REFERENCE) ; OUT = Array to put uuencoded text into ; (FULL GLOBAL REFERENCE) ; OUTNODE = Node in OUT to store uuencoded text into ; (PASS BY REFERENCE) |
|
| UUE45(TEXT) | ;UUEncode a string of 45 characters
; Input: TEXT = String of text to uuencode (up to 45 characters) |
|
| UUE3(CHARS) | ;UUEncode 3 characters
; Input: CHARS = Characters to uuencode (up to 3 characters) |
| Name | Line Occurrences |
|---|---|
| $$UUE3 | UUE45+10, UUE45+11 |
| $$UUE45 | ENCODE+63, ENCGRID+67, UUEWORK+27 |
| UUEWORK | ENCODE+51, ENCODE+56, ENCODE+59, ENCGRID+52, ENCGRID+57, ENCGRID+60, ENCGRID+63 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BIN1 | UUE3+9~, UUE3+15*, UUE3+16*, UUE3+21, UUE3+22 |
| BIN1A | UUE3+10~, UUE3+21*, UUE3+25 |
| BIN2 | UUE3+9~, UUE3+17*, UUE3+18*, UUE3+22, UUE3+23 |
| BIN2A | UUE3+10~, UUE3+22*, UUE3+26 |
| BIN3 | UUE3+9~, UUE3+19*, UUE3+20*, UUE3+23, UUE3+24 |
| BIN3A | UUE3+10~, UUE3+23*, UUE3+27 |
| BIN4A | UUE3+10~, UUE3+24*, UUE3+28 |
| CHARS | UUE3~, UUE3+11*, UUE3+12, UUE3+13, UUE3+14 |
| CNODE | ENCGRID+36~, ENCGRID+49*, ENCGRID+50*, ENCGRID+51, ENCGRID+55, ENCGRID+56 |
| CONT | ENCODE+37~, ENCODE+53*, ENCODE+54*, ENCODE+55, ENCGRID+36~, ENCGRID+54*, ENCGRID+55*, ENCGRID+56 |
| CRLF | ENCODE+37~, ENCODE+40*, ENCODE+59, ENCGRID+36~, ENCGRID+39*, ENCGRID+63 |
| DEC1 | UUE3+9~, UUE3+12*, UUE3+15 |
| DEC1A | UUE3+10~, UUE3+25*, UUE3+29 |
| DEC2 | UUE3+9~, UUE3+13*, UUE3+17 |
| DEC2A | UUE3+10~, UUE3+26*, UUE3+29 |
| DEC3 | UUE3+9~, UUE3+14*, UUE3+19 |
| DEC3A | UUE3+10~, UUE3+27*, UUE3+29 |
| DEC4A | UUE3+10~, UUE3+28*, UUE3+29 |
| DELIMITR | ENCGRID~, ENCGRID+38*, ENCGRID+60 |
| IN | ENCODE~, ENCODE+43, ENCODE+49, ENCODE+50, ENCODE+54, ENCODE+55, ENCGRID~, ENCGRID+42, ENCGRID+48, ENCGRID+50 , ENCGRID+51, ENCGRID+55, ENCGRID+56 |
| LENGTH | UUE45+7~, UUE45+9*, UUE45+10, UUE45+11, UUE45+12 |
| LENWORK | UUEWORK+17~, UUEWORK+22*, UUEWORK+23, UUEWORK+24 |
| LOOP | UUE45+7~, UUE45+11* |
| NODE | ENCODE+37~, ENCODE+48*, ENCODE+49*, ENCODE+50, ENCODE+54, ENCODE+55 |
| OUT | ENCODE~, ENCODE+38, ENCODE+45, ENCODE+51, ENCODE+56, ENCODE+59, ENCODE+63, ENCODE+67, ENCODE+68, ENCGRID~ , ENCGRID+37, ENCGRID+44, ENCGRID+52, ENCGRID+57, ENCGRID+60, ENCGRID+63, ENCGRID+67, ENCGRID+71, ENCGRID+72, UUEWORK~ , UUEWORK+27 |
| OUTNODE | ENCODE+37~, ENCODE+46*, ENCODE+51, ENCODE+56, ENCODE+59, ENCODE+63, ENCODE+64*, ENCODE+67, ENCODE+68, ENCGRID+36~ , ENCGRID+45*, ENCGRID+52, ENCGRID+57, ENCGRID+60, ENCGRID+63, ENCGRID+67, ENCGRID+68*, ENCGRID+71, ENCGRID+72, UUEWORK~ , UUEWORK+27, UUEWORK+29* |
| RNODE | ENCGRID+36~, ENCGRID+47*, ENCGRID+48*, ENCGRID+50, ENCGRID+51, ENCGRID+55, ENCGRID+56 |
| STOP | UUEWORK+17~, UUEWORK+18*, UUEWORK+20, UUEWORK+25* |
| TEXT | ENCODE+37~, ENCODE+43*, ENCODE+44*, ENCODE+45, ENCODE+50*, ENCODE+51, ENCODE+55*, ENCODE+56, ENCGRID+36~, ENCGRID+42* , ENCGRID+43*, ENCGRID+44, ENCGRID+51*, ENCGRID+52, ENCGRID+56*, ENCGRID+57, UUEWORK~, UUEWORK+23, UUEWORK+24*, UUE45~ , UUE45+8*, UUE45+9, UUE45+11 |
| UUENC | UUE45+7~, UUE45+10*, UUE45+11*, UUE45+12 |
| WORKING | ENCODE+37~, ENCODE+41*, ENCODE+51, ENCODE+56, ENCODE+59, ENCODE+62, ENCODE+63, ENCGRID+36~, ENCGRID+40*, ENCGRID+52 , ENCGRID+57, ENCGRID+60, ENCGRID+63, ENCGRID+66, ENCGRID+67, UUEWORK~, UUEWORK+22, UUEWORK+23*, UUEWORK+25, UUEWORK+27 , UUEWORK+30* |
| ZERO | ENCODE~, ENCODE+39*, ENCODE+50 |
