%ZISS1 ;AC/SFISC - Collect screen parameters 5/29/88 2:02 PM ;1/24/08 16:10
Source file <ZISS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VALID | ;
|
|
SET2 | ;
|
|
INDCK | ;
|
|
SRAY | ;
|
|
CHECK | ;Entry point called from input transforms of fields in DEV/TT files.
|
|
CHECK1 | ;Entry point called from input transforms of fields in DEV/TT files.
|
|
FORM | ;Entry point called from input transforms of fields in DEV/TT files.
|
|
L | ||
L1 | ||
L2 | ;Find $C(x)_$C(y) and merge
|
|
L3 | ;
|
|
STAR | ;S ZISNUM="" F %ZISI=0:0 S ZISXL=ZISXL+1 S ZISCH=$E(%ZISXX,ZISXL) S:ZISCH?1N ZISNUM=ZISNUM_ZISCH I ZISCH=""!(ZISCH=",") S %ZISYY=%ZISYY_"$C("_+ZISNUM_")",ZISXL=ZISXL-1 Q
|
|
QUOTE | ||
DOLR | ;Looking for $C.
|
|
PAREN | ||
SCAN | ||
S1 | ||
S2 | ;MERGE $C
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|