Comments on: CL400 parameters

By: The Most-Watched IT Questions: October 11, 2011 - ITKE Community Blog

The Most-Watched IT Questions: October 11, 2011 - ITKE Community Blog — Tue, 11 Oct 2011 13:10:10 +0000

[...] 9. Can you give some insight into CL/400 parameters? [...]

By: tomliotta

tomliotta — Fri, 30 Sep 2011 23:07:44 +0000

RTVOBJD OBJ(&FILNAM/&FROMLIB) OBJTYPE(*LIB)

I would expect that statement to result in a ’INVALID OBJ NAME’ message almost every time. Tom

By: charliebrowne

charliebrowne — Fri, 30 Sep 2011 12:49:23 +0000

Get rid of the CRTDUPOBJ as it has no value after th eCPYF.
The only thing I see is if the FROMFILE is a multimbr file and TOFILE already exist and is not a multimbr file, you will fail.
If that is not it, you need to check the joblog

By: philpl1jb

philpl1jb — Fri, 30 Sep 2011 11:38:30 +0000

Doesn’t work??? Please be specific.What is in the job log?

If the CPYF works, the CRTDUPOBJ is unnecessary and will throw an error.

Phil

By: srfnhmd1

srfnhmd1 — Fri, 30 Sep 2011 05:19:57 +0000

*************** Beginning of data *************************************** PGM PARM(&FILNAM &FROMLIB &TOLIB &STATUS) DCL VAR(&FILNAM) TYPE(*CHAR) LEN(10) DCL VAR(&FROMLIB) TYPE(*CHAR) LEN(10) DCL VAR(&TOLIB) TYPE(*CHAR) LEN(10) DCL VAR(&STATUS) TYPE(*CHAR) LEN(1) DCL VAR(&NEWNAM) TYPE(*CHAR) LEN(10) VALUE(PF001) DCL VAR(&IR) TYPE(*CHAR) LEN(3) DCLF FILE(PF001) /*===================================================================*/ /* CHECK PARAMATERS */ /*===================================================================*/ FILNAM: IF COND(&FILNAM *EQ ' ') THEN(DO) SNDMSG MSG('ERROR NO FILNAME') TOUSR(*REQUESTER) GOTO CMDLBL(END) ENDDO FROMLIB: IF COND(&FROMLIB *EQ ' ') THEN(CHGVAR + VAR(&FROMLIB) VALUE('*LIBL')) CHKOBJ: RTVOBJD OBJ(&FILNAM/&FROMLIB) OBJTYPE(*LIB) MONMSG MSGID(CPF0000) EXEC(DO) SNDMSG MSG('INVALID OBJ NAME') TOUSR(*REQUESTER) GOTO CMDLBL(END) ENDDO TOLIB: IF COND(&TOLIB *EQ ' ') THEN(DO) SNDMSG MSG('TOLIB IS EMPTY') TOUSR(*REQUESTER) GOTO CMDLBL(END) ENDDO RTVOBJD OBJ(&TOLIB) OBJTYPE(*LIB) MONMSG MSGID(CPF0000) EXEC(DO) SNDMSG MSG('TOLIB IS INVALID') TOUSR(*REQUESTER) GOTO CMDLBL(END) ENDDO CHGVAR VAR(&NEWNAM) VALUE(%SST(&FILNAM 1 8) + *TCAT '*') CHKOBJ OBJ(&TOLIB/&NEWNAM) OBJTYPE(*FILE) MONMSG MSGID(CPF0000) EXEC(DO) SNDMSG MSG('OBJ NOT FOUND') TOUSR(*REQUESTER) GOTO CMDLBL(END) ENDDO STATUS: IF COND(&STATUS *EQ 'Y') THEN(CHGVAR + VAR(&STATUS) VALUE('*YES')) ELSE DO IF COND(&STATUS *EQ 'N') THEN(CHGVAR + VAR(&STATUS) VALUE('*NO')) ENDDO NEXT: RCVF MONMSG CPF0864 EXEC(GOTO END) RTVMBRD FILE(&FROMLIB/&FILNAM) FILEATR(&IR) IF COND(&IR *EQ *PF) THEN(DO) CPYF FROMFILE(&FROMLIB/&FILNAM) + TOFILE(&TOLIB/&NEWNAM) FROMMBR(*ALL) + TOMBR(*FROMMBR) MBROPT(*REPLACE) + CRTFILE(*YES) CRTDUPOBJ OBJ(&FILNAM) FROMLIB(&FROMLIB) OBJTYPE(*ALL) + TOLIB(&TOLIB) NEWOBJ(&NEWNAM) ENDDO GOTO CMDLBL(NEXT) END: ENDPGM (In the above pgm i have written for copying for *pf alone but , its not workin. suggest if any code change is required)

By: philpl1jb

philpl1jb — Thu, 29 Sep 2011 16:05:58 +0000

Now it’s time for you to write some code. Send us issues, questions, etc.

By: charliebrowne

charliebrowne — Thu, 29 Sep 2011 14:51:56 +0000

When you do the CRTDUPOBJ for the logicals, be sure to have the new library at the beginning of your library list.
One standard many companies use is to use the same name for the PF and LF with just haveing a different suffix
Something like
myfilePF
myfileLF
myfileLFx
If you do something like this, you can set you rlibrary list and then do
CRTDUPOBJ myfile* *LIBL *FILE newlibrary
This will do all with one instruction

By: philpl1jb

philpl1jb — Thu, 29 Sep 2011 14:26:32 +0000

I think you would
1. use CRTDUPOBJ to create the physhical file in the new library
2. use DSPDBR to find the logical files to an outfile
3. use CRTDUPOBJ to create the logicals.
Phil

By: srfnhmd1

srfnhmd1 — Thu, 29 Sep 2011 14:03:54 +0000

Please let me know with an example code????