Date: Mon, 27 Apr 2009 11:36:32 -0400
Reply-To: Gerhard Hellriegel <gerhard.hellriegel@T-ONLINE.DE>
Sender: "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From: Gerhard Hellriegel <gerhard.hellriegel@T-ONLINE.DE>
Subject: Re: reading members in PDS
I think your problem is the trailing @
You read again and again the same record. That's the use of the trailing
@: read the record and keep it in buffer...
Somewhere in your code you must read the next record. Unfortunately the
code below ends after keeping the record.
It could (should) be like:
INPUT @38 job_nmbr $char8.
@65 job_name $char8.
@76 test $char2. @;
IF job_name =: 'AMBAM' then do;
IF test = 'ST' then do;
input ... the rest of the record ...;
else input; /* read the next record, because it was not the right
if you keep on reading the first record (only INPUTs with @) DONE will
never become true.
On Mon, 27 Apr 2009 08:02:02 -0700, jaheuk <hejacobs@GMAIL.COM> wrote:
>i found some examples of reading members in a pds based on a
>I do not succeed in it!!
>Job seems to be in a loop or something, keeps hanging on the first
>attached a piece of my code:
> INFILE indata;
> INPUT @1 mem2read $6.;
> fil2read = 'D2RWV.TEXTLIB.NACHT('!!compress(mem2read)!!')' ;
> keep fil2read;
> SET memlist;
> INFILE dummy filevar=fil2read end=done ;
> DO while(NOT done);
> INPUT @38 job_nmbr $char8.
> @65 job_name $char8.
> @76 test $char2. @;
> IF job_name =: 'AMBAM' then do;
> IF test = 'ST' then do;