|
midrange.com
>Hello Everyone,
>
>Can anyone help me in retrieving system date either in CLP or in RPG
>and storing it in the PF. I am working on V4R3. I've tried the
>following method but it didn't work.
>
>PF Member --:
>R DATREC
> DAT1 L
>
>DSPF Member --:
>A 5 21'DATE : '
>A DAT1 R L I 5 31REFFLD(DATREC/DAT1 TLIB1/DATE1)
>
>RPG Member --:
>FDATE1 O E DISK
>FA CF E WORKSTN
>C EXFMTDA
>
>If anyone could help me, I would be very much obliged.
>THANKS A LOT in advance.
>
>Srinivas.
>
*******************************************************
Hi!
I hope it help you.
IN DDS:
A R RFILE
*
A DTE L TEXT('DATE')
COLHDG('DATE')
***********************************************************
IN RPG/ILE:
H DATEDIT(*YMD)
FFILEL01 UF A E K DISK
*
C MOVE *DATE DTE
*
C WRITE RFILE
C MOVE *ON *INLR
***************************************************************
IN RPG:
H Y-
FFILEL01 UF E K DISK A
*
I DS
I 1 80DAT
I 1 4 GOD
I 5 6 MES
I 7 8 DEN
*
C MOVE *DATE DAT
C GOD CAT '-' DT 5
C DT CAT MES DT1 7
C DT1 CAT '-' DT2 8
C DT2 CAT DEN DATE 10
C MOVE DATE DTE
*
C WRITERFILE
*
C MOVE *ON *INLR
*************************************************************
!!!!!! Create RPG/400 Program (CRTRPGPGM) !!!!!!!!!
Type conversion options . . . . CVTOPT > *DATETIME
*************************************************************
IN CLP:
PGM
DCL VAR(&DAT) TYPE(*CHAR) LEN(6)
RTVJOBA DATE(&DAT)
CVTDAT DATE(&DAT) TOVAR(&DAT) TOFMT(*YMD) +
TOSEP(*NONE)
/* You can convert the date to any format */
ENDPGM
*************************************************************
IN FMT:
A R FMCHG
**********
**********
A DTO_D 6Y 0O 3 61EDTCDE(Y)
*
A DTE_D 6 0B 7 24EDTCDE(Y)
A DSPATR(HI)
A 7 33'(DDMMYY)'
A DTL_D 10A O 13 24
**********************************************************************
IN RPG/ILE:
H DATEDIT(*YMD)
*
FFILE01FM CF E WORKSTN
**********************************************************************
D #D#DMY S D DATFMT(*DMY)
D #D#YMD S D DATFMT(*YMD)
D #D#EUR S D DATFMT(*EUR)
**********************************************************************
C *YMD Move *DATE #D#DMY
C MoveL #D#DMY DTO_D
*
C Move DTE #D#EUR
C Move #D#EUR DTL_D
C DTL_D IfEq '01.01.0001'
C Move *Blanks DTL_D
C EndIf
*
C EXFMT FMCHG
C DTE_D IfNe *Zeros
C *DMY Move DTE_D #D#YMD
C Move #D#YMD DTE
C ENDIF
C MOVE *ON *INLR
**********************************************************************
best wishes,
Victor.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List! To submit a new *
* message, send your mail to "RPG400-L@midrange.com". To unsubscribe *
* from this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe RPG400-L' in the body of your message. Questions should *
* be directed to the list owner / operator: david@midrange.com *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
