HP3000-L Archives

November 2004, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
On Topic: FOPEN of KSAMXL file question/problem
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 12 Nov 2004 12:33:22 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (75 lines) 
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 *

ATOM RSS1 RSS2