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

I have to execute 12000 CL Commands one by one.. So, I have created a file called COMMAND. This file has only 1 field called STRING. This file had 12000 records, and all these records are CL Commands (ex: CALL PGM(PGM1)), etc) I have written a CL which will read all the record and do sbmjob.. But it is not working... Plz help me to exexute all these 12000 commands..

2 Answers   ISE,

---

What is source physical file?

1 Answers  

---

What is the use of Header Specification in RPG/400?

1 Answers  

---

what is the purpose of data structure?

1 Answers   IBM,

---

What is a query can be displayed without saving it?

0 Answers   IBM,

---

What Is Default Data Type (if You Define Decimals '0') In Physical File?

1 Answers   IBM,

---

How do you check object lock

0 Answers  

---

what are various techniques to pass parameters from one program to another?

1 Answers   IBM,

---

How to create a data queues?

1 Answers  

---

is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.

0 Answers  

---

which are control break logic indicators?

0 Answers   IBM,

---

How can we arrange duplicate records in a file?

0 Answers  

---