MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to combine multiple records into one?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
tcgplayer
Beginner


Joined: 06 Jun 2006
Posts: 5
Topics: 1
PostPosted: Tue Jan 30, 2007 7:05 am    Post subject: How to combine multiple records into one? Reply with quote
topic pls. thx! Confused
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
PostPosted: Tue Jan 30, 2007 7:33 am    Post subject: Reply with quote
possibly, if you elaborate (what do your records look like, how can the group be identified, etc...) you might receive a specific answer.

If this is a "generic" question, the probably, the SPLICE option of INREC or OUTREC (DFSORT- ICETOOL) could be employed
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Tue Jan 30, 2007 11:42 am    Post subject: Reply with quote
Quote:
the SPLICE option of INREC or OUTREC (DFSORT- ICETOOL)


To clarify: SPLICE is a DFSORT/ICETOOL operator. INREC and OUTREC are DFSORT statements. So there's no "SPLICE option of INREC or OUTREC".

Quote:
How to combine multiple records into one?


The "Join fields from two files on a key" or "Join fields from two files record-by-record" Smart DFSORT Tricks at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

might be what you're looking for. If not, show an example of the records in each input file and the expected output records and give the RECFM and LRECL of the input files.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tcgplayer
Beginner


Joined: 06 Jun 2006
Posts: 5
Topics: 1
PostPosted: Wed Jan 31, 2007 6:55 am    Post subject: Reply with quote
i mean for example:

sysin dd *
abc
def
ghi
jkl

i want to combine lets say 2nd (def) and last (jkl) record to produce one record (defjkl). the output file may contain the combined record w/ the original records or only the combined record. any solution close to this will be very much appreciated Wink
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12381
Topics: 75
Location: San Jose
PostPosted: Wed Jan 31, 2007 8:49 am    Post subject: Reply with quote
The following DFSORT/ICETOOL examples shows you how to merge the multiple records into a single record.

Code:

//*********************************************************************
//*  THIS SORT STEP WILL COMBINE EVERY 2 RECORDS AS 1 LONG RECORD    **
//*  THE LRECL WILL BE DOUBLED IF THE ORIGINAL LRECL IS 80 THEN      **
//*  OUTPUT LRECL IS 160 (EVERY EVEN RECORD PLACED SIDE BY SIDE TO   **
//*  AN ODD RECORD).                                                 **
//*********************************************************************
//STEP0100 EXEC PGM=ICETOOL                                           
//TOOLMSG   DD SYSOUT=*                                               
//DFSMSG    DD SYSOUT=*                                               
//IN        DD *                                                       
REC01                                                                 
REC02                                                                 
REC03                                                                 
REC04                                                                 
REC05                                                                 
REC06                                                                 
REC07                                                                 
REC08                                                                 
REC09                                                                 
//OUT       DD SYSOUT=*                                               
//TOOLIN    DD *                                                       
  SPLICE FROM(IN) TO(OUT) WITHEACH -                                   
      ON(161,8,CH)                 -                                   
    WITH(081,80)                   -                                   
  KEEPNODUPS USING(CTL1)                                               
