TRANSFER Reference Manual

READ-PROF-REC-A02
TISERV UOW Descriptions
2–432 069139, Update 1 to 40969 Tandem Computers Incorporated
READ-PROF-REC-A02
(UOW Code 231)
READ-PROF-REC-A02 reads a user-maintained depot profile record.
DEF read-prof-rec-a02-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 231.
02 corr-name PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 rec-type PIC 9(4) COMP.
02 rec-seq-num PIC S9(4) COMP.
02 options.
03 skip-exact TYPE BOOLEAN.
03 any-rec-type TYPE BOOLEAN.
03 any-seq-num TYPE BOOLEAN.
03 depot-flag TYPE BOOLEAN.
02 num-requested TYPE BINARY 16 UNSIGNED VALUE 1.
02 max-datasize TYPE BINARY 16 UNSIGNED VALUE 80.
02 pad-char PIC X VALUE SPACE.
02 filler PIC X VALUE SPACE.
END.
DEF read-prof-rec-a02-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 231.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 recs-returned OCCURS 0 TO 1 TIMES
DEPENDING ON num-returned.
03 rec-type PIC 9(4) COMP.
03 rec-seq-num PIC S9(4) COMP.
03 update-control TYPE BINARY 16.
03 data-len TYPE BINARY 16.
03 data-string PIC X(80).
END.
HDR
is the UOW header. The UOW-CODE value is 231.