Re: Read PF File in CL Program (RCVF)

["Vasant Patel" <vpatel@xxxxxxxxxxxx>]

Hi Sunil !

Here is an example:
PGM             PARM(&REP10)

DCL             VAR(&REP10) TYPE(*CHAR) LEN(10)
DCLF           REPMAS
OVRDBF     FILE(REPMAS) TOFILE((WRK || REPMAS)) +
                     POSITION(*KEY 1 *N (&REP10 ))
RCVF
ENDPGM

Vasant


-----Original Message-----
From: Sunil Kumar <skumar@RCCL.COM>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Monday, July 26, 1999 3:16 PM
Subject: Read PF File in CL Program (RCVF)


>
>
>Can we  reposition and read  a physical file in CL Program ???? IF yes
Couldn't
>you give as some idea about this . Actually I tried to reposition and read
a
>same physical file in a cl Program  results end of file even though this
file
>contains enough record .
>
>Sunil
>
>
>
>
>
>
>
>John P Carr <jpcarr@tredegar.com> on 07/25/99 09:11:15 PM
>
>Please respond to RPG400-L@midrange.com
>
>To:   RPG400-L <RPG400-L@midrange.com>
>cc:    (bcc: Sunil Kumar/IT/MIA/RCL)
>
>Subject:  RE: Eval Exception Error Trapping
>
>
>
>
>
>>>The E operation extender should be supplanted with a keyword on the
header
>>>spec. That is something like:
>>>  H     ERROR(*IO | *ALLWAYS | *NONIO)
>>>Then we would not have to code that big-ass "E" for everything to check
>the
>>>%ERROR or %STATUS.
>>> Bob Cozzi
>
>
>Hans
>
>I'd vote for this suggestion.  That would cut down on the number of tags
you
>would have
>to remember Hans.    Then,   Give us the *NEXT on the factor 2 of the
*PSSR.
>
>
>John Carr
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
>
>
>
>
>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *