TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

Chapter 6 305
Host Language Access
RPG
O* Display error message.
O*
O E 1 ERRBUF
O 23 "-----------------------"
O 30 "-------"
O E 1 ERRBUF
O 11 "IMAGE ERROR"
O STAT,1 21 " *"
O 35 " HAS OCCURRED."
O E 2 ERRBUF
O 23 "-----------------------"
O 30 "-------"
O E 1 ERRBUF
O 23 "---Enter, <1> to Abort."
O 43 ".., <2> TO Continue"
O*--------------------------------------------------------------
O* Display message for continuing execution after error.
O*
O E 1 ERRCON
O 15 "Continuing....."
O*--------------------------------------------------------------
O* Display prompt for input of DATE.
O*
O E 1 GETDAT
O 23 "Enter The DATE of Purch"
O 38 "ase as (YYMMDD)"
O*--------------------------------------------------------------
O* Display Line Header (dashes).
O*
O E 1 LINHDR
O 23 "-----------------------"
O *PLACE 46
O *PLACE 69
O 76 "-------"
O*--------------------------------------------------------------
O* Display message that no IMAGE chain head was found.
O*
O E 1 NOHEAD
O 23 "***********************"
O 39 "****************"
O E 1 NOHEAD
O 23 "* No Such Entry in the "
O 39 "Sales Dataset *"
O E 1 NOHEAD
O 23 "* Please Try Again. "
O 39 " *"
O E 1 NOHEAD
O 23 "***********************"
O 39 "****************"
O E 1 NOHEAD
O 23 "Press Enter To Continue"
O*--------------------------------------------------------------
O* Display Header line for listing of Sales records.
O*
O E 1 SALHDR
O 13 "Acct-Number "
O 28 "Stock-Number "
O 33 "QTY "