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