Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Advisory Messages
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
A-6
Modifying or Replacing the Advisory Message
Routine
Example A-1. ADVISORY^MESSAGE Source Listing (page 1 of 2)
PROC ADVISORY^MESSAGE( ERRNUM, BUF, MESSLEN );
INT ERRNUM; ! THE ERROR NUMBER
STRING .BUF; ! PLACE MESSAGE HERE
INT .MESSLEN; ! RETURN MESSAGE LENGTH HERE (MAX 255)
BEGIN
! RETURN THE MESSAGE (AND ITS LENGTH) FOR THE GIVEN ERROR NUMBER.
! THE MESSAGES SHOULD PROBABLY BE LIMITED TO 38 CHARACTERS TO ALLOW
! THE FULL MESSAGE TO FIT ON MOST SCREENS.
!
INT LEN;
INT OFFSET;
STRING MSGTEXT = 'P' := [
!....+....1....+....2....+....3....+....4
!REQMISS = 1! "REQUIRED FIELD MISSING",
!PREVMISS = 2! "PREVIOUS FIELD MISSING",
!OTHERMISS = 3! "EARLIER FIELD MISSING",
!SHORTLEN = 4! "FIELD TOO SHORT",
!LENWRONG = 5! "FIELD NOT CORRECT LENGTH",
!LONGLEN = 6! "FIELD TOO LONG",
!UNEXPECTCHAR = 7! "WRONG FORMAT",
!NOTDIGIT = 8! "WRONG FORMAT: DIGIT EXPECTED",
!NOTALPHA = 9! "WRONG FORMAT: LETTER EXPECTED",
!....+....1....+....2....+....3....+....4
!INVALIDNUMFORM= 10! "INVALID NUMBER FORMAT",
!VALOVFL = 11! "VALUE WRONG",
!ILLVAL = 12! "VALUE INCORRECT",
!TELLHEAD = 13! "MESSAGE: ",
!DEPOCCUR = 14! "DEP OCCUR FLD ERR-INPUT RESTARTED",
!CANTABORT = 15! "ABORT NOT ALLOWED",
!FIELDABSENT = 16! "FIELD IS ABSENT", !15!
!NOTALLDBCS = 17! "WRONG FORMAT: DBCS EXPECTED", !27!
!NOKATAKANA = 18! "WRONG FORMAT: KATAKANA NOT ALLOWED", !34!
!INVALIDASIAN = 19! "WRONG FORMAT: INVALID ASIAN CHARACTERS", !38!
" " ];
LITERAL ! OFFSETS INTO MSGTEXT
OFF^01 = 0,
OFF^02 = OFF^01 + 22,
OFF^03 = OFF^02 + 22,
OFF^04 = OFF^03 + 21,
OFF^05 = OFF^04 + 15,
OFF^06 = OFF^05 + 24,
OFF^07 = OFF^06 + 14,
OFF^08 = OFF^07 + 12,
OFF^09 = OFF^08 + 28,
OFF^10 = OFF^09 + 29,
OFF^11 = OFF^10 + 21,
OFF^12 = OFF^11 + 11,
OFF^13 = OFF^12 + 15,
OFF^14 = OFF^13 + 9,
OFF^15 = OFF^14 + 33,
OFF^16 = OFF^15 + 17,
OFF^17 = OFF^16 + 15,
OFF^18 = OFF^17 + 27,
OFF^19 = OFF^18 + 34,
OFF^LAST= OFF^19 + 38,