How to learn from the difference between the two-day hours: Operating Systems

Obicn

How to learn from the difference between the two-day hours

H ************************************************* ****************
H * calculate hours different two date format.
H ************************************************* ****************
HDATFMT (* ISO)
H ************************************************* ****************
DName +++++++++++ ETDsFrom + + + To / L + + + IDc.Keywords ++++++++++++++++++++++++++
D DCC1 S Z
D DCC2 S Z
D DS
DName +++++++++++ ETDsFrom + + + To / L + + + IDc.Keywords ++++++++++++++++++++++++++
DY6 1 6S 0
Dhh 1 2S 0
Dmm 3 4S 0
Dss???????????????????????5??????6S?0
C ************************************************* ****************
C * Main Line Routine
C ************************************************* ****************
C *
C * ENTRY PLIST
CL0N01Factor1 +++++++ Opcode & ExtFactor2 +++++++ Result ++++++++ Len + + D + HiLoEq.
C PARM d1 8 0
C PARM t1 6 0
C PARM d2 8 0
C PARM t2 6 0
C PARM hourx 7 0
C *
CL0N01Factor1 +++++++ Opcode & ExtFactor2 +++++++ Result ++++++++ Len + + D + HiLoEq
C MOVEL D1 DC1 August
C MOVEL T1 TC1 6
C *
C MOVEL D2 DC2 8
C MOVEL T2 TC2 6
C *
C movel * blanks DAT1 26
C eval DAT1 =% subst (dC1: 1:4) + '-' +
C% subst (dC1: 5-2) + '-' +
C% subst (dC1: 7:2) + '-' +
C% subst (TC1: 1:2) + '.' +
C% subst (TC1: 3:2) + '.' +
C% subst (TC1: 5-2) + '.000000'
C movel dat1 dcc1
C *
C movel * blanks DAT2 26
C eval DAT2 =% subst (dC2: 1:4) + '-' +
C% subst (dC2: 5-2) + '-' +
C% subst (dC2: 7:2) + '-' +
C% subst (TC2: 1:2) + '.' +
C% subst (TC2: 3:2) + '.' +
C% subst (TC2: 5-2) + '.000000'
C movel dat2 dcc2
C *
C z-add 0000 HOURS 9 0
C z-add 0000 HOURx 7 0
C DCC1 SUBDUR DCC2 HOURS: * mn
C * calculate the minutes.
C eval (h) = hours/60 hourx
C *
C *
CL0N01Factor1 +++++++ Opcode & ExtFactor2 +++++++ Result ++++++++ Len + + D + HiLoEq.
C SETON LR
C RETURN
The following End of data ***************************** ************

Foreverjj back in :2003-11-04 16:29:17

Do not understand, can you explain?

Comment

? ? How to check the 400 tape was used in how much space? ?: 400 tapes in storage> For example: Data file: TEST Block Length: 032760 File Length: 002323 So I ask you: How to check the 400 tape was used in how much space? (We peacetime habits are: how many M..
Today really disappointing to 400: Today, I am the first to give staff training> Not aware of the slow CA ODBC is not the efficiency of the communication protocol or things (we TCPIP), and anyway I do not believe that the processin..
How to start from the AS/400 PC or from PC program launched AS/400 process?: 1 pc from the start> Windows 95, 98, NT, the need for REXECD (remote executing) Daemon procedures for receiving external orders, directives RUMRMTCMD use in the AS/400, the> C: \ Program Files ..
How to change the logon on screen?: A simple question: How to modify user interface? Thanks Day day up! : Shock: Pcas400 back in :2004-02-27 11:03:47 How you would like to amend? Specific please contact me. Sean810 back in :2004-02-27 ..
In rpg, how to switch to rename?: RPG units, there are some procedures, switching more than a terrible, how to switch> Are there any good methods ah? Andrewleading_he back in :2004-02-05 14:34:57 What you are saying is that light ..
Help: how to realize the two-OBJ procedures copy machine?: How can a simple method for the type of PGM * OBJECT copy from> (SAVF preserved by FTP or SNDNETF OBJECT reuse can be achieved, but relatively trouble) width=100% cellspacing=0 cellpadding=0 align..

Home|Site Map