Jim,
It would be much easier if you:
1) Create a temporary library.
2) Read through your file and copy the objects to this
temporary library (CRTDUPOBJ)
3) Save the temporary library with a SAVLIB command
John
DRV Technologies, Inc.
(678) 417-1521
www.drvtech.com
-----Original Message-----
From: Rubino, Jim [mailto:Jim.Rubino@xxxxxxxx]
Sent: Thursday, August 21, 2008 7:06 PM
To: Midrange Systems Technical Discussion
Subject: CL question for saving a bunch of objects
Hello everyone,
I am trying to great a CL program that will do a RCVF of a
phy file that
has the name of objects that I want to save to a savf. As I
read this
file I an trying to build a string of 60 objects in a
variable. Then
using this variable on the SAVOBJ command. The problem I am
having is
that the objects in the variable are not going into the
individual OBJ
fields on the SAVF command.
Here is the code I have so far:
READ: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO
CMDLBL(END))
CHGVAR VAR(%SST(&OBJNAM &SCNT 10))
VALUE(&ODOBNM)
CHGVAR VAR(&SCNT) VALUE(&SCNT + 10)
CHGVAR VAR(&CNT) VALUE(&CNT + 1)
IF COND(&CNT *GE 60) THEN(GOTO
CMDLBL(SAVEF))
GOTO CMDLBL(READ)
SAVEF:
CHGVAR VAR(&SFCNT) VALUE(&SFCNT + 1)
CHGVAR VAR(&SFCNTA) VALUE(&SFCNT)
CHGVAR VAR(&SAVFNAM) VALUE('JPOSTSAR' ||
&SFCNTA)
CRTSAVF FILE(QGPL/&SAVFNAM)
MONMSG MSGID(CPF0000)
SAVOBJ OBJ(&OBJNAM) LIB(JDFOBJ) DEV(*SAVF)
+
SAVF(&SAVFNAM)
MONMSG MSGID(CPF0000) EXEC(DO)
ENDDO
CHGVAR VAR(&OBJNAM) VALUE(&BLANKS)
CHGVAR VAR(&SCNT) VALUE(1)
CHGVAR VAR(&CNT) VALUE(0)
GOTO CMDLBL(READ)
TIA
Jim Rubino
Fike Corporation
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.
midrange.com
