Example of GLI Output Data

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)