Im getting an error here for some reason. This is a valid statement though.
:sleepcnv
This command file will attempt to convert your old SLEEPCOM file
into the new format. It will create a NEW file leaving the old
one INTACT. At the prompt below supply the fully qualified name
of the QUAD editor and the name of the old SLEEPCOM file.
If you are converting an old version of the schedule OR you are
performing the conversion on a different machine where some of
the entries, due to 'missing' accounts, cannot be assigned an owner,
they will be assigned the owner of: "MGR.CSLXL" While
the user performing the mod will be: "MGR.CSLXL"
The NEW file will be named "NEWSCHED.SLEEPSTG.CSLXL"
Ready to start? [N/y] y
setvar m RHT("0!hpmonth",2)
^
MISSING MSG. SET=2. MESSAGE=2.
GENMSG CALLER STATUS: %101000 DELTA-P: %177777
GENMSG CALLER+1 STATUS: %140023 DELTA-P: %040000
**********
I've cut and pasted some of the file sleepcnv. It looks ok to me. Has anyone else installed the
Version 8.60 that was released Dec 02, 1999 and had this problem? If so how did you resolve it.
Thanks
Richard Hoffmann
*********
:print sleepcnv.sleepstg.cslxl
Parm default_owner="!hpuser.!hpaccount"
setvar dflt_owner UPS(RTRIM(LTRIM("!default_owner")))
setvar dflt_user LFT(dflt_owner,POS(".",dflt_owner)-1)
setvar dflt_acct dflt_owner - "!dflt_user."
setvar dflt_user LFT("!dflt_user ",8)
setvar dflt_acct LFT("!dflt_acct ",8)
setvar dflt_owner LFT("!dflt_owner ",17)
echo
echo This command file will attempt to convert your old SLEEPCOM file
echo into the new format. It will create a NEW file leaving the old
echo one INTACT. At the prompt below supply the fully qualified name
echo of the QUAD editor and the name of the old SLEEPCOM file.
echo
echo If you are converting an old version of the schedule OR you are
echo performing the conversion on a different machine where some of
echo the entries, due to 'missing' accounts, cannot be assigned an owner,
echo they will be assigned the owner of: "![RTRIM(dflt_owner)]" While
echo the user performing the mod will be: "!hpuser.!hpaccount"
echo
echo The NEW file will be named "NEWSCHED.!hpgroup.!hpaccount"
echo
setvar _yn 'N'
input _yn;wait=90;prompt="Ready to start? [N/y] "
(24/150) Continue?
if ups(_yn) <> "Y" then
echo Conversion aborted
return
endif
setvar qprog 'quad.util.sys'
#
# The 'hol' variable controls if each entry will be configured to 'abide'
# by SLEEPER's holiday indicator (In holiday mode entries are rescheduled
# but not executed).
setvar hol 'Y'
purge newsched > $null
build NEWSCHED;rec=128,6,f,ascii;disc=3000
setvar m RHT("0!hpmonth",2)
setvar d RHT("0!hpdate",2)
setvar y RHT("0!hpyear",2)
setvar y1 RHT("0![!y + 1]",2)
setvar time RHT("0!hphour",2) + ":" + RHT("0!hpminute",2)
setvar c STR(hpdatef,14,2)
setvar cnvuser LFT("!hpuser.!hpaccount ",17)
setvar qprog 'quad.util.sys'
Input qprog;wait=90; &
prompt="Enter fully qualified name of QUAD editor [!qprog]: "
Input old_sched;wait=90;prompt="Enter name of OLD schedule file: "
(47/150) Continue?
file x=!OLD_SCHED;shr;lock
fcopy from=*x;to=NEWSCHED;subset=" ",16,exclude
setvar rsize -1 * finfo(old_sched,"recsize")
purge gpin,temp > $null
if rsize = 114 OR rsize = 80 then
|
