DITCPL ;MSC/GFT;COMPARE TWO LISTS, LEFT/RIGHT;24JAN2013
Source file <DITCPL.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 |
---|---|---|
EN(LEFT,RIGHT,HEADER) | ; Main Entry Point
|
|
D | ||
GET(RL,LINE) | ;RETURNS RIGHT OR LEFT LINE
|
|
STRIP(X) | ;F Q:X'?.E1" " S X=$E(X,1,$L(X)-1) ;Take off trailing spaces
|
|
PARTIAL | ||
E1 | ;Go down to line I on rt side
|
|
Q | ||
SBS(L1,L2) | ;SIDE BY SIDE PRINT
|
|
W1 | ;WRITE LEFT SIDE, line G
|
|
W2(DITCPLLF) | ;WRITE RIGHT SIDE, line G
|
|
HEAD | ;If we haven't written subheader, do so
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | EN+5~, EN+7*, SBS+3, SBS+4, W1+1, W2+1 |
DI | EN+3~ |
DI( | GET+1, GET+2 |
DI(1 | EN+3*, EN+6 |
DI(2 | EN+3*, EN+6 |
DITCPLLF | W2~, W2+1 |
E1 | EN+5~, EN+6*, D, D+2, E1+2 |
E2 | EN+5~, EN+6*, D, D+1, D+5 |
G | EN+5~, D+1*, D+2*, D+7*, E1+3*, SBS+3*, W1+1, W2+1 |
H | EN+4~*, HEAD+1* |
HEADER | EN~, HEAD+1 |
I | EN+5~, D+1*, D+2*, D+5*, E1+2, E1+3 |
IFE | EN+5~, D+4*, D+5, E1+4*, SBS+3* |
IFN | EN+5~, D+4*, D+5, E1+2* |
IFP | EN+5~, D+4*, PARTIAL* |
IOM | EN+7, HEAD+1 |
J | EN+5~, E1+2* |
K | EN+5~, PARTIAL*, SBS+3* |
L | EN+5~, SBS+2*, SBS+3, SBS+4* |
L1 | EN+5~, EN+7*, D*, D+2, D+3, D+4, D+6, D+7, E1+2, E1+4 , SBS~, SBS+2, SBS+3 |
L2 | EN+5~, EN+7*, D*, D+1, D+3, D+5, D+6, D+7*, E1+2, E1+3* , E1+4, SBS~, SBS+2, SBS+3 |
LEFT | EN~, EN+3 |
LINE | GET~, GET+1, GET+2 |
RIGHT | EN~, EN+3 |
RL | GET~, GET+1, GET+2 |
S | EN+5~, EN+7*, SBS+3 |
S1 | SBS+1~, SBS+2*, SBS+3* |
S2 | SBS+1~, SBS+2*, SBS+3* |
SHORT | EN+2~*, D+6, PARTIAL, E1+2 |
V1 | EN+5~, D+4*, D+7, PARTIAL, E1+4 |
V2 | EN+5~, D+5*, PARTIAL, E1+4 |
WINDOW | EN+1~*, D+5, E1+2 |
X | EN+5~, D+1*, D+2*, D+7*, STRIP~, STRIP+1, E1+2*, E1+3*, SBS+3*, SBS+4 , W1+1*, W2+1* |
Y | EN+5~, E1+2*, SBS+3*, SBS+4 |
Z | EN+5~, D+1*, D+2*, D+7*, E1+3*, SBS+2*, SBS+3*, W1+1*, W2+1* |