Thanks Tracy - here's my post in plain text.
The simpler workaround is to prepare a temp file in the JCL as follows
(note 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: Tracy Pierce [mailto:[log in to unmask]]
Sent: 30 October 2004 19:51
To: Tony Summers
Subject: RE: Does 'IF' really works?
would you be so kind as to re-post using plain text only? looks like
some html parser is making a mess...
thanks!
> -----Original Message-----
> From: Tony Summers [mailto:[log in to unmask]]
> Sent: Saturday, October 30, 2004 11:16 AM
> To: [log in to unmask]
> Subject: Re: Does 'IF' really works?
>
>
> The=20simpler=20workaround=20is=20to=20prepare=20a=20temp=20fi
> le=20in=20th=
> e=20JCL=20as=20follows
> (not=20the=20difference=20between=20>temp=20and=20>>temp)=20
>
> !Echo=20=20OPEN=20192.168.1.111=20>temp
> !echo=20=20USER=20MGR.TFTP=20>>temp
> !echo=20=20pass=20>>temp
> !if=20greg=20=3D=20"false"=20then=20
> !=20=20Echo=20get=20jobsmpl=20>>temp=20
> !endif=20
> !echo=20quit=20>>temp=20
> !#
> !#=20Now=20run=20FTP=20with=20temp=20file=20
> !#=20
> !run=20frp.arpa.sys=20<temp=20
> !if=20FTPJCQ=20etc=20
>
> -----Original=20Message-----
> From:=20HP-3000=20Systems=20Discussion=20[mailto:HP3000-L@RAVE
> N.UTC.EDU]=20=
> On
> Behalf=20Of=20Johnson,=20Tracy
> Sent:=2029=20October=202004=2018:47
> To:[log in to unmask]
> Subject:=20Re:=20[HP3000-L]=20Does=20'IF'=20really=20works?
> Importance:=20Low
>
> Like=20I=20said,=20there=20are=20MPEX=20workarounds.
> Will=20supply=20if=20asked.
>
> BT
>
>
> Tracy=20Johnson
> MSI=20Schaevitz=20Sensors=20
>
> >=20-----Original=20Message-----
> >=20From:=20HP-3000=20Systems=20Discussion=20[mailto:HP3000-L@
> RAVEN.UTC.ED=
> U]On=20
> >=20Behalf=20Of=20Dave=20Powell,=20MMfab
> >=20
> >=20One=20minor=20addition=20to=20all=20the=20other=20replies=
> 20about=20wh=
> y=20it=20won't=20
> >=20work......=20=20I=20once=20did=20a=20test=20where=20it=20s
> eems=20you=20=
> can=20have=20mpe=20'if',=20
> >=20commands=20&=20end-ifs=20within=20the=20ftp=20input,=20lik
> e=20trying=20=
> to=20get=20a=20file=20and
>
> >=20then=20setting=20a=20variable=20if=20the=20get=20succeeded
> =20while=20f=
> tp=20is=20still=20
> >=20running,=20instead=20of=20waiting=20till=20after=20you=20exit.
> >=20
> >=20-----=20Original=20Message=20-----
> >=20From:=20"Greg=20Terterian"=20<[log in to unmask]>
> >=20To:=20<[log in to unmask]>
> >=20Sent:=20Friday,=20October=2029,=202004=2009:04
> >=20Subject:=20[HP3000-L]=20Does=20'IF'=20really=20works?
> >=20
> >=20
> >=20>=20I=20have=20the=20following=20test=20script:
> >=20>
> >=20>=20!JOB=20GREG,MGR.TFTP,PUB;HIPRI
> >=20>=20!SETVAR=20GREG=20"TRUE"
> >=20>=20!FTP
> >=20>=20OPEN=20192.168.1.111
> >=20>=20USER=20MGR.TFTP
> >=20>
> >=20>=20PASS
> >=20>=20!IF=20GREG=20=3D=20"FALSE"=20THEN
> >=20>=20GET=20JOBSMPLE
> >=20>=20!ENDIF
> >=20>=20QUIT
> >=20>=20!EOJ
> >=20>
> >=20>=20And=20here=20is=20the=20$STDLIST=20for=20that=20script
> ...=20as=20y=
> ou=20can=20see,
> >=20it=20checks=20the
> >=20condition=20and=20says=20that=20it=20is=20going=20to=20ign
> ore=20till=20=
> it=20finds=20the=20
> >=20matching=20endif,=20but=20is=20still=20processing=20the=20
> lines=20inbe=
> tween.=20=20Am=20I=20
> >=20missing=20something?
> >=20Or=20FTP=20does=20not=20care=20about=20the=20'IF'?
> >=20>
> >=20>=20:JOB=20GREG,MGR.TFTP,PUB.
> >=20>=20=20Priority=20=3D=20DS;=20HIPRI;=20Time=20=3D=20UNLIMI
> TED=20second=
> s.
> >=20>=20=20Job=20number=20=3D=20#j91.
> >=20>=20=20FRI,=20OCT=2029,=202004,=20=208:56=20AM.
> >=20>=20=20HP3000=20=20Release:=20C.70.00=20=20=20User=20Versi
> on:=20C.70.0=
> 0
> >=20>=20=20MPE/iX=20=20HP31900=20C.39.06=20=20Copyright=20Hewl
> ett-Packard=20=
> 1987.
> >=20>=20=20All=20rights=20reserved.
> >=20>=20=20STREAMED=20BY=20GREG,OP.AMSOP=20(#S88)=20ON=20LDEV#=208
> >=20>=20=20=20=20=20STREAM=20DATE:=20=20=20FRI,=20OCT=2029,=20
> 2004,=20=208=
> :56=20AM
> >=20>=20=20:SETVAR=20GREG=20"TRUE"
> >=20>=20=20:FTP
> >=20>
> >=20>=20=20File=20Transfer=20Protocol=20[A0011L11]=20(C)=20Hew
> lett-Packard=
> =20Co.=20
> >=202002=20[PASSIVE
> >=20SUPPORT
> >=20>=20]
> >=20>=20=20ftp>=20OPEN=20192.168.1.111
> >=20>=20=20220=20HP=20ARPA=20FTP=20Server=20[A0011L10]=20(C)=2
> 0Hewlett-Pac=
> kard=20Co.=20
> >=202000=20[PASV
> >=20SUPPORT]
> >=20>=20=20Connected=20to=20192.168.1.111.=20=20(FTPINFO=2040)
> =20=20ftp>=20=
> USER=20MGR.TFTP=20=20230=20
> >=20>=20User=20logged=20on=20=20Remote=20system=20type=20is=20
> MPE/iX=20=20=
> 200=20Type=20set=20to=20I.
> >=20>=20=20ftp>
> >=20>=20(24/43)=20Continue?
> >=20>=20=20ftp>=20PASS
> >=20>=20=20Passive=20mode=20is=20on.
> >=20>=20=20ftp>=20:IF=20GREG=20=3D=20"FALSE"=20THEN
> >=20>=20=20***=20EXPRESSION=20FALSE:=20COMMANDS=20IGNORED=20UN
> TIL=20MATCHI=
> NG=20ELSEIF/ELSE=20=20
> >=20>=20/ENDIF=20=20ftp>=20GET=20JOBSMPLE
> >=20>=20=20227=20Entering=20Passive=20Mode=20(192,168,1,111,22
> 6,8)=20=2015=
> 0=20File:=20JOBSMPLE
>
> >=20>=20opened;=20data=20connection=20will=20be=20opened
> >=20>=20=20227=20Entering=20Passive=20Mode=20(192,168,1,111,22
> 6,10)=20=201=
> 50=20File:=20
> >=20>=20JOBSMPLE=20opened;=20data=20connection=20will=20be=20o
> pened=20=20T=
> here=20is=20an=20error=20
> >=20>=20closing=20the=20target=20file.=20=20(FTPERR=2067)
> >=20>=20=20226=20Transfer=20complete.
> >=20>=20=20ftp>=20:ENDIF
> >=20>=20=20***=20RESUME=20EXECUTION=20OF=20COMMANDS
> >=20>=20=20ftp>=20QUIT
> >=20>=20=20221=20Server=20is=20closing=20command=20connection
> >=20>
> >=20>=20=20:EOJ
> >=20>=20=20CPU=20sec.=20=3D=203.=20=20elapsed=20min.=20=3D=201
> .=20=20FRI,=20=
> OCT=2029,=202004,=20=208:56=20AM.
> >=20>
> >=20>
> >=20>=20Thanks=20in=20advance=20for=20all=20your=20help!
> >=20>
> >=20>=20*=20To=20join/leave=20the=20list,=20search=20archives,
> =20change=20=
> list=20settings,=20*
> >=20>=20*=20etc.,=20please=20visit=20http://raven.utc.edu/arch
> ives/hp3000-=
> l.html=20*
> >=20>
> >=20
> >=20*=20To=20join/leave=20the=20list,=20search=20archives,=20c
> hange=20list=
> =20settings,=20*
> >=20*=20etc.,=20please=20visit=20http://raven.utc.edu/archives
> /hp3000-l.ht=
> ml=20*
> >=20
>
> *=20To=20join/leave=20the=20list,=20search=20archives,=20chang
> e=20list=20s=
> ettings,=20*
> *=20etc.,=20please=20visit=20http://raven.utc.edu/archives/hp3
> 000-l.html=20=
> *
>
> ______________________________________________________________________
> This=20email=20has=20been=20scanned=20by=20the=20MessageLabs=2
> 0Email=20Sec=
> urity=20System.
> For=20more=20information=20please=20visit=20http://www.message
> labs.com/ema=
> il
> ______________________________________________________________________
>
>
>
>
> The=20contents=20of=20this=20email=20are=20confidential=20to=2
> 0the=20inten=
> ded=20recipient
> and=20may=20not=20be=20disclosed.=20Although=20it=20is=20belie
> ved=20that=20=
> this=20email=20and
> any=20attachments=20are=20virus=20free,=20it=20is=20the=20resp
> onsibility=20=
> of=20the=20recipient=20to=20confirm=20this.
>
> Smith=20&=20Williamson=20Corporate=20Finance=20Limited=20-=20A
> =20member=20=
> of=20M&A
> International=20Inc.=20http://www.mergers.net=20Registered=20i
> n=20England=20=
> No.
> 4533970.=20Authorised=20and=20regulated=20by=20the=20Financial
> =20Services=20=
> Authority=20
> Smith=20&=20Williamson=20Investment=20Management=20Limited,=20
> Registered=20=
> No.=20976145.=20Authorised=20and=20regulated=20by=20the=20Fina
> ncial=20Serv=
> ices=20Authority.
> Smith=20&=20Williamson=20Pension=20Consultancy=20Limited=20-=2
> 0Independent=
>
> Intermediary.=20Registered=20No.=203133226.=20Authorised=20and
> =20regulated=
> =20by=20the
> Financial=20Services=20Authority.
> Smith=20&=20Williamson=20Fund=20Administration=20Limited,=20Re
> gistered=20N=
> o.=201934644.=20Authorised=20and=20regulated=20by=20the=20Fina
> ncial=20Serv=
> ices=20Authority.
> Smith=20&=20Williamson=20Limited=20-=20A=20member=20of=20Nexia
> =20Internati=
> onal.
> Registered=20in=20England=20No.=204534022.=20Regulated=20by=20
> the=20Instit=
> ute=20of
> Chartered=20Accountants=20in=20England=20&=20Wales=20for=20a=2
> 0range=20of=20=
> investment
> business=20activities.
>
> Registered=20Office:=20No=201=20Riding=20House=20Street,=20Lon
> don=20W1A=20=
> 3AS
> Telephone:=20020=207637=205377=20http://www.smith.williamson.co.uk
>
> Nexia=20Audit=20Limited=20-=20A=20member=20of=20Nexia=20Intern
> ational.=20R=
> egistered=20in
> England=20No.=204469576.=20Registered=20to=20carry=20on=20audi
> t=20work=20a=
> nd=20regulated=20by=20the=20Institute=20of=20Chartered=20Accou
> ntants=20in=20=
> England=20&=20Wales=20for=20a=20range=20of=20investment=20busi
> ness=20activ=
> ities.
>
> Registered=20Office:=20No=201=20Riding=20House=20Street,=20Lon
> don=20W1A=20=
> 3AS
> Telephone:=20020=207637=205377=20http://www.nexiaaudit.co.uk
>
> NCL=20Investments=20Limited,=20Registered=20No.=201913794.
> Member=20of=20the=20London=20Stock=20Exchange=20authorised=20a
> nd=20regulat=
> ed=20by=20the=20Financial=20Services=20Authority.
>
> Registered=20Office:=20Bartlett=20House,=209-12=20Basinghall=2
> 0Street,=20L=
> ondon=20=20EC2V=205NS
> Telephone:=20020=207600=202801=20
>
>
> ______________________________________________________________________
> This=20email=20has=20been=20scanned=20by=20the=20MessageLabs=2
> 0Email=20Sec=
> urity=20System.
> For=20more=20information=20please=20visit=20http://www.message
> labs.com/ema=
> il=20
> ______________________________________________________________________
>
> * 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 *
|
