DICQ1 ;SFISC/GFT,TKW - HELP FOR LOOKUPS ;01MAR2016
Source file <DICQ1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Set up parameters for lister call, then display current entries.
|
|
| W | ||
| E1 | ||
| L | ; List current entries in the file.
|
|
| DSP(DINDEX,DICQ,DIC,DIFILE) | ; Display entries from DICQ array
; note: this routine is called from the lister, DICLIX & DICL1. |
|
| ID | ; Put code to display .01 field and Identifiers into DDH array.
|
|
| WOV | ||
| W1 | ||
| 0 | ; If LAYGO allowed, display additional help.
|
|
| 10 | ; Tell user that they may enter new entries to the file
|
|
| RCR | ; Recursive call to display entries on pointed-to file.
|
|
| HP | ||
| EGP | ||
| P1 | ||
| H | ; Display eXecutable help and long description for .01 field.
|
|
| CHKACC | ;Check file access
|
