%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 |
|