Show 2 ways to convert a date from YYMMDD to MMDDYY (MULT operation not acceptable)



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

Post New Answer

More IBM AS400 AllOther Interview Questions

what are different record spacing keywords in rlu ?

2 Answers   IBM,


write a pgm to read p.f using cl pgm?

2 Answers   Ocwen, SLK, TCS,


Why we have multiple data types in As400 and why we use numeric, packed, decimal, zoned the basic difference between this?

1 Answers  


268 How many parameters can be defined in a RPG program. ?

1 Answers  


PGM QSH CMD('/QOpenSys/bin/sftp -b/home/test/myfile.txt serverUserID@server') ENDPGM In above example,what is content of myfile.txt ...Thanx

2 Answers  


Logic cycle

1 Answers  


What is field reference file?

1 Answers  


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!!)

1 Answers   CTS,


what is OUTFILE?what is the uses and disadvantage? where we can use this?

2 Answers  


Difference Between Call & Sbmjob?

1 Answers   IBM,


Space & Skip Are Which Level Keywords?

1 Answers   IBM,


What is an ICF file?

1 Answers  


Categories