Maybe another pair of eyes will see what I am doing wrong. I hope so :-) Scenario: #1 FOPEN KSAMXL file for input. Works fine. Then I do FGETKEYINFO. Apparently works fine. No error. #2 FOPEN a temporary file with the KSAMXL key attributes from the #1 FOPEN. Try to #2 FOPEN with an FLIMIT of twice the size of the flimit from #1 FOPEN. Well, it isn't working correctly. The flimit is zero. I know it is programmer brain damage but I just can't see what I am doing wrong. Help! The code is: CALL INTRINSIC "FOPEN" USING LS-FILE-NAME, \%5\ \%0\, \WS-REC-SIZE\ GIVING WS-FILE-NUM-IN END-CALL. IF C-C NOT = ZEROES THEN CALL INTRINSIC "FCHECK" USING WS-FILE-NUM-IN, LS-ERROR-CODE, \\ \\ \\ END-CALL MOVE 244 TO LS-MSGNUM GO TO A100-EXIT END-IF. CALL INTRINSIC "FGETKEYINFO" USING WS-FILE-NUM-IN, WS-KSAMXL-PARAM, WS-KSAMXL-CONTROL END-CALL. IF C-C NOT = ZEROES THEN MOVE 245 TO LS-MSGNUM GO TO A100-EXIT END-IF. MOVE 50000 TO WS-NEW-FLIMIT. CALL INTRINSIC "FOPEN" USING WS-HOLD-FILE-NAME, \%4\ \%305\ WS-REC-SIZE \\ WS-KSAMXL-PARAM \\ \\ WS-NEW-FLIMIT GIVING WS-FILE-NUM-OUT END-CALL. IF C-C NOT = ZEROES THEN CALL INTRINSIC "FCHECK" USING WS-FILE-NUM-OUT, LS-ERROR-CODE, \\ \\ \\ END-CALL CALL INTRINSIC "FCLOSE" USING WS-FILE-NUM-IN, \0\ \0\ END-CALL CALL INTRINSIC "FCLOSE" USING WS-FILE-NUM-OUT, \0\ \0\ END-CALL MOVE 246 TO LS-MSGNUM GO TO A100-EXIT END-IF. Further down I do an FWRITE to the file opened by #2 FOPEN. The FWRITE fails with error code zero. When I look further into it, I see the FLIMIT on the output file is zero(!)... TIA, Brian Donaldson. * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *