Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

SOC7 when using INREC IFTHEN WHEN OVERLAY to clear field

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Dennis1SOIL

New User


Joined: 30 Jun 2009
Posts: 15
Location: Missouri, USA

PostPosted: Thu Feb 25, 2010 4:52 am    Post subject: SOC7 when using INREC IFTHEN WHEN OVERLAY to clear field
Reply with quote

Looks like I'm missing something important about selectively clearing out one field based on the content of another field (on the incoming side - so the sort will work with the changed field's value).

Generically - Here's what I want to do:
-- Make the contents of field "A" all spaces only for records which have a given code value in another field "B".
-- Then use that sometimes spaced-out field as one of the "ON" fields in a situation where I am using VALCNT - so all record occurrences with the spaced-out amount are counted as records having other (non-changed) values would be.

Unfortunately I'm running into a S0C7, so I'm almost certain I don't understand something correctly after sifting through several manuals/help books (I think a key concept has just gone by me).

Now for the specifics ....

Here's the JCL/code I submitted:

Code:
//DEVDLWIT JOB (ACCT),'SUMMARY COUNTS',MSGLEVEL=(1,1),MSGCLASS=X,
//             CLASS=A,NOTIFY=DEVDLW
//* CURRENTLY RESEARCHING HOW TO TELL ICETOOL TO SPACE OUT
//*  RL-1ST-16-BYTES-DISPLAY' WHEN RL-DATA-OR-POINTERS-ONLY-CD = 'D'
//ICET@ALL EXEC PGM=ICETOOL,REGION=1024K
//SUPCRECL  DD DISP=SHR,DSN=TCR.R760.CV016.SUPCRECL
//*-SYMNAMES  DD DISP=SHR,DSN=TCR.R770D.ASGJCL(RECL@SYM)
//SYMNAMES  DD *
RL-PROGRAM-NAME,1,8,CH
RL-VERB-NAME,10,2,CH
RL-RECORD-NAME,13,16,CH
RL-SET-NAME-IF-CONNECT-DISC,30,16,CH
RL-USERID,87,8,CH
RL-DATA-OR-POINTERS-ONLY-CD,153,1,CH
//TOOLIN    DD *
 OCCUR FROM(SUPCRECL) LIST(RECL@CNT) BLANK -
         TITLE('SUMMARY FROM //SUPCRECL') DATE(MDY.) -
         HEADER('USERID') -
         HEADER('RECORD-NAME') -
         HEADER('PROGRAM-NAME') -
         HEADER('VERB-NAME') -
         HEADER('D/P') -
         HEADER('SET-NAME-WHEN-PTRS-ONLY') -
         HEADER('TIMES') -
 ON(RL-USERID) -
 ON(RL-RECORD-NAME) -
 ON(RL-PROGRAM-NAME) -
 ON(RL-VERB-NAME) -
 ON(RL-DATA-OR-POINTERS-ONLY-CD) -
 ON(RL-SET-NAME-IF-CONNECT-DISC) -
 ON(VALCNT,N10)
