/**************************/ /* PL/I FMS CONSTANTS */ /**************************/ /* NAMES ARE AS IN THE MANUAL, WITH DOLLAR SIGNS REPLACED BY UNDERSCORES */ /* NOTE - THESE DEFINITIONS WILL BE CHANGED TO %REPLACE'S WHEN WE GET THE NEW COMPILER, SO UNUSED SYMBOLS WILL NOT TAKE UP RUN-TIME MEMORY. WE PUT THEM IN AN EXTERNAL STRUCTURE SO THAT IF USED BY MULTIPLE MODULES YOU GET ONLY ONE COPY IN MEMORY. */ DCL 1 FMSDEF EXTERNAL, /* NAMES FOR ERROR CODES */ 2 FS_SUC FIXED BIN STATIC INITIAL(1), /*SUCCESSFUL COMPLETION*/ 2 FS_INC FIXED BIN STATIC INITIAL(2), /*CURRENT FORM INCOMPLETE*/ 2 FE_FCD FIXED BIN STATIC INITIAL(-1), /*UNDEFINED FUNCTION CODE*/ 2 FE_IMP FIXED BIN STATIC INITIAL(-2), /*IMPURE AREA TOO SMALL*/ 2 FE_FSP FIXED BIN STATIC INITIAL(-3), /*INVALID FILE SPECIFICATION*/ 2 FE_IOL FIXED BIN STATIC INITIAL(-4), /*ERROR OPENING FORM LIBRARY*/ 2 FE_FLB FIXED BIN STATIC INITIAL(-5), /*FILE NOT A FORM LIBRARY*/ 2 FE_ICH FIXED BIN STATIC INITIAL(-6), /*INVALID CHANNEL NUMBER*/ 2 FE_FCH FIXED BIN STATIC INITIAL(-7), /*FORM LIBRARY NOT OPEN ON CHANNEL*/ 2 FE_FRM FIXED BIN STATIC INITIAL(-8), /*INVALID FORM DEFINITION*/ 2 FE_FNM FIXED BIN STATIC INITIAL(-9), /*FORM DOES NOT EXIST*/ 2 FE_LIN FIXED BIN STATIC INITIAL(-10), /*BAD 1ST LINE # TO DISPLAY FORM*/ 2 FE_FLD FIXED BIN STATIC INITIAL(-11), /*FIELD DOES NOT EXIST*/ 2 FE_NOF FIXED BIN STATIC INITIAL(-12), /*NO FIELDS IN CURRENT FORM*/ 2 FE_DSP FIXED BIN STATIC INITIAL(-13), /*CANT GET DISPLAY-ONLY FIELD*/ 2 FE_NSC FIXED BIN STATIC INITIAL(-14), /*FIELD NOT IN SCROLLED AREA*/ 2 FE_DNM FIXED BIN STATIC INITIAL(-15), /*NAMED DATA DOESNT EXIST*/ 2 FE_DLN FIXED BIN STATIC INITIAL(-16), /*OUTPUT TOO LONG, TRUNCATED*/ 2 FE_UTR FIXED BIN STATIC INITIAL(-17), /*UNDEFINED FIELD TERMINATOR*/ 2 FE_IOR FIXED BIN STATIC INITIAL(-18), /*ERROR READING FORM LIBRARY*/ 2 FE_IFN FIXED BIN STATIC INITIAL(-19), /*CALL INVALID IN CURRENT CONTEXT*/ /* GIVE NAMES TO ERROR CODES NOT NAMED IN MANUAL (THESE ARE THE NAMES DEFINED IN THE FORMS DRIVER ALONG WITH THE ABOVE) */ 2 FE_ARG FIXED BIN STATIC INITIAL(-20), /*WRONG NUMBER OF ARGUMENTS*/ 2 FE_INI FIXED BIN STATIC INITIAL(-21), /*IMPURE AREA NOT INITIALIZED*/ 2 FE_STR FIXED BIN STATIC INITIAL(-22), /*STRING OVERFLOW*/ /* NAMES FOR TERMINATOR CODES */ 2 FT_NTR FIXED BIN STATIC INITIAL(0), /*ENTER OR RETURN*/ 2 FT_NXT FIXED BIN STATIC INITIAL(1), /*TAB*/ 2 FT_SNX FIXED BIN STATIC INITIAL(6), /*TAB (SCROLLED)*/ 2 FT_PRV FIXED BIN STATIC INITIAL(2), /*BACKSPACE*/ 2 FT_SPR FIXED BIN STATIC INITIAL(7), /*BACKSPACE (SCROLLED)*/ 2 FT_ATB FIXED BIN STATIC INITIAL(3), /*AUTO TAB*/ 2 FT_XBK FIXED BIN STATIC INITIAL(4), /*PF3 (EXIT SCROLLED BACKWARD)*/ 2 FT_XFW FIXED BIN STATIC INITIAL(5), /*PF4 (EXIT SCROLLED FORWARD)*/ 2 FT_SFW FIXED BIN STATIC INITIAL(8), /*DOWNARROW (SCROLL FORWARD)*/ 2 FT_SBK FIXED BIN STATIC INITIAL(9), /*UPARROW (SCROLL BACKWARD)*/ /* ALTERNATE KEYPAD MODE TERMINATOR CODES */ 2 FT_COMMA FIXED BIN STATIC INITIAL(108), 2 FT_HYPHEN FIXED BIN STATIC INITIAL(109), 2 FT_DECIMAL FIXED BIN STATIC INITIAL(110), 2 FT_0 FIXED BIN STATIC INITIAL(112), 2 FT_1 FIXED BIN STATIC INITIAL(113), 2 FT_2 FIXED BIN STATIC INITIAL(114), 2 FT_3 FIXED BIN STATIC INITIAL(115), 2 FT_4 FIXED BIN STATIC INITIAL(116), 2 FT_5 FIXED BIN STATIC INITIAL(117), 2 FT_6 FIXED BIN STATIC INITIAL(118), 2 FT_7 FIXED BIN STATIC INITIAL(119), 2 FT_8 FIXED BIN STATIC INITIAL(120), 2 FT_9 FIXED BIN STATIC INITIAL(121);