IBDF9B1 ;ALB/CJM - ENCOUNTER FORM - (report data fields) ;APRIL 22,1993
Source file <IBDF9B1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
REPORT | ;
|
|
RANGE | ;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
|
|
SEARCH(TOP,BOTTOM,LEFT,RIGHT) | ;searches for data fields in IBBLK falling within the rectangle defined by TOP,BOTTOM,LEFT,RIGHT and reports on them
|
|
RTNDESCR | ;sets RTN=package interface and gets fields needed from the 0 node, sets the flags LIST, & WP
|
|
;prints @ARY
|
||
PAUSE() | ;pauses after each field discription is displayed
|
|
SETARY | ;writes data field description to @ARY
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|