Sentence repetition......

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
pepejcl
Member
Posts: 12
Joined: Mon Feb 09, 2009 2:11 pm
Location: Madrid, SPAIN

Sentence repetition......

Post by pepejcl » Mon Feb 09, 2009 2:39 pm

Hello everyone,

I'm making an outrec sentence and at the end of the record i'm leaving space for a 15 elements table with the next structure:

PackedA PD 7
PackedB PD 7
StringC A2
PackedD PD 11

and my outrec looks like this.....

OPTION COPY
OUTREC FIELDS=(1,23,31X,C'0',37,12,86X,130,207,342,24,24,7,
32,3,588,4,4X,601,5,607,5,614,1,1X,
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',
2X'0000000C',2X,X'00000000000C',

2X'000000000C',21X)


As you can see there is a horrible :) 15 times line repetition...my question is if there is any form to do the same with only 1 line :D

Thank you very much in advance....

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Mon Feb 09, 2009 9:08 pm

Here's a DFSORT OUTREC statement that will do what you asked for:

Code: Select all

  OUTREC FIELDS=(1,23,31X,C'0',37,12,86X,130,207,342,24,24,7,    
  32,3,588,4,4X,601,5,607,5,614,1,1X,                            
  15X'0000000C0000000C404000000000000C',                         
  2X'000000000C',21X)                                            
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

pepejcl
Member
Posts: 12
Joined: Mon Feb 09, 2009 2:11 pm
Location: Madrid, SPAIN

Post by pepejcl » Tue Feb 10, 2009 2:13 pm

Thank you very much Frank...my lack of skill...i didn't realize to change the blank character for its hex value....i owe you a beer !...

Greetings

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