In this example, the attributes for a standard Component CTEST in a database MYDB are defined as follows:
ORDINATE; CNUMBER LE; 4 ED; N DATA; CNAME LE; 4 ED; A DATA; CFILLER LE; 2 ED; A DATA; AMOUNT1 LE; 4 ED; + DATA; AMOUNT2 LE; 4 ED; - DE; 2 DATA; AMOUNT3 LE; 6 ED; C DE; 2 DK; DATA; AMOUNT4 LE; 6 ED; S DE; 2 DK; SP; ,
GLI input records are supplied as follows:
HEADER DES;MYDB SRC;PROG ORI;MYGLI ERM;Y RQA;Y LOG;Y ISPEC COMPONENT; CTEST FORMATTED; CTEST 0012REC1234 CTEST 0012INQ2222 CTEST 0012INQ3333 FINISH
Current records in the MYDB database that correspond to these Ordinate values have the following contents, as they would be displayed on an Ispec screen. Examples of status line messages are also shown, where the record for CNUMBER 2222 has been deleted, and where no record exists in the database for CNUMBER 3333.
Attribute | Record 1 | Record 2 | Record 3 |
---|---|---|---|
CNUMBER | 1234 | 2222 | 3333 |
CNAME | ABCD | BBBB | |
CFILLER | xx | xy | |
AMOUNT1 | 4321+ | 4321- | 0+ |
AMOUNT2 | 22.22 - | 22.22 + | 0- |
AMOUNT3 | 1357.99 CR | 1357.99 DR | 0 CR |
AMOUNT4 | 5,555.00 DR | 5,555.00 CR | 0 DR |
(Status Line) | Key Deleted ** | ITEM NOT FOUND ** |
Resulting GLI Output
The resulting GLI output from the application consists of the following records, where the first six characters are positions 1 through 6, and the remainder start at position 153.
OK CTESTG24680024DEC000012REC1234ABCDxx432A 222K 013579R 0055550{ ERRORS Key Deleted OK CTESTG24681124DEC000012INQ2222BBBBxy432J 222B 013579I 0055550} ERRORSCNUMBER ** ITEM NOT FOUND ** NOT.OK
In the above example, built-in attribute values are output as they would appear in the standard headers, as shown in the following table.
Built-in Attribute | Value |
---|---|
TranNo | 246800 and 246811 |
Input_Date | 24DEC00 |
ActMth | 0012 |
Maint | REC and INQ (as input) |