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:
Re: 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 13:25:25 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (103 lines) 
I figured it out a few minutes after my original posting.

the fopen should look like:

     CALL INTRINSIC "FOPEN" USING WS-HOLD-FILE-NAME,
                                  \%14004\
                                  \%305\
                                  WS-REC-SIZE
                                  \\
                                  WS-KSAMXL-PARAM
                                  \\ \\ \\
                                  WS-NEW-FLIMIT
                           GIVING WS-FILE-NUM-OUT
     END-CALL.


Thanks,
Brian.




On Fri, 12 Nov 2004 12:33:22 -0500, Brian Donaldson <[log in to unmask]>
wrote:

>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 *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2