Author |
Message |
Panos Ioanno #1 / 19
|
VS COBOL II - Accepting 9(08) date from system
Does anyone know how I can get a 9(08) date from the system using VS COBOL II? A desperate COBOL programmer. Thanx in advance. Panos Ioannou.
|
Tue, 29 Aug 2000 03:00:00 GMT |
|
|
Harry Cart #2 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
>Does anyone know how I can get a 9(08) date from the system >using VS COBOL II?
If you're running on a system that has Language Envrionment for MVS running, you can make a LE/MVS call and get the complete date (I assume there's no problem with a Cobol II program calling a LE/MVS service). Check the LE/MVS programming reference manual if you have LE/MVS running. I'm not aware of a Cobol II way to get the 8 digit date, though. Course, if your shop is solely a VS Cobol II shop, you probably won't have LE/MVS running. Harry Carter
Home Page: http://www.*-*-*.com/ ~hcarter "Make no little plans; they have no magic to stir men's {*filter*}." Daniel Burnham
|
Tue, 29 Aug 2000 03:00:00 GMT |
|
|
Ralph Colema #3 / 19
|
VS COBOL II - Accepting 9(08) date from system
There is an IBM patch to COBOL II that adds a called module that will return the 4 digit year. Quote:
>>Does anyone know how I can get a 9(08) date from the system >>using VS COBOL II? >If you're running on a system that has Language Envrionment for MVS >running, you can make a LE/MVS call and get the complete date (I >assume there's no problem with a Cobol II program calling a LE/MVS >service). Check the LE/MVS programming reference manual if you have >LE/MVS running. I'm not aware of a Cobol II way to get the 8 digit >date, though. Course, if your shop is solely a VS Cobol II shop, you >probably won't have LE/MVS running. >Harry Carter
>Home Page: http://www.*-*-*.com/ ~hcarter >"Make no little plans; they have no magic to stir men's {*filter*}." >Daniel Burnham
|
Tue, 29 Aug 2000 03:00:00 GMT |
|
|
William M. Klei #4 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
>>Does anyone know how I can get a 9(08) date from the system >>using VS COBOL II? >If you're running on a system that has Language Envrionment for MVS >running, you can make a LE/MVS call and get the complete date (I >assume there's no problem with a Cobol II program calling a LE/MVS >service). Check the LE/MVS programming reference manual if you have >LE/MVS running. I'm not aware of a Cobol II way to get the 8 digit >date, though. Course, if your shop is solely a VS Cobol II shop, you >probably won't have LE/MVS running. >Harry Carter
>Home Page: http://www.*-*-*.com/ ~hcarter >"Make no little plans; they have no magic to stir men's {*filter*}." >Daniel Burnham
If you don't have the LE run-time, but you are "current on maintenance" then look for a call to IGZE4DT (I think that it is its name, but I haven't looked this up - it might be IGZEDT4 - or something else like this) -- + + + Bill Klein - "C" is a nice letter to START the name of your programming language with but I wouldn't want to end up there.
|
Tue, 29 Aug 2000 03:00:00 GMT |
|
|
Arnold Tremble #5 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
> If you don't have the LE run-time, but you are "current on maintenance" then > look for a call to IGZE4DT (I think that it is its name, but I haven't > looked this up - it might be IGZEDT4 - or something else like this)
Here's a quick example of how to use IGZEDT4: 01 MY-YYYYMMDD-DATE PIC 9(8) USAGE IS DISPLAY. CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. For the IBM VS COBOL II runtime library the APAR number is PN76666 and the PTF number is UN83685. And for LE/MVS the APAR number is PN84080 and the PTF number is UN92085. APAR = Authorized Program Analysis Report PTF = Program Temporary Fix STL Time Machine Reports are available at: http://home.att.net/~arnold.trembley Arnold Trembley Software Engineer I (just a job title, still a programmer) MasterCard International "Y2K? Because Centuries Happen!"
|
Sat, 02 Sep 2000 03:00:00 GMT |
|
|
docdw.. #6 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote: >Here's a quick example of how to use IGZEDT4: >01 MY-YYYYMMDD-DATE PIC 9(8) USAGE IS DISPLAY. >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE.
Hey, what is this... *useful* technical information? A *clear*, concise, applicable example? C'mon, get this irrelevant stuff out of comp.lang.cobol; you're wasting valuable bandwidth which could be more productively burned up in arguing over the relative merits of CP/M versus DOS 1.0. ... oh, and did I mention anything about poopie-heads? DD
|
Sat, 02 Sep 2000 03:00:00 GMT |
|
|
Bill Lync #7 / 19
|
VS COBOL II - Accepting 9(08) date from system
(snip) Quote: > >01 MY-YYYYMMDD-DATE PIC 9(8) USAGE IS DISPLAY. > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. > Hey, what is this... *useful* technical information? A *clear*, concise, > applicable example? C'mon, get this irrelevant stuff out of > comp.lang.cobol; you're wasting valuable bandwidth which could be more > productively burned up in arguing over the relative merits of CP/M versus > DOS 1.0. > ... oh, and did I mention anything about poopie-heads?
No need here, Goober, I believe the appropriate legal phrase is "Res Ipsa Loquitur". Bill {*filter*} :-) (which means "the thing speaks for itself", for anyone who was deprived of taking Latin in high school) Quote:
|
Sat, 02 Sep 2000 03:00:00 GMT |
|
|
Huib Kli #8 / 19
|
VS COBOL II - Accepting 9(08) date from system
I don't get it ...
8< [snipped some code] Quote: > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. > Hey, what is this... *useful* technical information? A *clear*, concise, > applicable example? C'mon, get this irrelevant stuff out of > comp.lang.cobol; you're wasting valuable bandwidth which could be more > productively burned up in arguing over the relative merits of CP/M versus > DOS 1.0. > ... oh, and did I mention anything about poopie-heads? > DD
Did Arnold Trembley something wrong. Did I miss something? A wondering Frog, ready to jump.
|
Sat, 02 Sep 2000 03:00:00 GMT |
|
|
Bill Lync #9 / 19
|
VS COBOL II - Accepting 9(08) date from system
(snip) Quote: > > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE.
To respond to Arnold's question of the spelling of this routine, IGZEDT4 is the correct spelling of the subroutine's name (validated earlier and got a very nice date of 19980317). Bill {*filter*} (rest snipped)
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
Bill Lync #10 / 19
|
VS COBOL II - Accepting 9(08) date from system
Frog, I believe The Dwarf was speaking with tongue in cheek (all in good humor) as though the purpose of the NG was to rag on about C stuff, whose government will fail first in 2000, CP/M vs. DOS 1.0, etc., and *not* to discuss techniques or problem solving when coding COBOL. Hope this made it clearer, not muddier, Bill {*filter*}
Quote: > I don't get it ...
> 8< [snipped some code] > > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. > > Hey, what is this... *useful* technical information? A *clear*, concise, > > applicable example? C'mon, get this irrelevant stuff out of > > comp.lang.cobol; you're wasting valuable bandwidth which could be more > > productively burned up in arguing over the relative merits of CP/M versus > > DOS 1.0. > > ... oh, and did I mention anything about poopie-heads? > > DD > Did Arnold Trembley something wrong. Did I miss something? > A wondering Frog, ready to jump.
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
Arnold Tremble #11 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
> >Here's a quick example of how to use IGZEDT4: > >01 MY-YYYYMMDD-DATE PIC 9(8) USAGE IS DISPLAY. > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. > Hey, what is this... *useful* technical information? A *clear*, concise, > applicable example? C'mon, get this irrelevant stuff out of > comp.lang.cobol; you're wasting valuable bandwidth which could be more > productively burned up in arguing over the relative merits of CP/M versus > DOS 1.0. > ... oh, and did I mention anything about poopie-heads? > DD
I apologize for the off-topic posting, but I thought we could all appreciate a digression from the important stuff (VBG). Arnold Trembley Software Engineer I (just a job title, still a programmer) MasterCard International "Y2K? Because Centuries Happen!"
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
Huib Kli #12 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
> Frog, > I believe The Dwarf was speaking with tongue in cheek (all in good > humor) as though the purpose of the NG was to rag on about C stuff, > whose government will fail first in 2000, CP/M vs. DOS 1.0, etc., and > *not* to discuss techniques or problem solving when coding COBOL. > Hope this made it clearer, not muddier, > Bill {*filter*}
Sorry. Am a but jumpy about poopies, last time. :) The Frog
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
docdw.. #13 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote: >I don't get it ...
Well, go to the YMCA for 'Make A New Friend In The Shower' night, drop some soap, bend over to pick it up... and *then* you'll 'get it', or so I've been told. I attempted, obviously and unsuccessfully, to indulge in a form of humor known as 'sarcasm' (Gr. 'sarx', 'flesh', ==> 'sarkazein', 'to tear at flesh as do dogs')... a joke explained is a joke lost. Quote:
>8< [snipped some code] >> >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. >> Hey, what is this... *useful* technical information? A *clear*, concise, >> applicable example? C'mon, get this irrelevant stuff out of >> comp.lang.cobol; you're wasting valuable bandwidth which could be more >> productively burned up in arguing over the relative merits of CP/M versus >> DOS 1.0. >> ... oh, and did I mention anything about poopie-heads? >> DD >Did Arnold Trembley something wrong. Did I miss something? >A wondering Frog, ready to jump.
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
docdw.. #14 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote: >I apologize for the off-topic posting, but I thought we could all >appreciate a digression from the important stuff (VBG).
Well *this* time we'll let it go... but try not to let it happen again... not because we, here, are not Tough Enough to deal with such things... but because deadpan sarcasm (Gr. 'sarx', 'flesh'... no, wait, I did that already) seems to upset the more gentle, artistic, fragile and delicate souls amongst us. DD
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|
William M. Klei #15 / 19
|
VS COBOL II - Accepting 9(08) date from system
Quote:
>(snip) >> > >CALL 'IGZEDT4' USING MY-YYYYMMDD-DATE. >To respond to Arnold's question of the spelling of this routine, IGZEDT4 >is the correct spelling of the subroutine's name (validated earlier and >got a very nice date of 19980317). >Bill {*filter*} >(rest snipped)
I need to give credit/blame where it is due. I couldn't remember the spelling but Arnold had it correct (all the time). -- + + + Bill Klein - "C" is a nice letter to START the name of your programming language with but I wouldn't want to end up there.
|
Sun, 03 Sep 2000 03:00:00 GMT |
|
|