开云体育

ctrl + shift + ? for shortcuts
© 2025 Groups.io
  1. H390-MVS
  2. Messages
Expanded Topics Messages Polls
Date
Re: Hercules Beginner Needs Some Help

Craig Kaercher
 

I installed TK5.2.? I am trying to use TN3270 but every time I bring it up it always brings up Tk4 on the screen.? I have tried playing with 'Session' and 'Reconnect' but it always brings up Tk4.? Any ideas?? Thanks.

Craig
Re: Hercules Beginner Needs Some Help

 

开云体育

Craig,

If you get this list as e-mail, there is a link in the footer to respond to a sender.

If you use the web interface, when you click reply , there is a drop down which by default says group, but can be changed to “Sender” or “Moderator”

Dave

?

From: [email protected] <[email protected]> On Behalf Of Robert Prins
Sent: 08 April 2024 15:34
To: [email protected]
Subject: Re: [H390-MVS] Hercules Beginner Needs Some Help

?

Hi Craig,

?

On Mon, 8 Apr 2024 at 03:13, Craig Kaercher via <Craig.Kaercher=[email protected]> wrote:

I am not new to mainframes, but am new to Hercules, and in getting started I have some questions:

?

Email address is in my signature, 'nuff said...

?

Robert

--

Robert AH Prins
robert.a.h.prins(a)
Re: Hercules Beginner Needs Some Help

 

Hi Craig,

On Mon, 8 Apr 2024 at 03:13, Craig Kaercher via <Craig.Kaercher=[email protected]> wrote:
I am not new to mainframes, but am new to Hercules, and in getting started I have some questions:

Email address is in my signature, 'nuff said...

Robert
--
Robert AH Prins
robert.a.h.prins(a)
Re: Hercules Beginner Needs Some Help

 

If you install the latest incarnation of TK which is TK5.2, you will find SYS2 and others.
You need to read the docs that come with it as well as the original one's for TK4 as well as all of the update notes for more information.

SYS2 and the others are mostly related to the add-ons external from the IBM original distribution.

These docs do provide details as to what is initially set up for CLASS and MSGCLASS and what spools are allocated to what but these are changeable depending on your wants etc see check out the JES2 set ups.

On 08/04/2024 04:13, Craig Kaercher via groups.io wrote:
Hello All,

I am not new to mainframes, but am new to Hercules, and in getting started I have some questions:

1.? Why is there no system libraries?? No SYS4.* or SYS2.*.? Was that supposed to come with the install.? If not, where can I get them?
2.? The same question applies to the compile/link utilities. Should they be there and if not where can I get them?
3.? For jcl that involves no tapes,, super simple, what should the CLASS and MSGCLASS be?? I would normally say CLASS=X,MSGCLASS=Y. Is it different on Hercules?? I am trying to run a compile which fails on a JCL error, but it won't give me what the error is.? I have tried JCLCHK but that is not available.

I am probably going to have more questions as I get started, but I just want to get my first compile/link/execute working.? Thanks again for all the help.
Craig
Re: Hercules Beginner Needs Some Help

 

On Sun, Apr 7, 2024 at 08:27 PM, Craig Kaercher wrote:
Thank you very much for your help!? I am using MVS 3.8, TK-4, and Tom Brenneman TN3270.? I'm probably spoiled by my daytime job, which is mainframe programmer, and everything is always set up.? Thanks again.
?
Since you are at the beginning with MVS under Hercules, I recommend you move from TK4- to TK5, the latest distribution of MVS 3.8J, it comes with a quasi-clone of ISPF.
It is available here:??and it works pretty much like (or better than) TK4-.

And, to answer in part your questions:

1. There is no SYS4.* data sets on TK4- and TK5, but SYS2.*?are there. This includes SYS2.LINKLIB which contains many programs and compilers, SYS2.PROCLIB which contains a bunch of cataloged procedures (including those of the compilers), and SYS2.JCLLIB, filled with examples of jobs doing various tasks. There are also SYS1.* datasets which you may want to explore.

2. Compilers are available for Algol, COBOL, Fortran, GCC, JCC, Pascal, PL/1, RPG, Simula, and WATFIV. These are old compilers though (70's-80's). Examples on how to use them are in SYS2.JCLLIB, look for members starting with PRIM: PRIMASM, PRIMCOB1, PRIMGCC, etc.

3. I used CLASS=A; if I want a printed copy of the job, I use MSGCLASS=A, otherwise I use MSGCLASS=H and look at the job output with ISPF.

