HP3000-L Archives

April 2003, 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:
From:
Brian Lane <[log in to unmask]>
Reply To:
Brian Lane <[log in to unmask]>
Date:
Tue, 8 Apr 2003 09:02:40 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (31 lines)
 George Forsythe <[log in to unmask]> wrote in message news:<[log in to unmask]>...
> I'm trying to FOPEN a NEW KSAM/XL File via RFA over a DSLINE and FSCHECK
> says there's a file system error (FSERR 3) -
> Required parameter is missing...
>
> I've successfully performed this same operation for a Native KSAM File...
>
> The code looks like this (yes, it's COBOL):
>
>      IF F-XFCODE = 'KSAM' OR 'KSMXL'
>          CALL INTRINSIC 'FOPEN'
>              USING TO-FILENAME, TO-FOPTIONS, TO-AOPTIONS,
>                    TO-RECSIZE, TO-LDEV, KSAM-PARAM,
>                    TO-USERLABELS, TO-BLKFACT, \\,
>                    TO-FLIMIT, TO-MAXEXTENTS,
>                    TO-NUMEXTENTS, TO-FILECODE,
>             GIVING TO-FILENUM
>      ELSE
>          NEXT SENTENCE.
>
> Any thoughts and/or suggestions ?
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

I'm not positive about this but I think you want 'KSAMXL' instead of 'KSMXL'
in the first line....

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

ATOM RSS1 RSS2