LINKAGE SECTION. 01 A-POINTER USAGE POINTER. 01 BIN-WORD REDEFINES A-POINTER COMP S9(8).
... CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, OMITTED RETURNING RC. SET A-POINTER TO ADDRESS OF INPUT-LENGTH IF BIN-WORD < 0 THEN <the high-bit is ON> ================================================================================================ Funny thing with Enterprise COBOL... It "properly" sets the high-order bit on the last parm, but supplies no way to interrogate it! So if "THEFUNCTION" was written in COBOL then you have to invoke it thusly: CALL 'THEFUNCTION' USING MAGIC, INPUT-BUFFER, INPUT-LENGTH, OMITTED, OMITTED RETURNING RC. (The OMITTED keyword simply passes an address of NULL.) Oy! Frank ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
