View previous topic :: View next topic
|
Author |
Message |
debasis.routray
New User
Joined: 19 Aug 2011 Posts: 3 Location: India
|
|
|
|
Hello All,
Can anyone please tell me the output of the PL/1 code below ?
Also, please let me know how you got the output.
Code: |
DCL A AREA(8000);
DCL 1 STR1 BASED(P),
2 STR1_LGTH BIN FIXED(31),
2 STR_CHAR CHAR(ALLOC_LGTH REFER(STR1_LGTH));
DCL ALLOC_LGTH BIN FIXED(31);
DCL I FIXED BIN(31);
DCL P PTR;
ALLOC_LGTH = 100;
DO I = 1 TO 10;
ALLOC STR1 IN(A);
END;
PUT SKIP LIST(CSTG(A));
|
Thanks in advance. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
8016 - RTFM! |
|
Back to top |
|
|
debasis.routray
New User
Joined: 19 Aug 2011 Posts: 3 Location: India
|
|
|
|
Can anyone please help me in getting the output of the above mentioned code ?
Thanks in advance. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Sorry, STG returns 8016, CSTG returns 1056, but you would have known either if you had RTFM! |
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
debasis.routray wrote: |
Can anyone please tell me the output of the PL/1 code below ?
Also, please let me know how you got the output. |
Are we to suppose, then, that you have no access to a z/OS system that you ask this instead of compiling and running the program yourself? |
|
Back to top |
|
|
debasis.routray
New User
Joined: 19 Aug 2011 Posts: 3 Location: India
|
|
|
|
Thank you Prino. |
|
Back to top |
|
|
|