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