/*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTCNTL DD *
 INREC IFTHEN=(WHEN=(RL-DATA-OR-POINTERS-ONLY-CD,EQ,C'D'),
   OVERLAY=(RL-SET-NAME-IF-CONNECT-DISC:C'                '))
*  OVERLAY=(40:40,16,C'                '))
/
//RECL@CNT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*


Here's some of the output of the job:

Code:
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED

ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN

ICE270I 1 PROCESSING SYMNAMES STATEMENTS

ICE281I 0 ORIGINAL OPERATOR STATEMENTS FOLLOW
           OCCUR FROM(SUPCRECL) LIST(RECL@CNT) BLANK -
                   TITLE('SUMMARY FROM //SUPCRECL') DATE(MDY.) -
                   HEADER('USERID') -
                   HEADER('RECORD-NAME') -
                   HEADER('PROGRAM-NAME') -
                   HEADER('VERB-NAME') -
                   HEADER('D/P') -
                   HEADER('SET-NAME-WHEN-PTRS-ONLY') -
                   HEADER('TIMES') -
           ON(RL-USERID) -
           ON(RL-RECORD-NAME) -
           ON(RL-PROGRAM-NAME) -
           ON(RL-VERB-NAME) -
           ON(RL-DATA-OR-POINTERS-ONLY-CD) -
           ON(RL-SET-NAME-IF-CONNECT-DISC) -
           ON(VALCNT,N10)

ICE282I 1 PERFORMING SYMBOL SUBSTITUTION AS NEEDED

ICE630I 0 MODE IN EFFECT:  STOP

          OCCUR FROM(SUPCRECL) LIST(RECL@CNT) BLANK-
          TITLE('SUMMARY FROM //SUPCRECL') DATE(MDY.)-
          HEADER('USERID')-
          HEADER('RECORD-NAME')-
          HEADER('PROGRAM-NAME')-
          HEADER('VERB-NAME')-
          HEADER('D/P')-
          HEADER('SET-NAME-WHEN-PTRS-ONLY')-
          HEADER('TIMES')-
          ON(87,8,CH)-
          ON(13,16,CH)-
          ON(1,8,CH)-
          ON(10,2,CH)-
          ON(153,1,CH)-
          ON(30,16,CH)-
          ON(VALCNT,N10)
ICE643I 0 WIDTH OF REPORT IS 0121 BYTES
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE280I 1 ORIGINAL STATEMENTS FROM SORTCNTL FOLLOW
           INREC IFTHEN=(WHEN=(RL-DATA-OR-POINTERS-ONLY-CD,EQ,C'D'),
             OVERLAY=(RL-SET-NAME-IF-CONNECT-DISC:C'                '))
          *  OVERLAY=(40:40,16,C'                '))
          /
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SUPCRECL,DYNALLOC,*
                         SZERO,LOCALE=NONE,NOCHECK
          INREC FIELDS=(1,4,87,8,13,16,1,8,10,2,153,1,30,16,7Z,X'1C')
          SUM FIELDS=(0056,8,PD)
          SORT FIELDS=(0005,8,CH,A,0013,16,CH,A,0029,8,CH,A,0037,2,CH,A,0039,1,CH*
                         ,A,0040,16,CH,A)
          MODS E35=(ICE35DU,12288)
          RECORD LENGTH=(,,0063)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 15:16 ON WED FEB 24, 2010 -
           INREC IFTHEN=(WHEN=(153,1,CH,EQ,C'D'),OVERLAY=(30:C'                ')*
                         )
          /
ICE146I 0 END OF STATEMENTS FROM SORTCNTL - PARAMETER LIST STATEMENTS FOLLOW
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SUPCRECL,DYNALLOC,*
                         SZERO,LOCALE=NONE,NOCHECK
           INREC FIELDS=(1,4,87,8,13,16,1,8,10,2,153,1,30,16,7Z,X'1C')
           SUM FIELDS=(0056,8,PD)
           SORT FIELDS=(0005,8,CH,A,0013,16,CH,A,0029,8,CH,A,0037,2,CH,A,0039,1,C*
                         H,A,0040,16,CH,A)
          MODS E35=(ICE35DU,12288)
          RECORD LENGTH=(,,0063)
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K24705 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE   E5-K24705 E7-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 1 DEVDLWIT.ICET@ALL.        , INPUT LRECL = 300, BLKSIZE = 27900, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6250480,6234096)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SUPCRECL
ICE750I 0 DC 83700 TC 0 CS DSVNN KSZ 51 VSZ 51
ICE752I 0 FSZ=279 RC  IGN=0 E  AVG=300 0  WSP=109 C  DYN=0 0
ICE751I 2 DE-K24705 D5-K24705 DA-K24705
ICE185A 0 AN S0C7  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE S 1)


Some additional info:

Code:
SYSTEM COMPLETION CODE=0C7  REASON CODE=00000000
 TIME=15.16.57  SEQ=02611  CPU=0000  ASID=002B
 PSW AT TIME OF ERROR  078D2000   8000BDA2  ILC 6  INTC 07
   NO ACTIVE MODULE FOUND
   NAME=UNKNOWN
   DATA AT PSW  0000BD9C - FA77F010  20000718  D2071000
   AR/GR 0: 8BA84FDE/000000D1   1: 00000000/0C219BC7
         2: 00000000/0C219CFB   3: 00000000/0C211398
         4: 00000000/0C650BD8   5: 00000000/00000033
         6: 00000000/000000CE   7: 00000000/00000000
         8: 00000000/0000BD88   9: 00000000/04704E40
         A: 00000000/84704650   B: 00000000/847A8028
         C: 00000000/04703E40   D: 00000000/0000F000
         E: 00000000/84705D10   F: 00000002/0000BD50
 END OF SYMPTOM DUMP
IEF237I JES2 ALLOCATED TO SORTSNAP
IEF472I DEVDLWIT ICET@ALL - COMPLETION CODE - SYSTEM=0C7 USER=0000 REASON=0000BD50


Any illumination will be received with appreciative gladness!

Thanks in advance,

-Dennis
Back to top
View user's profile Send private message

Dennis1SOIL

New User


Joined: 30 Jun 2009
Posts: 15
Location: Missouri, USA

PostPosted: Thu Feb 25, 2010 5:03 am    Post subject: Reply to: SOC7 when using INREC IFTHEN WHEN OVERLAY to clear
Reply with quote

Oops - I just realized I forgot to include samples of the input record occurrences:
Sort of like "header lines" at top of the file: (leftwise)

Code:
 BROWSE    TCR.R760.CV016.SUPCRECL                                                                        Line 00000000 Col 001 132
 Command ===>                                                                                                      Scroll ===> CSR
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3-
*********************************************************** Top of Data ***********************************************************
PROGRAM ~VE~RECORD-NAME     ~1ST-16-DISPLAYBL~1ST-16-BYTES-IN-HEXADECIMAL     ~T~CHGD~ USERID ~RUN-UNIT-#~PAGE-NUMBR:LINE~R~JRNL-SE
NAME    ~RB~                ~OR-SET-IF-CONECT~.1.2.3.4.5.6.7.8.9.0.1.2.3.4.5.6~Y~OFST~(W/EXIT)~          ~FROM-DBKEY:INDX~3~(INTERN
--------~--~----------------~----------------~--------------------------------~-~----~--------~----------~----------:----~-~-------



Leftwise columns (of somewhat representative lines down into file):


Code:

 BROWSE    TCR.R760.CV016.SUPCRECL                                                                        Line 00004844 Col 001 13
 Command ===>                                                                                                      Scroll ===> CSR
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3
DBOLLOGN~MO~JOB             ~2025FINANCIAL AN~F2F0F2F5C6C9D5C1D5C3C9C1D340C1D5~T~0265~DEVDLW  ~0000006180~0000075159:0003~N~000016
DBOLLOGN~MO~EMPOSITION      ~1979050520080317~F1F9F7F9F0F5F0F5F2F0F0F8F0F3F1F7~F~0001~DEVDLW  ~0000006180~0000075007:0003~N~000016
DBOLLOGN~MO~EMPOSITION      ~2008031800000000~F2F0F0F8F0F3F1F8F0F0F0F0F0F0F0F0~T~0001~DEVDLW  ~0000006180~0000075007:0003~N~000016
DBOLLOGN~CO~EMPOSITION      ~JOB-EMPOSITION  ~SEE_OWNER_DBKEY_OF_CHNGD_SET    ~C~0000~DEVDLW  ~0000006180~0000075007:0003~N~000016
DBOLLOGN~EA~EMPOSITION      ~1980020300000000~F1F9F8F0F0F2F0F3F0F0F0F0F0F0F0F0~F~0000~DEVDLW  ~0000006180~0000075050:0007~N~000016
DBOLLOGN~EA~EMPOSITION      ~1977020319800202~F1F9F7F7F0F2F0F3F1F9F8F0F0F2F0F2~F~0000~DEVDLW  ~0000006180~0000075050:0006~N~000016
DBOLLOGN~EA~EMPOSITION      ~1975020319770202~F1F9F7F5F0F2F0F3F1F9F7F7F0F2F0F2~F~0000~DEVDLW  ~0000006180~0000075050:0005~N~000016
DBOLLOGN~EA~JOB             ~5021RAINMAKER   ~F5F0F2F1D9C1C9D5D4C1D2C5D9404040~F~0000~DEVDLW  ~0000006180~0000075159:0005~N~000016
DBOLLOGN~ST~JOB             ~5021WEATHER-GUES~F5F0F2F1E6C5C1E3C8C5D960C7E4C5E2~T~0000~DEVDLW  ~0000006180~0000075159:0005~N~000016
IDMSBCF ~MO~EMPLOYEE        ~5090.2010Stephen~F5F0F9F000F2F0F1F0E2A38597888595~F~0030~DEVBER  ~0000006239~0000077040:0002~N~000016


==============================================

"headers" - rightwise :

Code:
 BROWSE    TCR.R760.CV016.SUPCRECL                                                                        Line 00000000 Col 133 264
 Command ===>                                                                                                      Scroll ===> CSR
--+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6---
*********************************************************** Top of Data ***********************************************************
NC~V_VIASET-OWN-DBK~D~C_CH-SET-OWN-DBK~T~TIME  ~SECS-B~TASKNAME~PAGE~DML-V~UPD-DATE~TERMINAL~C~NEW-CHANGED-DBK~ORIG-CHNGD-DBKY~DDNA
L)~T_WHN-VIA-RECORD~P~T_OR-SEGMENT>102~G~HHMMSS~MMMMMM~OR-JOBNM~GRUP~UPDTE~CCYYMMDD~(W/EXIT)~P~OR-DA-17-31-DIS~OR-DA-17-23-HEX~4-RE
--~----------------~-~----------------~-~------~------~--------~----~-----~--------~--------~-~---------------~---------------~----


Columns more to the right for same lines as above (down into file) :

Code:
 BROWSE    TCR.R760.CV016.SUPCRECL                                                                        Line 00004844 Col 133 264
 Command ===>                                                                                                      Scroll ===> CSR
--+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6---
98~                ~D~ EMPDEMO        ~Y~194450~132200~DBOLMENU~0000~00007~20080317~DEVDLW  ~ ~ALYST   ADVISES~C1D3E8E2E34040 ~ORGD
00~O0000075007:0001~D~ EMPDEMO        ~Y~194450~132200~DBOLMENU~0000~00008~20080317~DEVDLW  ~ ~44..&...@......~F4F4005750000C ~EMPD
00~O0000075007:0001~D~ EMPDEMO        ~Y~194450~132200~DBOLMENU~0000~00008~20080317~DEVDLW  ~ ~47..&...@......~F4F7005750000C ~EMPD
06~O0000075007:0001~P~O0000075159:0003~Y~194450~132200~DBOLMENU~0000~00009~20080317~DEVDLW  ~N~0000075047:0002~0000075047:0002~EMPD
07~O0000075050:0004~D~ EMPDEMO        ~Y~194450~132200~DBOLMENU~0000~00010~20080317~DEVDLW  ~ ~53..&...@......~F5F3005450000C ~EMPD
18~O0000075050:0004~D~ EMPDEMO        ~Y~194450~141800~DBOLMENU~0000~00010~20080317~DEVDLW  ~ ~52......@......~F5F2004500000C ~EMPD
28~O0000075050:0004~D~ EMPDEMO        ~Y~194450~141800~DBOLMENU~0000~00010~20080317~DEVDLW  ~ ~52......@......~F5F2003900000C ~EMPD
34~                ~D~ EMPDEMO        ~Y~194450~141800~DBOLMENU~0000~00010~20080317~DEVDLW  ~ ~        BRINGS ~40404040404040 ~ORGD
55~                ~D~ EMPDEMO        ~Y~194654~758500~DBOLMENU~0000~00011~20080317~DEVDLW  ~ ~SER     TRIES T~E2C5D940404040 ~ORGD
37~                ~D~ SQLDEMO        ~Y~121251~245400~        ~0000~00001~20080402~        ~ ~             Wi~40404040404040 ~EMPL
37~                ~D~ SQLDEMO        ~Y~121251~245400~        ~0000~00001~20080402~        ~ ~             CH~40404040404040 ~EMPL




Maybe that will help out some (hopefully it wont muddy the water too much):

-Dennis
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Feb 25, 2010 5:41 am    Post subject:
Reply with quote

Dennis1SOIL,

You are overriding the DFSORT statements passed by ICETOOL for OCCURS operator which is NOT recommended.

From the documentation

You must NOT supply your own DFSORT MODS, INREC, OUTREC, SUM, or RECORD statement, because they override the DFSORT statements passed by ICETOOL for this operator.


http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA40/6.10

If you want to modify the records then use a COPY statement before using the occurs operator as shown below
Code:

//DEVDLWIT JOB (ACCT),'SUMMARY COUNTS',MSGLEVEL=(1,1),MSGCLASS=X,
//             CLASS=A,NOTIFY=DEVDLW
//* CURRENTLY RESEARCHING HOW TO TELL ICETOOL TO SPACE OUT
//*  RL-1ST-16-BYTES-DISPLAY' WHEN RL-DATA-OR-POINTERS-ONLY-CD = 'D'
//ICET@ALL EXEC PGM=ICETOOL,REGION=1024K
//SUPCRECL  DD DISP=SHR,DSN=TCR.R760.CV016.SUPCRECL
//TEMP      DD DSN=&&TEMP,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//*-SYMNAMES  DD DISP=SHR,DSN=TCR.R770D.ASGJCL(RECL@SYM)
//SYMNAMES  DD *
RL-PROGRAM-NAME,1,8,CH
RL-VERB-NAME,10,2,CH
RL-RECORD-NAME,13,16,CH
RL-SET-NAME-IF-CONNECT-DISC,30,16,CH
RL-USERID,87,8,CH
RL-DATA-OR-POINTERS-ONLY-CD,153,1,CH
//TOOLIN    DD *
 COPY FROM(SUPCRECL) TO(TEMP) USING(CTL1)
 OCCUR FROM(TEMP) LIST(RECL@CNT) BLANK -
         TITLE('SUMMARY FROM //SUPCRECL') DATE(MDY.) -
         HEADER('USERID') -
         HEADER('RECORD-NAME') -
         HEADER('PROGRAM-NAME') -
         HEADER('VERB-NAME') -
         HEADER('D/P') -
         HEADER('SET-NAME-WHEN-PTRS-ONLY') -
         HEADER('TIMES') -
 ON(RL-USERID) -
 ON(RL-RECORD-NAME) -
 ON(RL-PROGRAM-NAME) -
 ON(RL-VERB-NAME) -
 ON(RL-DATA-OR-POINTERS-ONLY-CD) -
 ON(RL-SET-NAME-IF-CONNECT-DISC) -
 ON(VALCNT,N10)
/*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//CTL1CNTL DD *
 INREC IFTHEN=(WHEN=(RL-DATA-OR-POINTERS-ONLY-CD,EQ,C'D'),
   OVERLAY=(RL-SET-NAME-IF-CONNECT-DISC:C'                '))
*  OVERLAY=(40:40,16,C'                '))
/
//RECL@CNT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*
//*
Back to top
View user's profile Send private message
Dennis1SOIL

New User


Joined: 30 Jun 2009
Posts: 15
Location: Missouri, USA

PostPosted: Thu Feb 25, 2010 7:10 am    Post subject: Thanks Skolusu - Changes yeild desired final result, but ...
Reply with quote

Thanks Skolusu,

Yes, I made the changes you mentioned and it does give me the report I want!

However, (pesky me) -- By doing the COPY first, I think I'm basically going around one of the main reasons I want to use a SORT related utility (i.e. rather than maybe writing some exit code in a customized program).

This input file (and another similar to it) has the potential of containing many millions of record occurrences. I was thinking I could take advantage of the expertise you guys on the SORT team have shown - as SORT does such a good job of dealing with big file processing. My line of thought is like this: I think the INREC can shrink down the size of each record occurrence going into the SORT, so instead of 300 (or more) bytes, each record might be less than 60 or so (given that only the fields for the report need be going into the sort). So maybe an INREC statement could provide a way to get around the need to make another full size copy of the file (i.e. //TEMP file)?

The nice thing I've been hoping to achieve by using the OCCURS with ICETOOL is the ease in producing quick reports - along with being able to have all break type of sort fields appear on the same report line (rather than what I think I would get by default if I were to use something like SUM FIELDS= and BTITLE breaks - without using ICETOOL).

I'll try to get some time tomorrow to be more clear - but at this point before calling it a day I mainly just wanted to say thanks for your help so far!

(I suspect there is a relatively easy way - I'm probably just somehow overlooking it now - to end up both replacing the contents of a field based on the content of another field AND passing SORT much smaller records (i.e. only the fields used in the report) -- while still being able to come up with a relatively simple report to show counts of the number of records occurrences which contining the unique field values at each breakpoint in the sort <take breath here> ...and avoid the need writing and reading a temp file sized as big as the main input file. )

-Dennis
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Feb 25, 2010 11:46 pm    Post subject:
Reply with quote

Dennis1SOIL,

You can do reporting using regular SORT in one pass using OUTFIL reporting features and you have to do all the formatting and headers all by your self where as ICETOOL DISPLAY/OCCURS operators makes it easier.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts INREC PARSING and dictionary items migusd SYNCSORT 6 Fri Jun 02, 2017 8:02 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us