HP3000-L Archives

November 2001, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
AndrewHP3000L <[log in to unmask]>
Reply To:
Date:
Thu, 15 Nov 2001 09:42:14 -0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (68 lines)
Hi

Try the following.

!JOB ...........
!PURGE TSGROVER.SRC
!BUILD TSGROVER.SRC.DEV;REC=-80,,F,ASCII;DISC=10000
!FILE XXGROVER=TSGROVER.SRC;ACC=APPEND
!IF FINFO("YYY","EXISTS")
!FCOPY FROM=TESTF.CPL.DEV;TO=*XXGROVER
!FCOPY FROM=GROVER1.SRC.DEV;TO=*XXGROVER
!ELSE
!FCOPY FROM=GROVER2.SRC.DEV;TO=*XXGROVER
!FCOPY FROM=GROVER3.SRC.DEV;TO=*XXGROVER
!ENDIF
!CONTINUE
!EOJ

Andrew

> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
> Behalf Of Jay Chandru
> Sent: 15 November 2001 09:07
> To: [log in to unmask]
> Subject: [HP3000-L] Help in Job Control
>
>
> Hi All,
> I have a issue and it goes like this.
> (1)
> I want to check if a file exists, then execute a set of FCOPY commands and
> if it does not exist, execute another set of FCOPY commands. I want to
> achieve this in a single job. If i can, pls let me know.
>
> (2)
> Can i do substringing in a Job? If yes can u provide me an example.
>
> Scenario:
> !PURGE TSGROVER.SRC
> !BUILD TSGROVER.SRC.DEV;REC=-80,,F,ASCII;DISC=10000
> !FILE XXGROVER=TSGROVER.SRC;ACC=APPEND
> !IF YYY file exists
> !FCOPY FROM=TESTF.CPL.DEV;TO=*XXGROVER
> !FCOPY FROM=GROVER1.SRC.DEV;TO=*XXGROVER
> !ELSE
> !FCOPY FROM=GROVER2.SRC.DEV;TO=*XXGROVER
> !FCOPY FROM=GROVER3.SRC.DEV;TO=*XXGROVER
> !ENDIF
> !CONTINUE
> !EOJ
>
> Here if yyy file exists then input to tsgrover should be testf and grover1
> if not then input file should be grover2 and grover3.
>
> Thanks for your help
> Sathish
>
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
> * 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 *

ATOM RSS1 RSS2