/******************/ /* */ /* PL/I FMS */ /* */ /******************/ /*********************/ /* CALLING SEQUENCES */ /*********************/ DCL FCLRSH ENTRY(CHAR VARYING, FIXED BIN(15)); /* FNAME LINE (OPTIONAL) */ DCL FGCF ENTRY(CHAR VARYING, FIXED BIN(15)); /* FID FIDX (OPTIONAL) */ DCL FGET ENTRY(CHAR VARYING, FIXED BIN(15), CHAR VARYING, FIXED BIN(15)); /* FVAL TERM FID FIDX (OPTIONAL) */ /* OR CALL WITH NO ARGUMENTS */ DCL FGETAF ENTRY(CHAR VARYING, FIXED BIN(15), CHAR VARYING, FIXED BIN(15)); /* FVAL TERM FID FIDX (OPTIONAL)*/ DCL FGETAL ENTRY(CHAR VARYING, FIXED BIN(15)); /* FVAL TERM (OPTIONAL) */ /* OR CALL WITH NO ARGUMENTS */ DCL FIDATA ENTRY(FIXED BIN(15), CHAR VARYING); /* FIDX FVAL */ DCL FINIT ENTRY(CHAR(*), FIXED BIN(15), FIXED BIN(15)); /* IMPURE SIZE STATUS (OPTIONAL) */ DCL FINLN ENTRY(CHAR VARYING, CHAR VARYING, FIXED BIN(15)); /* FID FVAL TERM (OPTIONAL) */ DCL FLCHAN ENTRY(FIXED BIN(15)); /* CHAN */ DCL FLCLOS ENTRY; /* NO ARGUMENTS */ DCL FLEN ENTRY(FIXED BIN(15), CHAR VARYING, FIXED BIN(15)); /* FLEN FID FIDX (OPTIONAL) */ DCL FLOPEN ENTRY(CHAR VARYING); /* FILENAME */ DCL FNDATA ENTRY(CHAR VARYING, CHAR VARYING); /* FID FVAL */ DCL FOUTLN ENTRY(CHAR VARYING, CHAR VARYING); /* FID FVAL (OPTIONAL) */ DCL FPFT ENTRY(FIXED BIN(15), CHAR VARYING, CHAR VARYING); /* TERM FID (OPTIONAL) FVAL (OPTIONAL) */ /* OR CALL WITH NO ARGUMENTS */ DCL FPUT ENTRY(CHAR VARYING, CHAR VARYING, FIXED BIN(15)); /* FVAL FID FIDX (OPTIONAL) */ DCL FPUTAL ENTRY(CHAR VARYING); /* FVAL (OPTIONAL) */ DCL FPUTL ENTRY(CHAR VARYING); /* FVAL (OPTIONAL) */ DCL FRETAL ENTRY(CHAR VARYING); /* FVAL */ DCL FRETN ENTRY(CHAR VARYING, CHAR VARYING, FIXED BIN(15)); /* FVAL FID FIDX (OPTIONAL) */ DCL FSHOW ENTRY(CHAR VARYING, FIXED BIN(15)); /* FNAME LINE (OPTIONAL) */ DCL FSPOFF ENTRY; /* NO ARGUMENTS */ DCL FSPON ENTRY; /* NO ARGUMENTS */ DCL FSTAT ENTRY(FIXED BIN(15), FIXED BIN(15)); /* STATUS1 STATUS2 (OPTIONAL) */ /*************************/ /* NAMES FOR ERROR CODES */ /*************************/ /* NAMES ARE AS IN THE MANUAL, WITH DOLLAR SIGNS REPLACED BY UNDERSCORES */ DCL FS_SUC FIXED BIN STATIC INITIAL(1), FS_INC FIXED BIN STATIC INITIAL(2), FE_FCD FIXED BIN STATIC INITIAL(-1), FE_IMP FIXED BIN STATIC INITIAL(-2), FE_FSP FIXED BIN STATIC INITIAL(-3), FE_IOL FIXED BIN STATIC INITIAL(-4), FE_FLB FIXED BIN STATIC INITIAL(-5), FE_ICH FIXED BIN STATIC INITIAL(-6), FE_FCH FIXED BIN STATIC INITIAL(-7), FE_FRM FIXED BIN STATIC INITIAL(-8), FE_FNM FIXED BIN STATIC INITIAL(-9), FE_LIN FIXED BIN STATIC INITIAL(-10), FE_FLD FIXED BIN STATIC INITIAL(-11), FE_NOF FIXED BIN STATIC INITIAL(-12), FE_DSP FIXED BIN STATIC INITIAL(-13), FE_NSC FIXED BIN STATIC INITIAL(-14), FE_DNM FIXED BIN STATIC INITIAL(-15), FE_DLN FIXED BIN STATIC INITIAL(-16), FE_UTR FIXED BIN STATIC INITIAL(-17), FE_IOR FIXED BIN STATIC INITIAL(-18), FE_IFN FIXED BIN STATIC INITIAL(-19); /* GIVE NAMES TO ERROR CODES NOT NAMED IN MANUAL */ DCL FE_NAR FIXED BIN STATIC INITIAL(-20), /*WRONG NUMBER OF ARGUMENTS*/ FE_NIN FIXED BIN STATIC INITIAL(-21), /*IMPURE AREA NOT INITIALIZED*/ FE_SSZ FIXED BIN STATIC INITIAL(-22); /*STRING OVERFLOW*/ /******************************/ /* NAMES FOR TERMINATOR CODES */ /******************************/ DCL FT_NTR FIXED BIN STATIC INITIAL(0), FT_NXT FIXED BIN STATIC INITIAL(1), FT_SNX FIXED BIN STATIC INITIAL(6), FT_PRV FIXED BIN STATIC INITIAL(2), FT_SPR FIXED BIN STATIC INITIAL(7), FT_ATB FIXED BIN STATIC INITIAL(3), FT_XBK FIXED BIN STATIC INITIAL(4), FT_XFW FIXED BIN STATIC INITIAL(5), FT_SFW FIXED BIN STATIC INITIAL(8), FT_SBK FIXED BIN STATIC INITIAL(9); /* ALTERNATE KEYPAD MODE TERMINATOR CODES */ DCL FT_COMMA FIXED BIN STATIC INITIAL(108), FT_HYPHEN FIXED BIN STATIC INITIAL(109), FT_DECIMAL FIXED BIN STATIC INITIAL(110), FT_0 FIXED BIN STATIC INITIAL(112), FT_1 FIXED BIN STATIC INITIAL(113), FT_2 FIXED BIN STATIC INITIAL(114), FT_3 FIXED BIN STATIC INITIAL(115), FT_4 FIXED BIN STATIC INITIAL(116), FT_5 FIXED BIN STATIC INITIAL(117), FT_6 FIXED BIN STATIC INITIAL(118), FT_7 FIXED BIN STATIC INITIAL(119), FT_8 FIXED BIN STATIC INITIAL(120), FT_9 FIXED BIN STATIC INITIAL(121); /****************************************************/