Remember, there is no licensed products on TK4- or TK5: no CICS, no DB2, no SDSF, no USS, no WebSphere. Don't expect full TCP/IP either, networking is available via Network Job Entry, and there is a FTP daemon look-alike.

Cheers,

Rene FERLAND, Montreal

P.S. -- For printing, I recommend either Fish HercPrt program () or virtual1403 ().
Re: Hercules Beginner Needs Some Help

Craig Kaercher
 

Rene,

Thank you very much for your help!? I am using MVS 3.8, TK-4, and Tom Brenneman TN3270.? I'm probably spoiled by my daytime job, which is mainframe programmer, and everything is always set up.? Thanks again.

Craig
Re: Hercules Beginner Needs Some Help

 

On Sun, Apr 7, 2024 at 08:13 PM, Craig Kaercher wrote:
I am not new to mainframes, but am new to Hercules, and in getting started I have some questions:
Hello Craig,

Welcome to the community!

It would help if you could tell us which MVS system you are running under Hercules. I know of four: Jay Moseley system, MVS/CE, TK4- and TK5. Is it one of those? or an other one?

Cheers,

Rene FERLAND, Montreal
Hercules Beginner Needs Some Help

Craig Kaercher
 

Hello All,

I am not new to mainframes, but am new to Hercules, and in getting started I have some questions:

1.? Why is there no system libraries?? No SYS4.* or SYS2.*.? Was that supposed to come with the install.? If not, where can I get them?
2.? The same question applies to the compile/link utilities.? Should they be there and if not where can I get them?
3.? For jcl that involves no tapes,, super simple, what should the CLASS and MSGCLASS be?? I would normally say CLASS=X,MSGCLASS=Y.? Is it different on Hercules?? I am trying to run a compile which fails on a JCL error, but it won't give me what the error is.? I have tried JCLCHK but that is not available.

I am probably going to have more questions as I get started, but I just want to get my first compile/link/execute working.? Thanks again for all the help.
Craig
Re: COBOL getting system time and/or date

 

Page 45 ,,,

