Other Mainframe Topics :: RE: Connect Direct :- Adding file ext without modifying script. - personalized t shirts new - Top

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