the value:
X1972DC XL8'0008126D60E46000'
taken from POP v2.2 pdf pag 7-315 (shifted right 12 bits)
A1970DC FL8'6307200' 2*365*24*60*60 number of seconds between
1970-01-01-00: 00: 00 and 1972-01-01-00: 00: 00
the routine is reentrant, works without a base register and has n
IBM Mainframe Assembler List scritti il
11/04/2017 12:21:31
> Keven Hall
> Inviato da: IBM Mainframe Assembler List
>
> 11/04/2017 12:21
>
> Per favore, rispondere a
> IBM Mainframe Assembler List
>
> Per
>
> ASSEMBLER-LIST@LISTSERV.UGA.EDU,
>
> CC
>
Taking no chances with the second Program Return, eh?
K3n
> On Apr 11, 2017, at 02:38, aldo.cro...@csebo.it wrote:
>
>
> example Cobol program that calls a routine.
> the routine returns a field containing two subfields (binary of 64 bits)
> that contain the seconds since 01.01.1972 (the fir
example Cobol program that calls a routine.
the routine returns a field containing two subfields (binary of 64 bits)
that contain the seconds since 01.01.1972 (the first) and from 01.01.1979
(the second).
IDENTIFICATION DIVISION.
PROGRAM-ID.PRd1970.
ENVIRONMENTDIVISI