sergeyken
Senior Member
Joined: 29 Apr 2008 Posts: 2022 Location: USA
|
|
|
|
Code: |
//SORTGRP EXEC PGM=ICETOOL
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//REPORT DD SYSOUT=*
//*
//SORTIN DD *
DELETE USER008 AAAAAAAAA
DELETE USER001 BBBBBBBBB
DELETE USER007 CCCCCCCC
DEFINE USER001 DDDDDDDD
- GARBAGE GARBAGE GARBAGE
---NAME JOHN
- GARBAGE GARBAGE GARBAGE
---DEPT ABC
EEEEEEEEEEEEEEEEEEEEEEEEE
- GARBAGE GARBAGE GARBAGE
LIST USER111
---TO BE OR NOT TO BE?
LIST USER001
---ALL
DELETE USER009 FFFFFFFFFFFF
//*
//*--------------------------------------------------------------------
//TOOLIN DD *
COPY FROM(SORTIN) TO(LIST) USING(S001)
COPY JKFROM TO(SORTOUT) USING(S002)
//*
//*--------------------------------------------------------------------
//S001CNTL DD *
INREC IFTHEN=(WHEN=(1,8,SS,EQ,L(C'DELETE ',C'DEFINE ',C'LIST ')),
PARSE=(%=(ENDBEFR=BLANKS),
%1=(STARTAT=NONBLANK,
ENDBEFR=BLANKS,
FIXLEN=9)),
BUILD=(%1,5X,1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(9X,5X,1,80))
*
SORT FIELDS=COPY
*
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,8,CH,NE,C' '),
PUSH=(1:1,8,
10:ID=2,SEQ=2))
*
OUTFIL FNAMES=(FULL,FULL@),
INCLUDE=(1,8,CH,EQ,C'USER001',
AND,(14,15,SS,EQ,C' ---',
OR,12,2,ZD,EQ,+1))
*
OUTFIL FNAMES=(SELECT,SELECT@),
INCLUDE=(1,8,CH,EQ,C'USER001',
AND,14,15,SS,EQ,C' ---'),
REMOVECC,NODETAIL,
SECTIONS=(1,11,
TRAILER3=(1,13))
*
//*
//*--------------------------------------------------------------------
//S002CNTL DD *
JOINKEYS F1=FULL,
FIELDS=(1,11,A)
JOINKEYS F2=SELECT,
FIELDS=(1,11,A)
REFORMAT FIELDS=(F1:15,80)
//*
//*--------------------------------------------------------------------
//LIST DD SYSOUT=*
//FULL@ DD SYSOUT=*
//FULL DD DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(TRK,(5,5)),
// DSN=&&FULL
//SELECT@ DD SYSOUT=*
//SELECT DD DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(TRK,(5,5)),
// DSN=&&SELECT
//*
//SORTOUT DD SYSOUT=*
//* |
Code: |
********************************* TOP OF DATA ********
DEFINE USER001 DDDDDDDD
---NAME JOHN
---DEPT ABC
LIST USER001
---ALL
******************************** BOTTOM OF DATA ****** |
|
|