RARTE4 ;HISC/GJC - Edit/Delete Reports (cont) ;11/4/97 08:02
Source file <RARTE4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOCK | ;Try to lock next avail IEN, if locked - fail, if used - increment again
|
|
| IN | ;lock rpt for the 1st time if editing existing rpt
|
|
| IN0 | ;skip to here if rpt created in this session and already locked
|
|
| IN1 | ;skip to here if div param disallows rpt copying
|
|
| PRT | ||
| ASKREP | ||
| PRT1 | ||
| Q | ||
| Q1 | ||
| DICW | ; Build DIC("W") string
|
|
| INCRPT | ; Kill extraneous variables to avoid collisions.
; Incomplete report information, select another case #. |
|
| UNLOCK2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RARPT - [#74] | Classic Fileman Calls |
| ^RABTCH(74.2 - [#74.2] | Classic Fileman Calls |