Hi tattva,
Here is the code for U.. Hope it helps you
Quote:
/* REXX */
"ALLOC DA(unquali.file.name) F(INDD) SHR REUSE"
RC = 0
LINENO = 0
DO WHILE RC = 0
"EXECIO 1 DISKR INDD"
IF RC = 0 THEN /* Record was read */
DO
PULL RECORD
IF ((SUBSTR(RECORD,7,1) ) <>'*') THEN
if space(record,0) <> ' 'then
lineno = lineno + 1 /* Count the record */
else Nop
else Nop
END
END
say lineno
_________________ Cheers
Sivaraj S
'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
Posted: Mon Feb 14, 2005 8:54 am Post subject:
The instream data for SYSIN must begin from 2nd column atleast. I did not copy paste from my mainframe session; I typed here. So, perhaps, the leading space got lost.
In any case, the instream data for SYSIN must begin from 2nd column atleast. _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
