Joe,
You have a STORE command commented out just before the STORE that you want
executed. However, you left the & character at the end of the commented
line. This continues the comment. Since all of the following lines that
are part of the STORE you want executed also end with &, they all become
continuations of the comment. Remove the ampersand from the commented STORE
line and I think it will work as you want.
Steve Miller
Beechglen Development, Inc
Cincinnati, Ohio
----- Original Message -----
From: "Joe Amuquandoh" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, November 19, 2001 12:35 PM
Subject: STORE command not executing...
> Hello,
> We have a job that, among other things does a backup.
> There is an If statement that test " IF HPDAY="#" then do a STORE of
> specified accounts
> ELSE do a STORE of all acounts, excluding specified accounts."
> For some reason, the STORE command in the ELSE statement does not get
> executed when the IF
> statement is 'FALSE' even though execution of the commands resumes after
the
> ELSE statement.
> I have checked and tested the syntax out in another job and it works fine.
> Below is a section of the STDLIST that I am having problem with.
> Can someone please help!!!.
>
> Thanks a lot.
>
>
> :FILE DTAPE1;DEV=8
> 0004500
> 0
> :FILE DTAPE2;DEV=9
> 0004600
> 0
> :IF "!HPDAY"="2" OR "!HPDAY"="3" OR "!HPDAY"="4" OR "!HPDAY"="5" THEN
> 0004601
> 0
> *** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
> /ENDIF
> :STORE @[log in to unmask]@,@[log in to unmask],@[log in to unmask];; &
> 0004602
> 0
> : STORESET=(*DTAPE1),(*DTAPE2); &
> 0004603
> 0
> : DIRECTORY;ONVS=MPEXL_SYSTEM_VOLUME_SET,SDCDB_SET; &
> 0004604
> 0
> : PROGRESS;COMPRESS=LOW;MAXTAPEBUF
> 0004605
> 0
> :COMMENT ******************************************************
> 0004606
> 0
> :COMMENT *
> 0004607
> 0
> :COMMENT * DAILY DATA BACKUP COMPLETED SUCCESSFULLY! *
> 0004608
> 0
> :COMMENT *
> 0004609
> 0
> (185/3688) Continue?
> :COMMENT ******************************************************
> 0004610
> 0
> :ELSE
> 0004620
> 0
> *** RESUME EXECUTION OF COMMANDS
> :comment 09/28/01 Excluded all the test accounts *JA*
> 0004630
> 0
> :comment STORE @[log in to unmask]@[log in to unmask]@.SG2TEST;;STORESET=(*DTAPE1),(*DTAPE2);&
> 0004700
> 0
> :STORE @[log in to unmask]@[log in to unmask]@.@TEST@;;STORESET=(*DTAPE1),(*DTAPE2);&
> 0004710
> 0
> : DIRECTORY;ONVS=MPEXL_SYSTEM_VOLUME_SET,SDCDB_SET;&
> 0004800
> 0
> : PROGRESS;COMPRESS=LOW;MAXTAPEBUF
> 0004900
> 0
> :TELLOP ******************************************************
> 0005000
> 0
> :TELLOP *
> 00051000
> :TELLOP * FULL SYSTEM BACKUP COMPLETED SUCCESSFULLY! *
> 0005200
> 0
> :TELLOP *
> 00053000
> :TELLOP ******************************************************
> 0005400
> 0
> :ENDIF
> 0005410
> 0
> :COMMENT ***** FUTURE ORDER AND CHECK RELEASE *****
> 0005500
> 0
> :COMMENT
> 0005600
> 0
> :SHOWTIME
> 0005700
> 0
> SAT, NOV 17, 2001, 9:17 PM
> :FILE FUTPARMS;ACC=APPEND;REC=-80,10,F,ASCII;DISC=50
> 0005800
> 0
> :SETVAR MONTHDAYS 31
> 0005900
> 0
> :IF !HPMONTH = 4 OR !HPMONTH = 6 OR !HPMONTH = 9 OR !HPMONTH = 11
> 0006000
> 0
> *** EXPRESSION TRUE
> : SETVAR MONTHDAYS 30
> 0006100
> 0
> (208/3688) Continue?
> :ENDIF
> 0006200
> 0
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|