The simpler workaround is to prepare a temp file in the JCL as follows
(not the difference between >temp and >>temp)
!Echo OPEN 192.168.1.111 >temp
!echo USER MGR.TFTP >>temp
!echo pass >>temp
!if greg = "false" then
! Echo get jobsmpl >>temp
!endif
!echo quit >>temp
!#
!# Now run FTP with temp file
!#
!run frp.arpa.sys <temp
!if FTPJCQ etc
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Johnson, Tracy
Sent: 29 October 2004 18:47
To: [log in to unmask]
Subject: Re: [HP3000-L] Does 'IF' really works?
Importance: Low
Like I said, there are MPEX workarounds.
Will supply if asked.
BT
Tracy Johnson
MSI Schaevitz Sensors
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
> Behalf Of Dave Powell, MMfab
>
> One minor addition to all the other replies about why it won't
> work...... I once did a test where it seems you can have mpe 'if',
> commands & end-ifs within the ftp input, like trying to get a file and
> then setting a variable if the get succeeded while ftp is still
> running, instead of waiting till after you exit.
>
> ----- Original Message -----
> From: "Greg Terterian" <[log in to unmask]>
> To: <[log in to unmask]>
> Sent: Friday, October 29, 2004 09:04
> Subject: [HP3000-L] Does 'IF' really works?
>
>
> > I have the following test script:
> >
> > !JOB GREG,MGR.TFTP,PUB;HIPRI
> > !SETVAR GREG "TRUE"
> > !FTP
> > OPEN 192.168.1.111
> > USER MGR.TFTP
> >
> > PASS
> > !IF GREG = "FALSE" THEN
> > GET JOBSMPLE
> > !ENDIF
> > QUIT
> > !EOJ
> >
> > And here is the $STDLIST for that script... as you can see,
> it checks the
> condition and says that it is going to ignore till it finds the
> matching endif, but is still processing the lines inbetween. Am I
> missing something?
> Or FTP does not care about the 'IF'?
> >
> > :JOB GREG,MGR.TFTP,PUB.
> > Priority = DS; HIPRI; Time = UNLIMITED seconds.
> > Job number = #j91.
> > FRI, OCT 29, 2004, 8:56 AM.
> > HP3000 Release: C.70.00 User Version: C.70.00
> > MPE/iX HP31900 C.39.06 Copyright Hewlett-Packard 1987.
> > All rights reserved.
> > STREAMED BY GREG,OP.AMSOP (#S88) ON LDEV# 8
> > STREAM DATE: FRI, OCT 29, 2004, 8:56 AM
> > :SETVAR GREG "TRUE"
> > :FTP
> >
> > File Transfer Protocol [A0011L11] (C) Hewlett-Packard Co.
> 2002 [PASSIVE
> SUPPORT
> > ]
> > ftp> OPEN 192.168.1.111
> > 220 HP ARPA FTP Server [A0011L10] (C) Hewlett-Packard Co.
> 2000 [PASV
> SUPPORT]
> > Connected to 192.168.1.111. (FTPINFO 40) ftp> USER MGR.TFTP 230
> > User logged on Remote system type is MPE/iX 200 Type set to I.
> > ftp>
> > (24/43) Continue?
> > ftp> PASS
> > Passive mode is on.
> > ftp> :IF GREG = "FALSE" THEN
> > *** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
> > /ENDIF ftp> GET JOBSMPLE
> > 227 Entering Passive Mode (192,168,1,111,226,8) 150 File: JOBSMPLE
> > opened; data connection will be opened
> > 227 Entering Passive Mode (192,168,1,111,226,10) 150 File:
> > JOBSMPLE opened; data connection will be opened There is an error
> > closing the target file. (FTPERR 67)
> > 226 Transfer complete.
> > ftp> :ENDIF
> > *** RESUME EXECUTION OF COMMANDS
> > ftp> QUIT
> > 221 Server is closing command connection
> >
> > :EOJ
> > CPU sec. = 3. elapsed min. = 1. FRI, OCT 29, 2004, 8:56 AM.
> >
> >
> > Thanks in advance for all your help!
> >
> > * 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 *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
The contents of this email are confidential to the intended recipient
and may not be disclosed. Although it is believed that this email and
any attachments are virus free, it is the responsibility of the recipient to confirm this.
Smith & Williamson Corporate Finance Limited - A member of M&A
International Inc. http://www.mergers.net Registered in England No.
4533970. Authorised and regulated by the Financial Services Authority
Smith & Williamson Investment Management Limited, Registered No. 976145. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Pension Consultancy Limited - Independent
Intermediary. Registered No. 3133226. Authorised and regulated by the
Financial Services Authority.
Smith & Williamson Fund Administration Limited, Registered No. 1934644. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Limited - A member of Nexia International.
Registered in England No. 4534022. Regulated by the Institute of
Chartered Accountants in England & Wales for a range of investment
business activities.
Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.smith.williamson.co.uk
Nexia Audit Limited - A member of Nexia International. Registered in
England No. 4469576. Registered to carry on audit work and regulated by the Institute of Chartered Accountants in England & Wales for a range of investment business activities.
Registered Office: No 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.nexiaaudit.co.uk
NCL Investments Limited, Registered No. 1913794.
Member of the London Stock Exchange authorised and regulated by the Financial Services Authority.
Registered Office: Bartlett House, 9-12 Basinghall Street, London EC2V 5NS
Telephone: 020 7600 2801
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|