Re: Creating a physical AND Logical file -- MIDRANGE-L

Make a chglibl ....
  CRTLF
Restore old libl

here is a sample :
/*__________________________________________________________________________
__*/
/* APPEL EXTRACTION SQL
*/
/*__________________________________________________________________________
__*/
             PGM
             DCL        VAR(&USRLIBL) TYPE(*CHAR) LEN(275) VALUE(' ')
             DCL        VAR(&CHGLIBL) TYPE(*CHAR) LEN(285)
             DCL        VAR(&CURLIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIBTMP) TYPE(*CHAR) LEN(10) VALUE('QTEMP')
/*_________________________________________________________________________*
/
/* SAUVEGARDE LISTE BIB
*/
/*_________________________________________________________________________*
/
             RTVJOBA    USRLIBL(&USRLIBL) CURLIB(&CURLIB)
/*_________________________________________________________________________*
/
/* NOUVELLE LISTE
*/
/*_________________________________________________________________________*
/
             CHGLIBL    LIBL(QTEMP AAAAA BBBBB QGPL) +
                          CURLIB(*CRTDFT)
             DLTOVR     FILE(*ALL)

             DLTF       FILE(&LIBTMP/FICHIER)
             MONMSG     MSGID(CPF0000)
             CRTPF      FILE(&LIBTMP/FICHIER) RCDLEN(4096) +
                          SIZE(*NOMAX) AUT(*ALL)
             OVRDBF     FILE(FICHIER) TOFILE(&LIBTMP/FICHIER) +
                          OPNSCOPE(*JOB)
             CALL       PGM(CGI_SQL)
             DLTOVR     FILE(*ALL) LVL(*JOB)
             RCLRSC
/*_________________________________________________________________________*
/
/* RESTAURATION
*/
/*_________________________________________________________________________*
/
             CHGVAR     VAR(&CHGLIBL) VALUE('CHGLIBL (' *CAT +
                          &USRLIBL *TCAT ')')
             CALL       PGM(QCMDEXC) PARM(&CHGLIBL 285)
             IF         COND(&CURLIB *NE '*NONE     ') THEN(DO)
             CHGCURLIB  CURLIB(&CURLIB)
             ENDDO

FIN:         ENDPGM

----- Original Message ----- 
From: "Alan Shore" <AlanShore@xxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Wednesday, January 10, 2007 5:40 PM
Subject: Re: Creating a physical AND Logical file

How?
To my knowledge the command CRTLF does not provide you with a method as to
which library to point to for the Physical file



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

midrange-l-bounces@xxxxxxxxxxxx wrote on 01/10/2007 11:30:14 AM:

Make sure that your logical points to the PHYSFILE  in QTEMP.

Alan Shore wrote:

Mornin' everyone.
Here is my predicament
I need to create a physical file PHYSFILE in QTEMP using the CRTPF.

This is

no problem.
I then need to create a Logical LOGFILE (also in QTEMP) against this
Physical PHYSFILE in QTEMP.
Heres where the problem lies.
The Logical that is created is against a physical file of the same

name

PHYSFILE that is in an earlier library on the library list.
How can I create the logical LOGFILE against the physical PHYSFILE

that

resides in QTEMP?



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.