Deepakgoyal2005
New User
Joined: 22 Mar 2007 Posts: 57 Location: India
|
|
|
|
I used following REXX code to write in a member of a PDS for the required details,
Code: |
user = Userid()
mydsn = "'DE00.TEST.PDS.IDS("user")'"
"ALLOC DD(PDSID) DA("mydsn") SHR REUSE"
If SYSDSN(mydsn) = "OK" Then "EXECIO * DISKR PDSID (FINIS"
Queue user member ' ' date() '' time()
"EXECIO "Queued()" DISKW PDSID (FINIS"
"FREE DD(PDSID)"
|
The output is,
Code: |
<MYID> JOBNAME1 22 Apr 2009 02:44:19
<MYID> PRCNM 22 Apr 2009 02:44:24
|
As such the output data is not aligned exactly below the previous record (as date and time are not aligned exactly below one another) because of the difference in length of the output data elements (as JOBNAME1 and PRCNAME).
Is there any way to structure the output data so that the output could be as follows,
Code: |
<MYID> JOBNAME1 22 Apr 2009 02:44:19
<MYID> PRCNM 22 Apr 2009 02:44:24
|
|
|