Copy selected records and move to form a single key.

In this Mainframe Forum - You can post your queries on FILE-AID tool

Moderators: Anuj Dhawan, Moderator Group

Post Reply
User avatar
rangab
Active Member
Posts: 56
Joined: Fri Mar 17, 2006 3:21 pm

Copy selected records and move to form a single key.

Post by rangab » Thu Jan 29, 2009 10:19 pm

Hi,

My input data: This is just a sample record only.

Code: Select all

A   CD20   30T
B   CD21   20F
C   CD22   10E
Output:

Code: Select all

ACD2030T
BCD2120F
CCD2210E
I have tried below code but it did not work.

Code: Select all

//SYSIN    DD  *            
$$DD01 COPY IF=(1,EQ,C'A'),
          ORIF=(1,EQ,C'B'),
          ORIF=(1,EQ,C'C'),
            MOVE=(1,1,1),
            MOVE=(2,4,5),
            MOVE=(6,3,12)
/*                          
Thanks.
========
Ranga...:-0)
========
Learn Which You Don't Know - Teach Others Which They Don't Know.

himuengg
Member
Posts: 8
Joined: Tue Apr 27, 2010 11:48 pm

Post by himuengg » Sun Jan 16, 2011 11:55 pm

Hi Anuj,

Please help !!

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others