Program drill-down
VERSION_CTRL_MAN
VERSION CONTROL. Type MAN, base table ZX_PGMS_FIELDS.
Field inventory
26
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | HEADING | T | -1 | 101, 49 | ||
| 1 | 0.0 | TYPE | T | -1 | 101, 121 | ||
| 1 | 0.0 | PROGRAM | I | -1 | 211, 169 | $SELECT I:D\TYPE;=;PRG S:PROGRAM;I\PROGRAM I:D\TYPE;=;ENQ S:ZE_ENQ;I\PROGRAM I:D\TYPE;=;REP S:PROGRAM;I\PROGRAM $VALIDATE M: C:UCASE I:D\TYPE;=;PRG DO(001) F:ZP_PGMS;Y;ZP_PROGRAM;T\PROGRAM1=ZP_DESC40 F:ZX_PGMS_FIELDS;Y;ZX_PROGRAM;I\GUID=ZX_GID,T\LAST_EDIT=ZX_AU_DATE;ZX_FIELD='ZX_EXIT' DOEND(001) |
|
| 1 | 0.0 | TYPE | C | -1 | 521, 169 | $SELECT I:D\TYPE;=;PRG S:PROGRAM;I\PROGRAM I:D\TYPE;=;ENQ S:ZE_ENQ;I\PROGRAM I:D\TYPE;=;REP S:PROGRAM;I\PROGRAM |
|
| 1 | 0.0 | TYPE | T | -1 | 281, 121 | ||
| 1 | 0.0 | PROGRAM | T | -1 | 211, 205 | ||
| 1 | 0.0 | PROGRAM | T | -1 | 101, 169 | ||
| 1 | 0.0 | NEW_DATE | I | -1 | 211, 289 | $VALIDATE M: |
|
| 1 | 0.0 | TYPE | D | -1 | 211, 121 | $DEFAULT B:ADDITEM;D\TYPE;PRG,ENQ,REP $CALCULATE M: C:UCASE I:D\TYPE;=;PRG A:CONST;PROGRAM - ZX_PGMS_FIELDS;T\TYPE1 I:D\TYPE;=;ENQ A:CONST;REPORT WRITER - ZE_ENQ;T\TYPE1 I:D\TYPE;=;REP A:CONST;PRINTING.EXE - CALLING ZX_PGMS_FIELDS;T\TYPE1 |
|
| 1 | 0.0 | LST_EDT | T | -1 | 101, 253 | ||
| 1 | 0.0 | LAST_EDIT | T | -1 | 211, 253 | ||
| 1 | 0.0 | NEW_DATE | T | -1 | 101, 289 | ||
| 1 | 0.0 | Label 15 | T | -1 | 641, 49 | ||
| 1 | 0.0 | Label 16 | T | -1 | 641, 73 | ||
| 1 | 0.0 | DATE | T | -1 | 691, 49 | ||
| 1 | 0.0 | TIME | T | -1 | 691, 73 | ||
| 1 | 0.0 | TEMP | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME 'START CLOCK TIMER 1000 = 1 SECOND A:TIMER_ON;1000 |
|
| 1 | 0.0 | GUID | I | 0 | 1, 73 | ||
| 1 | 0.0 | ZX_PGMS_FIELDS | ZX_KEY | I | 0 | 71, 73 | $DEFAULT A:CONST;ZZ_X;I\ZX_KEY |
| 1 | 0.0 | ZX_PGMS_FIELDS | ZX_FIELD | I | 0 | 41, 73 | $DEFAULT A:CONST;ZX_EXIT;I\ZX_FIELD |
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | $VALIDATE I:D\TYPE;=;PRG W:ZX_PGMS_FIELDS;;;ZX_GID=I\GUID,ZX_AU_DATE=I\NEW_DATE;ZX_GID='$I\GUID$' I:D\TYPE;=;ENQ W:ZE_ENQ;;;ZE_KEY=I\PROGRAM,ZE_AU_DATE=I\NEW_DATE;ZE_KEY='$I\PROGRAM$' I:D\TYPE;=;REP W:ZX_PGMS_FIELDS;;;ZX_GID=I\GUID,ZX_AU_DATE=I\NEW_DATE;ZX_GID='$I\GUID$' A:CONST;;D\TYPE,T\TYPE1,I\PROGRAM,T |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |