Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 78
Location: anada

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: 4650
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: 78
Location: anada

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 Compare yesterday's date to the one o... migusd SYNCSORT 4 Fri Sep 22, 2017 11:35 pm
No new posts Create procedure issues -628 when add... chandraBE DB2 1 Mon Sep 18, 2017 12:16 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
No new posts Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us