[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

3658.0. "Already a fix for a known problem ?" by UTRTSC::SMEETS (Look at the ALL-IN-1 side of life) Mon Dec 13 1993 14:52

Hi,

Customer running ALL-IN-1 V3.0-1 experieces the problem as described in the 
STARS article "Cannot Schedule ADS In V3.0 If Archiving Is NOT Enforced".

Is there already a fix for this problem ?

Thanks,

Martin
T.RTitleUserPersonal
Name		DateLines
3658.1Build my own fixUTRTSC::SMEETSLook at the ALL-IN-1 side of lifeTue Dec 14 1993 12:4446
Hi,

I've fixed the problem by myself...

Here's my solution:

Modify in form SM_MHP_INDEX:

;;~~ADS_CREATE~~;;

GET #CMPLTD_A = SM$_N\
GET #CMPLTD_E = SM$_N\
FORM SM_SKEDFORM_ARCHIVE\
CLOSE_PRIOR\
.IF #FINISHED == 0 THEN GET OA$FUNCTION = "DELETE_FILE " #DEPT\
.IF ((#CMPLTD_A EQS SM$_Y) AND (#ENFC_YN EQS SM$_Y))
THEN
   XOP "~~ENFORCE~~"

into

;;~~ADS_CREATE~~;;

GET #CMPLTD_A = SM$_N\
GET #CMPLTD_E = SM$_N\
FORM SM_SKEDFORM_ARCHIVE\
CLOSE_PRIOR\
.IF #FINISHED == 0 THEN GET OA$FUNCTION = "DELETE_FILE " #DEPT\
.IF ((#CMPLTD_A EQS SM$_Y) AND (#ENFC_YN EQS SM$_Y))
THEN
    XOP "~~ENFORCE~~" \
.IF ((#CMPLTD_A EQS SM$_Y) AND (#ENFC_YN EQS SM$_N))
THEN
    XOP "~~NO_ENFORCE~~"

;;~~NO_ENFORCE~~;;

GET #UTIL_TYPE = "ADS"\
DO OA$LIB:QUEUE_JOB\
CLOSE_PRIOR\
XOP "~~REFRESH_SCHED~~"


Now, it works !

Martin