Thank you very much Doug.




-----Original Message-----
From: Doug Werth [mailto:[log in to unmask]]
Sent: Monday, November 19, 2001 12:51 PM
To: Joe Amuquandoh
Subject: Re: STORE command not executing...


Joe,

The problem is in this line here on line 47 of your JCL:

 :comment STORE @[log in to unmask]@[log in to unmask]@.SG2TEST;;STORESET=(*DTAPE1),(*DTAPE2);&

Because of the '&' in the last position the COMMENT in continued on the next
line. It also has an '&' in the last position. Basically what looks like a
STORE command to you is actually one very large comment. Add a line after
this one with nothing but a "!" on it or remove the '&'.

Doug.

Doug Werth [log in to unmask]            Beechglen Development Inc.
Director of Technical Support Services             Cincinnati, Ohio
Voice: (513) 922-0509                           Fax: (513) 347-2834



----- 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 *