View previous topic :: View next topic
|
Author |
Message |
bhim_s
New User
Joined: 19 Sep 2006 Posts: 46 Location: Australia
|
|
|
|
Could any one help me how to get the compile Time and Date using the new PL/I compiler (5655-H31 IBM(R) Enterprise PL/I for z/OS V3.R8.M0).. Earlier we were using the "COMPILE" to get compile date and time with the old compiler. Using COMPILE with the new compiler I am getting the following warning messages..
Code: |
IBM1198I W 28 A null argument list is assumed for COMPILE.
IEW2454W 9203 SYMBOL COMPILE UNRESOLVED. NO AUTOCALL (NCAL) SPECIFIED. |
and in the output I am getting NULL values in compilation date and time fields.
In the program it was declared as
Code: |
DCL COMPILE ENTRY RETURNS (CHAR(21) VAR); |
and some structures were declared to capture the compilation date and time from this. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
search the manuals for COMPILEDATE and COMPILETIME |
|
Back to top |
|
|
bhim_s
New User
Joined: 19 Sep 2006 Posts: 46 Location: Australia
|
|
|
|
Thanks Enroco .. I copied the following code in SRN(where I need the change)
Code: |
%DECLARE COMP_DATE CHAR; %COMP_DATE=QUOTE(COMPILEDATE); PUT EDIT (COMP_DATE) (A); |
as per manual to display the compilation date and time.Activated both sub and main programs.
But when I ran through the JCL the job abended with the following errors
Code: |
CEE3201S The system detected an operation exception (System
Completion Code=0C1).
CEE3250C The system or user abend U 099 R=NULL was issued.
From entry point _ON_Begin_1413_Blk_2 at compile unit offset +000001A0
103094C8.
|
Would be really helpful if you have any example to use it. |
|
Back to top |
|
|
bhim_s
New User
Joined: 19 Sep 2006 Posts: 46 Location: Australia
|
|
|
|
I am able to get the time and date by coding the following lines..
Code: |
%DECLARE COMP_TIME CHAR;
%COMP_TIME=QUOTE(COMPILETIME);
PUT SKIP LIST('COMP_TIME',COMP_TIME);
|
Below the output I got
Code: |
COMP_TIME 8.JUN.09 16.55.11
|
|
|
Back to top |
|
|
|