Show 2 ways to convert a date from YYMMDD to MMDDYY (MULT operation not acceptable)
Answer / sanjeet kumar
1)CVTDAT() DATE() RTNVAR() FROMFMT() TOFMT()
Source code is required to convert from one date format to another date format.
The source code in CLP is given below:
PGM
DCL VAR(&VAR1) LENGTH(6) TYPE(*CHAR) VALUE('YYMMDD')
DCL VAR(&RCVD) LENGTH(6) TYPE(*CHAR)
DCL VAR(&VAR2) LENGTH(4) TYPE(*CHAR)
DCL VAR(&VAR3) LENGTH(2) TYPE(*CHAR)
CHGVAR VAR(&VAR2) VALUE(%SST(&VAR1 3 4))
CHGVAR VAR(&VAR3) VALUE(%SST(&VAR1 1 2))
CHGVAR VAR(&RCVD) VALUE(&VAR2 *CAT &VAR3)
SNDMSG MSG(&RCVD) TOUSR(*USRPRF)
ENDPGM
| Is This Answer Correct ? | 0 Yes | 0 No |
what are different record spacing keywords in rlu ?
write a pgm to read p.f using cl pgm?
Why we have multiple data types in As400 and why we use numeric, packed, decimal, zoned the basic difference between this?
268 How many parameters can be defined in a RPG program. ?
PGM QSH CMD('/QOpenSys/bin/sftp -b/home/test/myfile.txt serverUserID@server') ENDPGM In above example,what is content of myfile.txt ...Thanx
Logic cycle
What is field reference file?
how a varible can be passed to a subfile...accnt1 contain data in a data area..ie Daccnt1 uds,Daccnt2 3 overlay(accnt1:1), DNo 4 overlay(accnt1:4)..we want to transfer this dataarea value from acnt0001 to a subfile..that means to enter each record we have to incriment account no,, i normal window we can do move accnt1 account_no eval account_no=accnt1 eval no=no+1 exfmt usr_account how it possible with Subfile????????.Please do answer? (Thank you for all your answers dear friends!!)
what is OUTFILE?what is the uses and disadvantage? where we can use this?
Difference Between Call & Sbmjob?
Space & Skip Are Which Level Keywords?
What is an ICF file?