Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Connect Direct :- Adding file ext without modifying script.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
nartcr

New User


Joined: 06 Jun 2007
Posts: 73
Location: Chicago

PostPosted: Fri Nov 13, 2009 3:59 pm    Post subject: Connect Direct :- Adding file ext without modifying script.
Reply with quote

Hi all -

I am transferring files from Mainframe to Unix system.

This is the mainframe control card parameters :-
Code:

   SUBMIT PROC=NDMPARM  -                         
          NEWNAME=ZAAAAAAA -                       
          &JOBNAME=ZAAAAAAA -                       
          &DSNIN=EEEE.FFFF.GGGG.HHHH.G0055V00 - 
           &DSNOUT=CAR.MARUTI.997. -               
          &PARTID=CAR  -                         
          &DTYPE=MARUTI      -                       
          &DFORMAT=997     -                       
          &IO=OUT          -                       
          &UNWRAPLEN=80    -                       
          &UNWRAPCHAR=NULL -                       
          &DATE=%SUBDATE   -                       
          &TIME=%SUBTIME


Here is the Process

Code:

NDMPARM PROCESS   PNODE=PNODENAME          -                             
                   SNODE=SNODENAME                                     
STEP1  COPY   FROM(DSN=&DSNIN -                                       
                    DISP=SHR -                                       
                    PNODE    )   -                                   
                    COMPRESS(PRIME=X'40') -                           
              TO (DSN=&DSNOUT  -                                     
                   DISP=shr    -                                     
                    SNODE      -                                     
                     SYSOPTS=":datatype=text: :strip.blanks=no:" )   
STEP2    IF   (STEP1 EQ 0)  THEN                                     
STEP3    SYMBOL &FNAME=&DSNOUT || &DATE || &TIME                     
           EIF                                                       
STEP4    IF   (STEP1 EQ 0)  THEN                                     
         RUN TASK (PGM=UNIX)  -                                       
             SNODE -                                                 
  SYSOPTS=\"Mainframe2ECG.ksh &PARTID &DTYPE  &DFORMAT  \ || -       
           \&DSNOUT &UNWRAPLEN &UNWRAPCHAR FALSE FALSE OUT &FNAME"\   
           EIF                                                       

Now whenever I submit the job, the value in FNAME [ at present it would be DSNOUT.DATETIME - for ex "CAR.MARUTI.997.20090101123026" ] gets send to Unix using Connect Direct.


Question :- Without modifying the Process -- I need to send the file with '.pgp' extension added to it.
The file should be DSNOUT.DATETIME.PGP [ "CAR.MARUTI.997.20090101123026.PGP" ]

I tried modifying the parameters like this

&TIME=%SUBTIME || '.PGP' << This threw me an error - I am not sure how to add .PGP extension without modifying the Process.
Any help - much appreciated.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Sat Nov 14, 2009 3:05 am    Post subject: Reply to: Connect Direct :- Adding file ext without modifyin
Reply with quote

I can't see that there's any other way. Sorry.
Back to top
View user's profile Send private message
nartcr

New User


Joined: 06 Jun 2007
Posts: 73
Location: Chicago

PostPosted: Tue Nov 17, 2009 12:30 am    Post subject:
Reply with quote

I settled in modifying the process ! Thanks.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us