I tried to reply to Frank Yeager personally, but my e-mail was
undeliverable.
I missed something.
My code is:
//TOOLIN DD *
SORT FROM(IN) USING(CTL1)
SORT FROM(T1) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
SORT FIELDS=(10,09,CH,A)
OUTFIL FNAMES=T1,REMOVECC,NODETAIL,
SECTIONS=(10,09,
TRAILER3=(11,09,X,COUNT=(M11,LENGTH=8)))
/*
//CTL2CNTL DD *
SORT FIELDS=(22,8,ZD,D)
OUTFIL FNAMES=OUT,ENDREC=1
/*
My input file contains:
----+----1----+----2----+----3----+----4
****************************************
{T{,{W{,{000019553{,{93310{,{000{,{.{,{C
{O{,{W{,{000019553{,{99999{,{000{,{.{,{P
{T{,{1{,{000047613{,{10111{,{000{,{.{,{C
{T{,{1{,{000047613{,{10115{,{000{,{.{,{C
{T{,{1{,{000047613{,{11016{,{000{,{.{,{C
{T{,{1{,{000047613{,{11036{,{000{,{.{,{C
{T{,{1{,{000047613{,{11041{,{000{,{.{,{C
{T{,{1{,{000047613{,{11042{,{000{,{.{,{C
{N{,{1{,{000047613{,{11049{,{000{,{.{,{C
And my output is:
00019553{ 00000002
(Obviously I need to adjust my position) The file is:
General Data Current Allocation
Management class . . : **None** Allocated cylinders : 277
Storage class . . . : **None** Allocated extents . : 5
Volume serial . . . : DBS991
Device type . . . . : 3390
Data class . . . . . : **None** Current Utilization
Organization . . . : PS Used cylinders . . : 277
Record format . . . : FB Used extents . . . : 5
Record length . . . : 153
Block size . . . . : 27846
1st extent cylinders: 100
Secondary cylinders : 50
Data set name type : SMS Compressible : NO
Creation date . . . : 2006/10/18 Referenced date . . :
2006/10/19
Expiration date . . : ***None***
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
