Re: Retrive Object name in a CL

[Ravi Viswanathan <ravi@xxxxxxxxxxxxx>]

Rajan,

To read a file in the CL:
------------------------------------------------------------------
PGM
DCLF yourfile

READ: RCVF: (This reads one record at a time from the declared file)
MONMSG CPF0864 EXEC(DO)
                                        GOTO ENDPGM:
                                    ENDDO
Process your logic here

GOTO READ (loop back to read next record)

ENDPGM: ENDPGM
---------------------------------------------------------
You need to declare your file in the CL. To read the file use command RCVF. When
you hit EOF, system sends message CPF0864. Monitor for this message and end your
program. CL allows only one file (one DCLF) in a program.

Regards

Ravi


-------------------------------------------------
Rajan.Srinivasan@Allfun.com wrote:

>  Hello All,
>                          I recently posted this message.  Someone has wrote
> , how to do this, but somehow  the message got deleted.
>
> Can any one please help me.  Sorry for any disturbance.
>
> Thanks
>
> Regards
> rAj
>
> ---------------------- Forwarded by Rajan Srinivasan/Servicing/SuperiorBank
> on 04-12-99 12:23 PM ---------------------------
>
> Rajan Srinivasan
> 04-09-99 01:17 PM
>
> To:   MIDRANGE-L@midrange.com
> cc:
> Subject:  Retrive Object name in a CL
>
> Hello,
>                 ( PC  TO  AS/400)
>                  I am trying to transfer a  set of  source members which
> are in  a directory called  QCLSRC in a PC    To a    AS/400 at one time.
> I  did that  using   IBM TCPIP software.
>
>                  When I transfered all those 40  filles ( which is actually
> CL Source ),   it   went to  AS/400 Library as  a 40 different  Physical
> Files. (PF-DTA ).
>
>                 To convert  that  PF  files to  actually   a  member of  a
> source physical file,  (QCLSRC ),  I  tried using  CPYF command and it went
> sucessfully.
>
>                  But,  instead  of  doing  every single file, I thought of
> write a CL Program to do it  at one time for  all  40  files.
>
> I was struck  ,  because I dont know how to get (retrieve )  all  the
> file (object) name one by one from that Library.
>
> I  tired using  DSPOBJD, and put  all the  object desc into a  data File ,
> but that too did'nt help  because I  dont know how to read  that  in  CL .
>
> Is  there any other way I can do?.
>
> Any help is greatly  appreciated.
>
> Thanks
>
> - Raj
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---