?(The use of CURRENT-DATE, TIME-OF-DAY, and RETURN-CODE is explained in, the Programmer's.Guide.)

Page 3 of 508 in Preface of the same doco ...

IBM as Full American National Standard COBOL Compiler and Library, Version 2, programmerws Guide. Order No. GC28-6399

Pretty sure it can be found in same folder in bitsavers too, i.e. try http://www.bitsavers.org/pdf/ibm/360/os/cobol/GC28-6399-2_COBOL_Compiler_and_Library_Version_2_Programmers_Guide_Jul72.pdf
?
John.

Sent:?Sunday, April 07, 2024 at 7:03 PM
From:?"Joe Monk via groups.io" <joemonk64@...>
To:[email protected]
Subject:?Re: [H390-MVS] COBOL getting system time and/or date
So in your code, in working-storage:
?
01 ?CURR-DATE.
? ? ? 05 ?CURR-DATE-SYS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(08) VALUE SPACES.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-DATE-SYS.
? ? ? ? ? ? 10 ?CURR-DATE-MM? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE "/".
? ? ? ? ? ? 10 ?CURR-DATE-DD ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE "/".
? ? ? ? ? ? 10 ?CURR-DATE-YY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X(02).
?
01 ?CURR-TIME.
? ? ? 05 ?CURR-TIME-SYS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(06) VALUE ZERO.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-TIME-SYS.
? ? ? ? ? ? 10 ?CURR-TIME-HH ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(02).
? ? ? ? ? ? 10 ?CURR-TIME-MM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(02).
? ? ? ? ? ? 10 ?CURR-TIME-SS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC 9(02).
?
01 ?CURR-TIME-FMT.
? ? ? 05 ?CURR-TIME-FMTD ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X(08) VALUE SPACES.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-TIME-FMTD.
? ? ? ? ? ? 10 ?CURR-TIME-FMT-HH ? ? ? ? ? ? ? ? ? ? ? PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE ":".
? ? ? ? ? ? 10 ?CURR-TIME-FMT-MM ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE ":".
? ? ? ? ? ? 10 ?CURR-TIME-FMT-SS ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
?
And at the very beginning of your code:
?
MOVE CURRENT-DATE TO CURR-DATE-SYS.
MOVE TIME-OF-DAY ? ? ?TO CURR-TIME-SYS.
MOVE CURR-TIME-HH ? TO CURR-TIME-FMT-HH.
MOVE CURR-TIME-MM ?TO CURR-TIME-FMT-MM.
MOVE CURR-TIME-SS ? TO CURR-TIME-FMT-SS.
?
Now, you can manipulate the date and time any way you want.
?
Joe
?
On Sun, Apr 7, 2024 at 3:46?AM Joe Monk via <joemonk64=[email protected]> wrote:
?
image.png
?
?
Our version string: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL. , so we have the 360 OS CB545 V2 compiler...
?
As explained on page 44:
?
image.png
?
?
Joe
?
On Sat, Apr 6, 2024 at 9:35?PM Ivo Veiga <ivo.trindade@...> wrote:
With more time, did a bit more research.
For my TK4 COBOL Compiler, I see in the printout the following version information: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL.
I have tried to use reserved words DAY, TIME and DATE, but for this compiler, this has not worked.?

The current-date for my environment come as Month/Day/Year - I have inverted month and day for the display using "move corr" (corresponding).

Did not try the accept statement, but it should work for the available reserved words CURRENT-DATE and TIME-OF-DAY (I have tried only with MOVE).

Attachments:
COB005.CBL: JCL plus COBOL source for my TK4 environment.
Screenshot with the output from COB005 execution with both CURRENT-DATE formatted (d/m/y) and as provided from the system (m/d/y) plus the TIME-OF-DAY.
Screenshot with the header of the compiler output, with the version info I've mentioned above.
Screenshot with the compiler errors for DAY, TIME and DATE.

Reference used, that include the reference for DAY, TIME and DATE that did not work (therefore should not be the correct reference for the compiler version I have in my TK4): SC28-6456-0_IBM_OS_COBOL_Compiler_and_Library_Ver_4_Programmers_Guide_May72.pdf? (see also screenshot attached with the 1st page of the pdf)

?

?

?

?
Re: COBOL getting system time and/or date

 

So in your code, in working-storage:

01 ?CURR-DATE.
? ? ? 05 ?CURR-DATE-SYS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(08) VALUE SPACES.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-DATE-SYS.
? ? ? ? ? ? 10 ?CURR-DATE-MM? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE "/".
? ? ? ? ? ? 10 ?CURR-DATE-DD ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE "/".
? ? ? ? ? ? 10 ?CURR-DATE-YY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X(02).

01 ?CURR-TIME.
? ? ? 05 ?CURR-TIME-SYS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(06) VALUE ZERO.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-TIME-SYS.
? ? ? ? ? ? 10 ?CURR-TIME-HH ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(02).
? ? ? ? ? ? 10 ?CURR-TIME-MM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?PIC 9(02).
? ? ? ? ? ? 10 ?CURR-TIME-SS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC 9(02).

01 ?CURR-TIME-FMT.
? ? ? 05 ?CURR-TIME-FMTD ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X(08) VALUE SPACES.
? ? ? 05 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? REDEFINES CURR-TIME-FMTD.
? ? ? ? ? ? 10 ?CURR-TIME-FMT-HH ? ? ? ? ? ? ? ? ? ? ? PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE ":".
? ? ? ? ? ? 10 ?CURR-TIME-FMT-MM ? ? ? ? ? ? ? ? ? ? ?PIC X(02).
? ? ? ? ? ? 10 ?FILLER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? PIC X VALUE ":".
? ? ? ? ? ? 10 ?CURR-TIME-FMT-SS ? ? ? ? ? ? ? ? ? ? ? ?PIC X(02).

And at the very beginning of your code:

MOVE CURRENT-DATE TO CURR-DATE-SYS.
MOVE TIME-OF-DAY ? ? ?TO CURR-TIME-SYS.
MOVE CURR-TIME-HH ? TO CURR-TIME-FMT-HH.
MOVE CURR-TIME-MM ?TO CURR-TIME-FMT-MM.
MOVE CURR-TIME-SS ? TO CURR-TIME-FMT-SS.

Now, you can manipulate the date and time any way you want.

Joe

On Sun, Apr 7, 2024 at 3:46?AM Joe Monk via <joemonk64=[email protected]> wrote:

image.png


Our version string: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL. , so we have the 360 OS CB545 V2 compiler...

As explained on page 44:

image.png


Joe

On Sat, Apr 6, 2024 at 9:35?PM Ivo Veiga <ivo.trindade@...> wrote:
With more time, did a bit more research.
For my TK4 COBOL Compiler, I see in the printout the following version information: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL.
I have tried to use reserved words DAY, TIME and DATE, but for this compiler, this has not worked.?

The current-date for my environment come as Month/Day/Year - I have inverted month and day for the display using "move corr" (corresponding).

Did not try the accept statement, but it should work for the available reserved words CURRENT-DATE and TIME-OF-DAY (I have tried only with MOVE).

Attachments:
COB005.CBL: JCL plus COBOL source for my TK4 environment.
Screenshot with the output from COB005 execution with both CURRENT-DATE formatted (d/m/y) and as provided from the system (m/d/y) plus the TIME-OF-DAY.
Screenshot with the header of the compiler output, with the version info I've mentioned above.
Screenshot with the compiler errors for DAY, TIME and DATE.

Reference used, that include the reference for DAY, TIME and DATE that did not work (therefore should not be the correct reference for the compiler version I have in my TK4): SC28-6456-0_IBM_OS_COBOL_Compiler_and_Library_Ver_4_Programmers_Guide_May72.pdf? (see also screenshot attached with the 1st page of the pdf)
Re: COBOL getting system time and/or date

 


image.png


Our version string: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL. , so we have the 360 OS CB545 V2 compiler...

As explained on page 44:

image.png


Joe

On Sat, Apr 6, 2024 at 9:35?PM Ivo Veiga <ivo.trindade@...> wrote:
With more time, did a bit more research.
For my TK4 COBOL Compiler, I see in the printout the following version information: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL.
I have tried to use reserved words DAY, TIME and DATE, but for this compiler, this has not worked.?

The current-date for my environment come as Month/Day/Year - I have inverted month and day for the display using "move corr" (corresponding).

Did not try the accept statement, but it should work for the available reserved words CURRENT-DATE and TIME-OF-DAY (I have tried only with MOVE).

Attachments:
COB005.CBL: JCL plus COBOL source for my TK4 environment.
Screenshot with the output from COB005 execution with both CURRENT-DATE formatted (d/m/y) and as provided from the system (m/d/y) plus the TIME-OF-DAY.
Screenshot with the header of the compiler output, with the version info I've mentioned above.
Screenshot with the compiler errors for DAY, TIME and DATE.

Reference used, that include the reference for DAY, TIME and DATE that did not work (therefore should not be the correct reference for the compiler version I have in my TK4): SC28-6456-0_IBM_OS_COBOL_Compiler_and_Library_Ver_4_Programmers_Guide_May72.pdf? (see also screenshot attached with the 1st page of the pdf)
Re: VSAM cluster allocation error

 
Edited

Hi,

To define a VSAM cluster in MVS 3.8 you need a volume
record in the catalog. This record will be created if you
define a data space or define a cluster with the keyword
UNIQUE.
If the volume record is created, that volume will be owned
by the catalog. You cannot define VSAM objects on that
volume located in another catalog.

In this case the keyword UNIQUE is the easiest way to
create the volume record in the catalog.
If UNIQUE is not specified, the default is SUBALLOCABLE.

For VSAM master catalogs and user catalogs no data space is needed.

To delete a volume record in the catalog and releasing
the volume ownership, you have to delete all the VSAM
objects from that volume.
Finally you execute a DELETE SPACE to delete the volume
record.

I hope, you can succeed this exercise.
Index components are much smaller than data components and require less space.
That is partially true unless you specify REPLICATE,
In that case each index record will be replicated over the
complete track to avoid massive SEARCH's (head movements).

Cheers,
Rob
Re: COBOL getting system time and/or date

 

With more time, did a bit more research.
For my TK4 COBOL Compiler, I see in the printout the following version information: CB545 V2 LVL78 01MAY72 - IBM OS AMERICAN NATIONAL STANDARD COBOL.
I have tried to use reserved words DAY, TIME and DATE, but for this compiler, this has not worked.?

The current-date for my environment come as Month/Day/Year - I have inverted month and day for the display using "move corr" (corresponding).

Did not try the accept statement, but it should work for the available reserved words CURRENT-DATE and TIME-OF-DAY (I have tried only with MOVE).

Attachments:
COB005.CBL: JCL plus COBOL source for my TK4 environment.
Screenshot with the output from COB005 execution with both CURRENT-DATE formatted (d/m/y) and as provided from the system (m/d/y) plus the TIME-OF-DAY.
Screenshot with the header of the compiler output, with the version info I've mentioned above.
Screenshot with the compiler errors for DAY, TIME and DATE.

Reference used, that include the reference for DAY, TIME and DATE that did not work (therefore should not be the correct reference for the compiler version I have in my TK4): SC28-6456-0_IBM_OS_COBOL_Compiler_and_Library_Ver_4_Programmers_Guide_May72.pdf? (see also screenshot attached with the 1st page of the pdf)

COB005.CBL
COB005.CBL
Current Date Time of Day ok.JPG
Date Time Day COBOL Version May72.JPG
Date Time Day not available.JPG
Reference COBOL V4.JPG

Re: COBOL getting system time and/or date

 

There you go.

COB003.CBL
COB003.CBL

Re: COBOL getting system time and/or date

 

开云体育

Ivo,

and the whole program, as text, please?

best regards,

搁别苍é.

On 4 Apr 2024, at 00:46, Ivo Veiga <ivo.trindade@...> wrote:

As per some of our friends wrote, see screenshots attached.?
Screenshot 1: program excerpt
Screenshot 2: the result at the bottom: date in the format mm/dd/yy and time of day 'HHMM' (1926 = 19:26) <CURRENT DATE.JPG><CURRENT DATE RESULT.JPG>
Re: COBOL getting system time and/or date

 

Wow!

So, at the end, it turns out this old-school COBOL F bad boy we have at hands has still quite a punch .... reaaaally fun!!! :-D

Thank you all for sharing your knowledge.
Best regards.
Alejandro.
Re: COBOL getting system time and/or date

 

As per some of our friends wrote, see screenshots attached.?
Screenshot 1: program excerpt
Screenshot 2: the result at the bottom: date in the format mm/dd/yy and time of day 'HHMM' (1926 = 19:26)

CURRENT DATE.JPG
CURRENT DATE RESULT.JPG

Re: COBOL getting system time and/or date

 

In the GC28-6399-2 manual ("IBM OS Full American National Standard COBOL Compiler and Library, Version 2 Programmer's Guide") which I must have downloaded from bitsavers, it mentions ILBODTEO (p. 281). I wish I had time to check that out.

I remember writing a date routine about 1980 and must have used CURRENT-DATE, Others in the team were getting confused by whether 1900 and 2000 were leap years.
Re: COBOL getting system time and/or date

 

开云体育

For the MVS Cobol Compile which I seem to recall is the MVT one :


My Cobool xref Cobxref program has :

041800???? MOVE???? CURRENT-DATE TO HDDATE.
041900???? IF?????? HDDATE NOT = '000000'
042000????????????? MOVE HD-Y TO HD2-Y
042100????????????? MOVE HD-M TO HD2-M
042200????????????? MOVE HD-D TO HD2-D
042300????????????? MOVE HDDATEB TO H1DATE.
042400???? MOVE???? TIME-OF-DAY TO HDTIME.

and in WS? :

037200 01? HDTIME.
037300???? 03? HD-HH?????????????? PIC 99.
037400???? 03? HD-MM?????????????? PIC 99.
037500???? 03? HD-SS?????????????? PIC 99.
037600 01? HDTIMEB.
037700???? 03? HD2-HH????????????? PIC 99.
037800???? 03? FILLER????????????? PIC X?? VALUE ':'.
037900???? 03? HD2-MM????????????? PIC 99.
038000???? 03? FILLER????????????? PIC X?? VALUE ':'.
038100???? 03? HD2-SS????????????? PIC 99.
038200 01? HDDATE.
038300???? 03? HD-M??????????????? PIC 99.
038400???? 03? FILLER????????????? PIC X.
038500???? 03? HD-D??????????????? PIC 99.
038600???? 03? FILLER????????????? PIC X.
038700???? 03? HD-Y??????????????? PIC 99.


Vince


On 03/04/2024 16:42, Alejandro olivan Alvarez wrote:

Hi guys.

I'm missing something again regarding our beloved MVT COBOL F compiler.. this time, I'm trying to get the system date and or time, but I'm missing miserably.
I've looked for the right syntax in my collection of vintage bitsavers cobol books but I do not find anythin in the 64' and 68/ OS/360 books I have.
As always, the 72' OS VS COBOL book seems the most plausible? to me... but i barely mentions the matter on page 401 for ACCEPT.

So, I'm trying this:

ACCEPT CD-CURRENT-DATE FROM DATE.

To which the compiler complains:
?
IKF3001I-E DATE NOT DEFINED. SYSTEM UNIT ASUMED.?

So I guess I maybe missing something on the JCL, or something on the syntax is different... does anyone knows how to get data and or time?

Thanks.
Cheers.
Alejandro.

Re: COBOL getting system time and/or date

 

Hi Jay,
If you don't mind Then I am happy to add a Y2KGEDT ( Get date and time ) and simply return
DD/MM/YYYY HH:MM:SS that you can freely add to your set of programs, or distribute as you wish.

I have extracted cbt 664 to my system to make the style compatible with yours.

Regards,
861 - 880 of 5257