View previous topic :: View next topic
|
Author |
Message |
PrabakarV
New User
Joined: 21 Dec 2007 Posts: 88 Location: My Desk
|
|
|
|
hi...
I need to write the header in the ps - COPYOUT ....
Code: |
DO CTR = 1 TO OUT.0
COPYBOOK1 = OUT.CTR
COPYBOOK1 = STRIP(COPYBOOK1)
COPYBOOK = COPYPDS||"("||COPYBOOK1||")'"
COPYBOOK = STRIP(COPYBOOK)
HEADER = 'COPYBOOK STARTS HERE'
ADDRESS TSO
"ALLOCATE DD(COPY) DSN("||COPYBOOK||")SHR"
"EXECIO * DISKR COPY (FINIS STEM COPY."
"EXECIO * DISKW COPYOUT (FINIS STEM COPY."
"FREE F(COPY)"
END |
but i dunno how to write without having stem variable.... i can able to write with copy. stem var.... I am new to rexx and trying to learn... can anyone please help me.... |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Code: |
Push " some data to be written"
"Execio 1 Diskw OUTFILE ( Finis"
|
|
|
Back to top |
|
|
PrabakarV
New User
Joined: 21 Dec 2007 Posts: 88 Location: My Desk
|
|
|
|
Thank u very much Sambhaji... It works fine... |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Welcome.. |
|
Back to top |
|
|
|