Comments on: CL/400 program for copying files http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/ Wed, 19 Jun 2013 01:14:38 +0000 hourly 1 By: gilly400 http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/#comment-60935 gilly400 Tue, 17 Mar 2009 16:13:09 +0000 #comment-60935 Hi,

That’s a good tip! I always forget about the cross ref files – probably comes from using the S/36 environment for so long (the S/36 environment files don’t show up in the cross ref files).

I always find using DSPOBJD and DSPFD so slow…Will try and remember to use the cross reference files in future.

Regards,

Martin Gilbert.

]]> By: ronkoontz http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/#comment-60931 ronkoontz Tue, 17 Mar 2009 15:48:12 +0000 #comment-60931 Just copy the file QSYS/QADBXREF!!! use CPYF to copy this file to a new file and put the library you want. This file is a list of everything in the file already. Then read the file in the CL program and copy. I do this every Sunday night to update our test environment. You cold also go one step further. I put code to check the objects change date and time and only copy the file if its been change in the last 7 days.
This codes works for us but you will have to modify it for your won needs.

Code:
DCL VAR(&USEDATE) TYPE(*CHAR) LEN(8)
DCL VAR(&USEDATEC) TYPE(*CHAR) LEN(8)
DCL VAR(&JUL) TYPE(*CHAR) LEN(7)
DCL VAR(&MDAY) TYPE(*DEC) LEN(3 0)
DCL VAR(&MDAY1) TYPE(*CHAR) LEN(3)
DCL VAR(&JULADD) TYPE(*DEC) LEN(6 0)
DCL VAR(&DBXLIBTST) TYPE(*CHAR) LEN(10)

DCLF FILE(RSTFILE) OPNID(RSTLIST)
DCL VAR(&EOF) TYPE(*LGL)
RTVJOBA DATE(&USEDATEC)
CVTDAT DATE(&USEDATEC) TOVAR(&JUL) FROMFMT(*MDY) +
TOFMT(*JUL)

CHGVAR VAR(&MDAY) VALUE(%SST(&JUL 4 3))
CHGVAR VAR(&JULADD) VALUE(&MDAY – 7)
CHGVAR VAR(&MDAY1) VALUE(&JULADD)
CHGVAR VAR(&JUL) VALUE(%SST(&JUL 1 3) *TCAT &MDAY1)
CVTDAT DATE(&JUL) TOVAR(&USEDATEC) FROMFMT(*JUL) +
TOFMT(*CYMD) TOSEP(*NONE)

CPYF FROMFILE(QSYS/QADBXREF) TOFILE(NEW/RSTFILE) +
MBROPT(*REPLACE) CRTFILE(*YES) +
TORCD(*END) INCREL((*IF DBXLIB *EQ +
‘TLDB70′) (*AND DBXATR *EQ ‘PF’) (*OR +
DBXLIB *EQ ‘YOURLIBRARY‘) (*AND DBXATR *EQ ‘PF’)) +
FMTOPT(*NOCHK)

CHGVAR &EOF ’0′
DOUNTIL COND(&EOF)
RCVF OPNID(RSTLIST)
MONMSG MSGID(CPF0864) EXEC(DO)
CHGVAR VAR(&EOF) VALUE(’1′)
ITERATE
ENDDO
RTVMBRD FILE(&RSTLIST_DBXLIB/&RSTLIST_DBXFIL) +
USEDATE(&USEDATE)
IF COND(&USEDATE *GE &USEDATEC) THEN(DO)

CPYF FROMFILE(&RSTLIST_DBXLIB/&RSTLIST_DBXFIL) +
TOFILE(&DBXLIBTST/&RSTLIST_DBXFIL) +
MBROPT(*REPLACE) CRTFILE(*YES) FMTOPT(*NOCHK)
MONMSG MSGID(CPF0000)

ENDDO
ENDDO
ENDPGM

]]> By: gilly400 http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/#comment-60556 gilly400 Thu, 05 Mar 2009 17:04:05 +0000 #comment-60556 Hi,

Here’s a program which should do this for you – (I haven’t tested this):-

PGM

DCL VAR(&FROMLIB) TYPE(*CHAR) LEN(10) VALUE(HWMSFMODS)
DCL VAR(&TOLIB) TYPE(*CHAR) LEN(10) VALUE(HEXPFMODS)

DCLF QADSPOBJ

DSPOBJD OBJ(&FROMLIB/*ALL) OBJTYPE(*FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)

OVRDBF QADSPOBJ QTEMP/DSPOBJD

READ: RCVF
MONMSG CPF0864 EXEC(GOTO ENDPGM)

/* Copy File */
CPYF FROMFILE(&ODLBNM/&ODOBNM) TOFILE(&TOLIB/&ODOBNM) FROMMBR(*ALL) TOMBR(*FROMMBR) MBROPT(*REPLACE) CRTFILE(*YES)
/* Clear from file */
CLRPFM &ODLBNM/&ODOBNM *ALL

GOTO READ

ENDPGM: ENDPGM

Make sure you have a backup before you start, of course…

Regards,

Martin Gilbert.

]]> By: woodengineer http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/#comment-60555 woodengineer Thu, 05 Mar 2009 16:41:20 +0000 #comment-60555 If your destination library is empty . . . might want to try CRTDUPOBJ OBJ(*ALL) OBJTYPE(*ALL).

One thing to check after the copy – be sure the logicals in the destination library point to physicals also in the destination library.

]]> By: askt http://itknowledgeexchange.techtarget.com/itanswers/cl400-5/#comment-60545 askt Thu, 05 Mar 2009 14:56:14 +0000 #comment-60545 I hope above one is used for single file transfer. actually i need to copy all files in library at the time.

]]>