//CTL1CNTL     DD *                                                       
  INREC IFTHEN=(WHEN=INIT,                                             
       OVERLAY=(001:01,80,                                             
                081:01,80,                                             
                161:SEQNUM,8,ZD,START=2,INCR=1,                       
                169:161,8,ZD,MOD,+2,TO=ZD,LENGTH=1),HIT=NEXT),         
                                                                       
        IFTHEN=(WHEN=(169,1,ZD,EQ,0),                                 
       OVERLAY=(081:80X,                                               
                161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),             
                                                                       
        IFTHEN=(WHEN=(169,1,ZD,EQ,1),                                 
       OVERLAY=(001:80X,                                               
                161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8))               
                                                                       
   OUTFIL FNAMES=OUT,                                                 
   OUTREC=(001,160)                                                   
/*                                                                     
//*********************************************************************
//*  THIS SORT STEP WILL COMBINE EVERY 3 RECORDS AS 1 LONG RECORD    **
//*  THE LRECL WILL BE TRIPPLE IF THE ORIGINAL LRECL IS 80 THEN      **
//*  OUTPUT LRECL IS 240                                             **
//*********************************************************************
//STEP0200 EXEC PGM=ICETOOL                                           
//TOOLMSG   DD SYSOUT=*                                               
//DFSMSG    DD SYSOUT=*                                               
//IN        DD *                                                       
REC01                                                                 
REC02                                                                 
REC03                                                                 
REC04                                                                 
REC05                                                                 
REC06                                                                 
REC07                                                                 
REC08                                                                 
REC09                                                                 
//OUT       DD SYSOUT=*                                               
//TOOLIN       DD *                                                       
  SPLICE FROM(IN) TO(OUT) WITHEACH -                                   
      ON(241,8,CH)                 -                                   
    WITH(081,80)                   -                                   
    WITH(161,80)                   -                                   
  KEEPNODUPS USING(CTL1)                                               
//CTL1CNTL  DD *                                                       
  INREC IFTHEN=(WHEN=INIT,                                             
       OVERLAY=(001:01,80,                                             
                081:01,80,                                             
                161:01,80,                                             
                241:SEQNUM,8,ZD,START=3,INCR=1,                       
                249:241,8,ZD,MOD,+3,TO=ZD,LENGTH=1),HIT=NEXT),         
                                                                       
        IFTHEN=(WHEN=(249,1,ZD,EQ,0),                                 
       OVERLAY=(081:160X)),                                           
                                                                       
        IFTHEN=(WHEN=(249,1,ZD,EQ,1),                                 
       OVERLAY=(001:80X,                                               
                161:80X,                                               
                241:241,8,ZD,SUB,249,1,ZD,M11,LENGTH=8)),             
                                                                       
        IFTHEN=(WHEN=(249,1,ZD,EQ,2),                                 
       OVERLAY=(001:160X,                                             
                241:241,8,ZD,SUB,249,1,ZD,M11,LENGTH=8))               
                                                                       
   OUTFIL FNAMES=OUT,                                                 
   OUTREC=(001,240)                                                   
/*                                                                     
//*********************************************************************
//*  THIS SORT STEP WILL COMBINE EVERY 4 RECORDS AS 1 LONG RECORD    **
//*  THE LRECL WILL BE QUADRA  IF THE ORIGINAL LRECL IS 80 THEN      **
//*  OUTPUT LRECL IS 320                                             **
//*********************************************************************
//STEP0300 EXEC PGM=ICETOOL                                           
//TOOLMSG   DD SYSOUT=*                                               
//DFSMSG    DD SYSOUT=*                                               
//IN        DD *                                                       
REC01                                                                 
REC02                                                                 
REC03                                                                 
REC04                                                                 
REC05                                                                 
REC06                                                                 
REC07                                                                 
REC08                                                                 
REC09                                                                 
REC10                                                                 
REC11                                                                 
REC12                                                                 
//OUT       DD SYSOUT=*                                               
//TOOLIN    DD *                                                       
  SPLICE FROM(IN) TO(OUT) WITHEACH -                                   
      ON(321,8,CH)                 -                                   
    WITH(081,80)                   -                                   
    WITH(161,80)                   -                                   
    WITH(241,80)                   -                                   
  KEEPNODUPS USING(CTL1)                                               
//CTL1CNTL     DD *                                             
  INREC IFTHEN=(WHEN=INIT,                                   
       OVERLAY=(001:01,80,                                   
                081:01,80,                                   
                161:01,80,                                   
                241:01,80,                                   
                321:SEQNUM,8,ZD,START=4,INCR=1,               
                329:321,8,ZD,MOD,+4,TO=ZD,LENGTH=1),HIT=NEXT),
                                                             
        IFTHEN=(WHEN=(329,1,ZD,EQ,0),                         
       OVERLAY=(081:240X)),                                   
                                                             
        IFTHEN=(WHEN=(329,1,ZD,EQ,1),                         
       OVERLAY=(001:080X,                                     
                161:160X,                                     
                321:321,8,ZD,SUB,329,1,ZD,M11,LENGTH=8)),     
                                                             
        IFTHEN=(WHEN=(329,1,ZD,EQ,2),                         
       OVERLAY=(001:160X,                                     
                241:080X,                                     
                321:321,8,ZD,SUB,329,1,ZD,M11,LENGTH=8)),     
                                                             
        IFTHEN=(WHEN=(329,1,ZD,EQ,3),                         
       OVERLAY=(001:240X,                                     
                321:321,8,ZD,SUB,329,1,ZD,M11,LENGTH=8))     
                                                             
   OUTFIL FNAMES=OUT,                                         
   OUTREC=(001,320)                                           
/*                                                           


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
PostPosted: Wed Jan 31, 2007 10:03 am    Post subject: Reply with quote
thx for the clarification, Frank
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
tcgplayer
Beginner


Joined: 06 Jun 2006
Posts: 5
Topics: 1
PostPosted: Thu Feb 01, 2007 7:47 am    Post subject: Reply with quote
thx! it really helps a lot! Razz
Back to top
View user's profile Send private message
dragone_007
Beginner


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Fri Mar 21, 2008 9:44 am    Post subject: Icetool Combine Help syntax ! Reply with quote
Hello,

I tryed the first part of the sample you posted on site for the Input made like:
Code:

//ICET00L0 EXEC PGM=ICETOOL
//*                       
//TOOLMSG  DD SYSOUT=*     
//DFSMSG   DD SYSOUT=*     
//INSTDEF  DD SYSOUT=*     
//SYSOUT   DD SYSOUT=*     
//IN       DD *           
REC01                     
REC02                     
REC03                     
REC04                     
REC05                     
REC06                     
REC07                     
REC08                     
REC09                     
//OUT       DD SYSOUT=*   
//TOOLIN    DD *                                               
  SPLICE FROM(IN) TO(OUT) WITHEACH ON(161,8,CH) -             
      WITH(081,80) KEEPNODUPS USING(CTL1)                     
//CTL1CNTL  DD *                                               
  INREC IFTHEN=(WHEN=INIT,                                     
        OVERLAY=(001:01,80,                                   
                 081:01,80,                                   
                 161:SEQNUM,8,ZD,START=2,INCR=1,               
                 169:161,8,ZD,MOD,+2,TO=ZD,LENGTH=1),HIT=NEXT),
                                                               
        IFTHEN=(WHEN=(169,1,ZD,EQ,0),                         
        OVERLAY=(081:80X,                                     
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),     
                                                               
        IFTHEN=(WHEN=(169,1,ZD,EQ,1),                         
        OVERLAY=(001:80X,                                     
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8))     
                                                               
     OUTFIL FNAMES=OUT,                                       
     OUTREC=(001,160)                                         
/*

And the result was unfortunately not as required by the main topic. SYSOUT gives the following:
Code:

------------------
REC01
     
REC03
     
REC05
     
REC07
     
REC09
------------------

without combining records as desired. May i have done anything wrong ? Thanks in advance


Denis
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12381
Topics: 75
Location: San Jose
PostPosted: Fri Mar 21, 2008 10:15 am    Post subject: Reply with quote
dragone_007,

You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use INREC with SPLICE. Show us the TOOLMSG and DFSMSG messages and I can tell if you have PTF installed or not.

Thanks
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
dragone_007
Beginner


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Fri Mar 21, 2008 10:31 am    Post subject: Reply with quote
Here is what i got from the execution :

TOOLMSG :
Code:

********************************* TOP OF DATA **********************
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED                                   
                                                                               
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES A
                                                                               
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                               
                                                                               
                                                                               
ICE630I 0 MODE IN EFFECT:  STOP                                                 
                                                                               
            SPLICE FROM(IN) TO(OUT) WITHEACH ON(161,8,CH) -                     
                WITH(081,80) KEEPNODUPS USING(CTL1)                             
ICE606I 0 DFSORT CALL 0001 FOR SORT FROM IN       TO OUT      USING CTL1CNTL COM
ICE628I 0 RECORD COUNT:  000000000000009                                       
ICE638I 0 NUMBER OF RECORDS RESULTING FROM CRITERIA:  000000000000009           
ICE602I 0 OPERATION RETURN CODE:  00                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  00                   
******************************** BOTTOM OF DATA ********************

DFSMSG :

*********************************
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                           
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                             
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 15:20 ON FRI
            INREC IFTHEN=(WHEN=INIT,                                         
                  OVERLAY=(001:01,80,                                       
                           081:01,80,                                       
                           161:SEQNUM,8,ZD,START=2,INCR=1,                   
                           169:161,8,ZD,MOD,+2,TO=ZD,LENGTH=1),HIT=NEXT),   
                                                                             
                  IFTHEN=(WHEN=(169,1,ZD,EQ,0),                             
                  OVERLAY=(081:80X,                                         
                           161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),         
                                                                             
                  IFTHEN=(WHEN=(169,1,ZD,EQ,1),                             
                  OVERLAY=(001:80X,                                         
                           161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8))
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12381
Topics: 75
Location: San Jose
PostPosted: Fri Mar 21, 2008 10:46 am    Post subject: Reply with quote
dragone_007,

You have shown only partial messages. The one I am interested is ICE201I message

If you have the latest PTF you will find an E after the ICE201I message
Quote:

ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1


if you see a message like this , then you don't have the latest PTF

Code:

ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1


If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

mean while here is a 2 pass solution which will give you the desired results

Code:

//STEP0100 EXEC PGM=ICETOOL                               
//TOOLMSG  DD SYSOUT=*                                     
//DFSMSG   DD SYSOUT=*                                     
//IN       DD *                                           
REC01                                                     
REC02                                                     
REC03                                                     
REC04                                                     
REC05                                                     
REC06                                                     
REC07                                                     
REC08                                                     
REC09                                                     
//T1        DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT       DD SYSOUT=*                                   
//TOOLIN    DD *                                           
  COPY FROM(IN) TO(T1) USING(CTL1)                         
  SPLICE FROM(T1) TO(OUT) WITHEACH ON(161,8,CH) -         
      WITH(081,80) KEEPNODUPS USING(CTL2)                 
//CTL1CNTL  DD *                                           
  INREC IFTHEN=(WHEN=INIT,                                 
        OVERLAY=(001:01,80,                               
                 081:01,80,                               
                 161:SEQNUM,8,ZD,START=2,INCR=1,           
                 169:161,8,ZD,MOD,+2,TO=ZD,LENGTH=1)),     
                                                           
        IFTHEN=(WHEN=(169,1,ZD,EQ,0),                     
        OVERLAY=(081:80X,                                 
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),
                                                           
        IFTHEN=(WHEN=(169,1,ZD,EQ,1),                     
        OVERLAY=(001:80X,                                 
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)) 
                                                           
     OUTFIL FNAMES=T1                                     
//CTL2CNTL  DD *                                           
     OUTFIL FNAMES=OUT,                                   
     OUTREC=(001,160)                                     
/*


Hope this helps...
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
dragone_007
Beginner


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Fri Mar 21, 2008 11:04 am    Post subject: Reply with quote
Hi,

I tryed even the second sample but gives me RETURN-CODE = 16 :

TOOLMSG :
Code:

********************************* TOP OF DATA ********************************
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED                                 
                                                                             
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES
                                                                             
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                             
                                                                             
                                                                             
ICE630I 0 MODE IN EFFECT:  STOP                                               
                                                                             
            COPY FROM(IN) TO(T1) USING(CTL1)                                 
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN       TO T1       USING CTL1CNTL T
ICE602I 0 OPERATION RETURN CODE:  16                                         
                                                                             
ICE630I 2 MODE IN EFFECT:  SCAN                                               
                                                                             
            SPLICE FROM(T1) TO(OUT) WITHEACH ON(161,8,CH) -                   
                WITH(081,80) KEEPNODUPS USING(CTL2)                           
ICE612I 0 NO ERRORS FOUND IN STATEMENT                                       
                                                                             
                                                                             
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                 
******************************** BOTTOM OF DATA ******************************

DFSMSG :
********************************* TOP OF DATA **********************************
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 16:53 ON FRI MAR
            INREC IFTHEN=(WHEN=INIT,                                           
                       OVERLAY=(001:01,80,081:01,80,                           
                                161:SEQNUM,8,ZD,START=2,INCR=1,                 
                  IFTHEN=(WHEN=(169,1,ZD,EQ,0),                                 
                  $                                                             
ICE007A E SYNTAX ERROR                                                         
                       OVERLAY=(081:80X,                                       
                       $                                                       
ICE005A 0 STATEMENT DEFINER ERROR                                               
                                161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),       
                                $                                               
ICE007A 0 SYNTAX ERROR                                                         
                  IFTHEN=(WHEN=(169,1,ZD,EQ,1),                                 
                  $                                                             
ICE005A 0 STATEMENT DEFINER ERROR                                               
                       OVERLAY=(001:80X,                                       
                       $                                                       
ICE005A 0 STATEMENT DEFINER ERROR                                               
                                161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8))       
                                $                                               
ICE007A 0 SYNTAX ERROR                                                         
                  OUTFIL FNAMES=T1                                             
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,SO
                         TOUT=T1,DYNALLOC                                       
          SORT FIELDS=COPY                                                     
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E7-K90000                     
ICE052I 3 END OF DFSORT                                                         


If the version of ICETOOL installed is an old one, and I'ts not possible to do it, well thanks a lot for your time.


Denis
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12381
Topics: 75
Location: San Jose
PostPosted: Fri Mar 21, 2008 11:10 am    Post subject: Reply with quote
dragone_007,

You did not copy the control cards properly. Your CTL1CNTL control cards are off. You coded an extra IFTHEN

Your CTL2CNTL should be as follows

Code:

/CTL1CNTL  DD *                                           
  INREC IFTHEN=(WHEN=INIT,                                 
        OVERLAY=(001:01,80,                               
                 081:01,80,                               
                 161:SEQNUM,8,ZD,START=2,INCR=1,           
                 169:161,8,ZD,MOD,+2,TO=ZD,LENGTH=1)),     
                                                           
        IFTHEN=(WHEN=(169,1,ZD,EQ,0),                     
        OVERLAY=(081:80X,                                 
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8)),
                                                           
        IFTHEN=(WHEN=(169,1,ZD,EQ,1),                     
        OVERLAY=(001:80X,                                 
                 161:161,8,ZD,SUB,169,1,ZD,M11,LENGTH=8))
                                                           
     OUTFIL FNAMES=T1                                     



and CTL2CNTL should be as follows
Code:

//CTL2CNTL  DD *                                           
     OUTFIL FNAMES=OUT,                                   
     OUTREC=(001,160)                                     
/*

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
dragone_007
Beginner


Joined: 18 Mar 2008
Posts: 24
Topics: 6
PostPosted: Fri Mar 21, 2008 11:58 am    Post subject: Reply with quote
Thank you very much, I wish you a happy easter. It helped me a lot


Denis
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group