IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Syncsort - Modifying a report. Line break logic


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Wed Jun 25, 2008 8:34 pm
Reply with quote

I know the topic sounds simple however when dealing with state programs nothing is ever simple. The report process here writes the detail lines to a GDG and then uses a sort member to place the headings and position the detail as pasted below;
Code:

 SORT FIELDS=(1,8,CH,A)                               
 OUTFIL HEADER2=(1:'GMBM9700-R001',                   
         46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',
        121:'PAGE',                                   
        126:&PAGE,/,                                 
          1:'AS OF ',                                 
          7:&DATE,                                   
         46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS
        114:'RUN DATE',                               
        124:&DATE,//,                                 
          1:'DCN',                                   
         11:'SSN',                                   
         23:'NAME',                                   
         64:'DOD',                                   
         77:'ORIG ICN',                               
         93:'ADJ ICN',                               
        108:'FDOS',                                   
        121:'LDOS',////),                             
 OUTREC=(01:01,08,              * DCN                 
                11:09,09,              * PARTIP SSN     
                23:18,12,              * PARTIP FNAME   
                38:30,01,              * PARTIP MID INTL
                41:31,19,              * PARTIP LNAME   
                64:50,10,              * DATE OF DEATH   
                77:60,13,              * ADJICN         
                93:73,13,              * ICN             
                108:86,10,              * FDOS           
                121:96,10,              * LDOS           
                132:C' ',/)   


Simple enough the report comes out as pasted I can't fit all the columns here but you get the idea The headings aren't lining up in the post so just imagine it....

.GMBM9700-R001 MEDICAID MANAGEMENT
.AS OF 06/09/08 ADJUSTED CLAIMS FOR

.DCN SSN NAME DOD

.00012352 496541967 ELSIE A CHOTT 03/26/2008

I need to add provider number 9 bytes and provider name 20 bytes but there isn't room the current detail is from end to end on the 105 byte GDG. My thought was to do as follows but I am not sure how to accompish it. Write the provider number and name as a seperate detail line on the gdg which is simple enough in the cobol program. then add to the sort member so the report does as below that line breaks when DCN changes. Is this possible?

.GMBM9700-R001 MEDICAID MANAGEMENT
.AS OF 06/09/08 ADJUSTED CLAIMS FOR

PROVIDER PROVIDER NAME
010135408 ST JOHNS REGIONAL

.DCN SSN NAME DOD

.00012352 496541967 ELSIE A CHOTT 03/26/2008

PROVIDER PROVIDER NAME
580155109 MADISON MEDICAL CENT

.DCN SSN NAME DOD

.00148363 431725019 MAXINE C STEVERSON 03/19/2008
.00148363 431725019 MAXINE C STEVERSON 03/19/2008

The input gdg would look like this of course not the full 105 byte records but the fields that are showing in the example

010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008

Sorry I had to make it so long.....
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Wed Jun 25, 2008 11:47 pm
Reply with quote

Anyone... Anyone?
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Thu Jun 26, 2008 2:13 am
Reply with quote

ScottUrban,

I really have no idea as to what the requirement is. Show me the input cobol layout and output cobol layout and may be we can help you.

1. What is the LRECL and RECFM of the input and output files
2. Show us a sample of input and desired output
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Thu Jun 26, 2008 7:46 pm
Reply with quote

I did show you in the first post what the desired output is.

I am modifying a report

The file is a normal FB gdg lrecl 105 with all the detail lines for the report.
the sort member puts in the headers and arranges the detail with the outrec.

The requirement is to add two more columns to the report. Provider number 9(9) bytes and provider name X(20) but there is no room on the report. I do not want to increase the size of the file if possible.

The current input fields are
DCN 1-8
SSN 9-17
Name 18-49
DOD 50-59
ADJ ICN 60-72
ICN 73-85
FDOS 86-95
LDOS 96-105

Abbreviated snapshot of the input file currently
----+----1----+----2----+----3----+----4----+----5----+----
********************************* Top of Data *************
00012352496541967ELSIE ACHOTT 03/26/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008

Currenty the report appears like I posted before but the headings didn't line up in my post with the detail lines.... I posted an abbreviated snapshot of the report only the first detail line and the first four fields on that line. Along with the main report heading.

GMBM9700-R001 MEDICAID MANAGEMENT
AS OF 06/09/08 ADJUSTED CLAIMS FOR


DCN--------SSN----------NAME--------------DOD

00012352 496541967 ELSIE A CHOTT 03/26/2008


I want to write the provider number and name to the current file as the first detail line for the first and subsequent DCN the first field in the file that will be the driver. when it changes a new provider number and name will be written before the next DCN. This will be done in my COBOL program. not a problem easy to do....

Example
Abbreviated snapshot of the new input file (detail lines for the report)
----+----1----+----2----+----3----+----4----+----5----+----
********************************* Top of Data *************
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008

Now the above new input still FB lrecl 105 but now with a new detail record of provider number and name will come before the original detail line record. So in the example below, provider number 010135408 belongs with DCN 00012352 and Provider number 580155109 belongs with DCN 00148363

I want to know if it is possible to modify the current sort member from my original post above to handle the new input as a line break. so the report can print like below

GMBM9700-R001 MEDICAID MANAGEMENT
AS OF 06/09/08 ADJUSTED CLAIMS FOR

PROVIDER---PROVIDER NAME <<this is the new header

010135408 ST JOHNS REGIONAL <<This is the new detail

DCN--------SSN----------NAME--------------DOD <<< existing header

00012352 496541967 ELSIE A CHOTT 03/26/2008 <existing detail

PROVIDER---PROVIDER NAME

580155109 MADISON MEDICAL CENT

DCN--------SSN----------NAME----------------------DOD

00148363 431725019 MAXINE C STEVERSON 03/19/2008
00148363 431725019 MAXINE C STEVERSON 03/19/2008
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Fri Jun 27, 2008 2:21 am
Reply with quote

ScottUrban,

Quote:

010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
580155109 SOME HOSPITAL NAME
001111111 details record 02 of patients
001111111 details record 01 of patients
001111111 details record 03 of patients


Is there a way to identify the new header you want? ( bold items in the sample input? if there is a means to identify it then I will show you a way to do it

Kolusu
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Fri Jun 27, 2008 8:26 pm
Reply with quote

The first 9 bytes of the new input record are a unique provider number if that's what you mean. The heading could be PROVIDER # using the # as an abbreviation for number and the pound sign could be the indentifier. I'm not sure If I totally understand what you are looking for.
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Fri Jun 27, 2008 9:13 pm
Reply with quote

ScottUrban,


All I am asking is is there any indicator on the ST JOHNS REGIONAL record which differentiate it from the detail record of it

I was under impression that your input already has a hospital name record and then followed by the detail records for the hospital.

So if we can identify the Hospital name record we can splice that to all detail records and then we can use that as the header

Kolusu
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Sat Jun 28, 2008 12:59 am
Reply with quote

The first detail record will be a unique provider number Pic 9(9) and the name of the provider Pic x(20) not necessarily a hospital but the entity that provided service to the recipient

the provider number is a unique 9 digit number in the first 9 bytes.

The detail records following the provider will contain the recipients information. The DCN is a unique 8 digit number that identifies that record

if that dcn changes then a new provider will be retrieved and written to the file as the start of the next recipients information. So a recipients information on the report would start with their provider# and name and then their info one to many times depending on how many claims they have. I hope I have explained it correctly for you.

010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Jun 28, 2008 2:49 am
Reply with quote

Hello,

You (and now some of us icon_smile.gif ) know a header from a detail from using IEBIBALL (eyeball).

Would it be safe to say that a "header" can be identified as a record having no date (nn/nn/nn) in the record?
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 5:54 pm
Reply with quote

The record I am adding to the original file using my cobol program will only contain the two fields, Provider Number and Provider name. The new record will still be 105 bytes but only contain two fields.

The record(s) the follow it will be the original detail line(s) that go with that provider number and name. I have posted an entire 105 byte detail record and the new record I will be adding.

010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/20084008094065290700816197000003/31/200803/31/2008
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon Jun 30, 2008 8:36 pm
Reply with quote

Hello,

Quote:
The record I am adding to the original file using my cobol program will only contain the two fields, Provider Number and Provider name.
That does not sound like it contains anything to "control" on.

Quote:
The new record will still be 105 bytes but only contain two fields.
To you they are 2 fields. . . With no delimiters and no fixed values, code would not know they were a header or that they were 2 fields.

Dates have the xx/xx/xx format and the '/'s might be "testable" and used as "non-headers". If every non-header has a date, this may be a way to process what you want.
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 8:41 pm
Reply with quote

Ok, So what do you suggest. Should I add a delimitter to the new record so it can be identified? Byte 30-105 would contain nothing on the Provider number and name record. Below I put a % marking byte 30.

010135408ST JOHNS REGIONAL %
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 8:43 pm
Reply with quote

Also, remember the original SYSIN member being used in my original post. I wanted a solution that would just be able to add to that member.
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Mon Jun 30, 2008 10:35 pm
Reply with quote

scotturban,

Assuming that you did put # on the provider record, the following DFSORT JCL will give you the desired results.


Code:

//STEP0100 EXEC PGM=ICETOOL   
//TOOLMSG  DD SYSOUT=*       
//DFSMSG   DD SYSOUT=*       
//IN       DD DSN=Your input 105 byte file,
//            DISP=SHR
//OUT      DD SYSOUT=*                                           
//TOOLIN   DD *                                                   
  SPLICE FROM(IN) TO(OUT) ON(106,8,CH) KEEPNODUPS WITHALL -       
  WITH(1,105) KEEPBASE USING(CTL1)                               
//CTL1CNTL DD *                                                   
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(106:SEQNUM,8,ZD)),             
  IFTHEN=(WHEN=(31,1,CH,EQ,C'#'),OVERLAY=(106:SEQNUM,8,ZD,1,30)),
  IFTHEN=(WHEN=NONE,OVERLAY=(114:SEQNUM,8,ZD,                     
           106:106,8,ZD,SUB,114,8,ZD,M11,LENGTH=8))               
                                                                 
  SORT FIELDS=COPY                                             
  OUTFIL FNAMES=OUT,REMOVECC,                                   
  OMIT=(31,1,CH,EQ,C'#'),                                       
  BUILD=(01:01,08,              * DCN                           
         11:09,09,              * PARTIP SSN                   
         23:18,12,              * PARTIP FNAME                 
         38:30,01,              * PARTIP MID INTL               
         41:31,19,              * PARTIP LNAME                 
         64:50,10,              * DATE OF DEATH                 
         77:60,13,              * ADJICN                       
         93:73,13,              * ICN                           
         108:86,10,              * FDOS                         
         121:96,10,              * LDOS                         
         132:C' ',/),                                           
  SECTIONS=(114,30,                                             
  HEADER3=(1:'PROVIDER ',12:' PROVIDER NAME',/,                 
           1:114,09,12:123,20)),                               
  HEADER2=(1:'GMBM9700-R001',                                   
           46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',         
          121:'PAGE',                                           
          126:&PAGE,/,                                         
            1:'AS OF ',                                         
            7:&DATE,                                           
           46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS',     
          114:'RUN DATE',                                       
          124:&DATE,//,                                         
            1:'DCN',                                           
           11:'SSN',                                           
           23:'NAME',                                           
           64:'DOD',                                           
           77:'ORIG ICN',                                       
           93:'ADJ ICN',                                       
          108:'FDOS',                                           
          121:'LDOS',////)                                     
/*   


I used the sample input as below

Code:

010135408ST JOHNS REGIONAL    #               
00012352496541967ELSIE ACHOTT 03/26/2008       
580155109MADISON MEDICAL CENT #               
00148363431725019MAXINE CSTEVERSON 03/19/2008 
00148363431725019MAXINE CSTEVERSON 03/19/2008 
580155109SOME MEDICAL CENTER  #               
0011111111172503BLAH BLAH                     
0011111111172503BLAH BLAH                     


and this is the output I got after running the job

Code:

GMBM9700-R001                                MEDICAID MANAGEMENT IN
AS OF 06/30/08                               ADJUSTED CLAIMS FOR DE
DCN       SSN         NAME                                     DOD
                                                                   
                                                                   
PROVIDER    PROVIDER NAME                                         
010135408  ST JOHNS REGIONAL                                       
00012352  496541967   ELSIE ACHOTT      03/26/2008                 
                                                                   
PROVIDER    PROVIDER NAME                                         
580155109  MADISON MEDICAL CENT                                   
00148363  431725019   MAXINE CSTEV   E  RSON 03/19/2008           
00148363  431725019   MAXINE CSTEV   E  RSON 03/19/2008           
                                                                   
PROVIDER    PROVIDER NAME                                         
580155109  SOME MEDICAL CENTER                                     
00111111  11172503B   LAH BLAH                                     
00111111  11172503B   LAH BLAH                                     
                                                                   


Hope this helps...

Cheers
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 11:29 pm
Reply with quote

Thank you. It looks good. One thing, I need the DCN SSN NAME DOD header portion to be before the original detail line though.

So the report would be

SARPAGE 1

GMBM9700-R001 MEDICAID MANAGEMENT INFORMA

PROVIDER PROVIDER NAME
010135408 ST JOHNS REGIONAL

DCN SSN NAME DOD

00012352 496541967 ELSIE A CHOTT 03/26/2008

PROVIDER PROVIDER NAME
580155109 MADISON MEDICAL CENT

DCN SSN NAME DOD

00148363 431725019 MAXINE C STEVERSON 03/19/2008
00148363 431725019 MAXINE C STEVERSON 03/19/2008
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 11:30 pm
Reply with quote

Sorry I can't get the text to keep the spaces between the headings aren't lined up properly. I type it with the headings lined up but when I post it they disappear...
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 11:41 pm
Reply with quote

Also, it looks like there were a few hiccups in the second two report lines... Not sure if that happened in the copy and paste..

But the line with BLAH BLAH is missing a B on the first BLAH

And the lines before that have extra spaces in the name steverson and no space after the middle initial... C

MAXINE CSTEV E RSON
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon Jun 30, 2008 11:47 pm
Reply with quote

Hello,

Quote:
I type it with the headings lined up but when I post it they disappear...
I'd suggest you use the "Code" tag (near the top of the Reply panel) and practice with the Preview function.

Using Code preserves alignment - the text editor window does not.

When you have prepared what you want to post, click Preview and you can see your post the same as it will appear on the forum. When you are satisfied, then click Submit.
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Mon Jun 30, 2008 11:52 pm
Reply with quote

ScottUrban,

Quote:

Also, it looks like there were a few hiccups in the second two report lines... Not sure if that happened in the copy and paste..


No I just used your CONTROL cards on the OUTREC where you are creating an empty after every detail record. Looks like you dont need it. I updated the control cards

Quote:

But the line with BLAH BLAH is missing a B on the first BLAH

And the lines before that have extra spaces in the name steverson and no space after the middle initial... C


You are missing the B because your OUTREC statement is looking pos 18 for PARTIP FNAME and my sample data was having BLAH Blah begin at pos 17.

Use the following control cards

Code:

//CTL1CNTL DD *                                                     
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(106:SEQNUM,8,ZD)),               
  IFTHEN=(WHEN=(31,1,CH,EQ,C'#'),OVERLAY=(106:SEQNUM,8,ZD,1,30)),   
  IFTHEN=(WHEN=NONE,OVERLAY=(114:SEQNUM,8,ZD,                       
           106:106,8,ZD,SUB,114,8,ZD,M11,LENGTH=8))                 
                                                                     
  SORT FIELDS=COPY                                                   
  OUTFIL FNAMES=OUT,REMOVECC,                                       
  OMIT=(31,1,CH,EQ,C'#'),                                           
  BUILD=(01:01,08,              * DCN                               
         11:09,09,              * PARTIP SSN                         
         23:18,12,              * PARTIP FNAME                       
         38:30,01,              * PARTIP MID INTL                   
         41:31,19,              * PARTIP LNAME                       
         64:50,10,              * DATE OF DEATH                     
         77:60,13,              * ADJICN                             
         93:73,13,              * ICN                               
         108:86,10,              * FDOS                             
         121:96,10,              * LDOS                             
         132:C' '),                                                 
  SECTIONS=(114,30,                                                 
  HEADER3=(1:'PROVIDER ',12:' PROVIDER NAME',/,                     
           1:114,09,12:123,20,/,                                     
           1:'DCN',                                                 
          11:'SSN',                                                 
          23:'NAME',                                                 
          64:'DOD',                                                 
          77:'ORIG ICN',                                             
          93:'ADJ ICN',                                             
          108:'FDOS',                                               
          121:'LDOS',////)),
  HEADER2=(1:'GMBM9700-R001',                               
           46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',     
          121:'PAGE',                                       
          126:&PAGE,/,                                     
            1:'AS OF ',                                     
            7:&DATE,                                       
           46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS', 
          114:'RUN DATE',                                   
          124:&DATE,//)                                     
/*


This will create the output as follows

Code:

GMBM9700-R001                                MEDICAID MANAGEMENT INFORMATION SYS
AS OF 06/30/08                               ADJUSTED CLAIMS FOR DECEASED PARTIC
                                                                               
PROVIDER    PROVIDER NAME                                                       
010135408  ST JOHNS REGIONAL                                                   
DCN       SSN         NAME                                     DOD          ORIG
                                                                               
                                                                               
00012352  496541967   ELSIE ACHOTT      03/26/2008                             
PROVIDER    PROVIDER NAME                                                       
580155109  MADISON MEDICAL CENT                                                 
DCN       SSN         NAME                                     DOD          ORIG
                                                                               
                                                                               
00148363  431725019   MAXINE CSTEV   E  RSON 03/19/2008                         
00148363  431725019   MAXINE CSTEV   E  RSON 03/19/2008                         
PROVIDER    PROVIDER NAME                                                       
580155109  SOME MEDICAL CENTER                                                 
DCN       SSN         NAME                                     DOD          ORIG
                                                                               
                                                                               
00111111  11172503B   LAH BLAH                                                 
00111111  11172503B   LAH BLAH                                                 


Hope this helps...

Cheers
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Mon Jun 30, 2008 11:57 pm
Reply with quote

Thank you very much for the assistance... I have turned a bunch of my associates on to this website who are all from India. You all are a great resource.....
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Tue Jul 01, 2008 1:11 am
Reply with quote

One other question what caused the extra spaces in the name Steverson
Maxine C Steverson The last name is up against the middle initial and then there are extra spaces in the last name...
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Tue Jul 01, 2008 1:39 am
Reply with quote

ScottUrban,

Please RUN your JOB with your actual Data instead if the test data in here. You reformatting the data on the OUTREC using specific positions. So You are just picking from the input layout.

The OUTREC is NOT coded by me but you coded it , so you should be able answer the question yourself rather than asking me , because I just used your control cards and showed you a way to add the desired header.
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Tue Jul 01, 2008 2:21 am
Reply with quote

kolusu,

Sorry to bother you again.

I need to set these statements up so they are not instream. Using a sysin library. I have created 2 members one named Toolin with the SPLICE statements and one called CTL1 with the CTL1CNTL statements. My JCL is below and I am receiving an error.

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=MMITMMO.BMBR9730.TEST,
// DISP=SHR
//OUT DD SYSOUT=*
//TOOLIN DD DSN=MMITMMO.V612499.MACLIB(TOOLIN),DISP=SHR
//CTL1CNTL DD DSN=MMITMMO.V612499.MACLIB(CTL1),DISP=SHR
//*

CONTENTS OF TOOLIN
statements start in column 5

***************************** Top of Data ***********************
SPLICE FROM(IN) TO(OUT) ON(106,8,CH) KEEPNODUPS WITHALL -
WITH(1,105) KEEPBASE USING(CTL1)
**************************** Bottom of Data *********************

CONTENTS OF CTL1

Statements start in column 5

***************************** Top of Data ******************************
INREC IFTHEN=(WHEN=INIT,OVERLAY=(106:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(31,1,CH,EQ,C'#'),OVERLAY=(106:SEQNUM,8,ZD,1,30)),
IFTHEN=(WHEN=NONE,OVERLAY=(114:SEQNUM,8,ZD,
106:106,8,ZD,SUB,114,8,ZD,M11,LENGTH=8))

SORT FIELDS=COPY
OUTFIL FNAMES=OUT,REMOVECC,
OMIT=(31,1,CH,EQ,C'#'),
BUILD=(01:01,08, * DCN
11:09,09, * PARTIP SSN
23:18,12, * PARTIP FNAME
38:30,01, * PARTIP MID INTL
41:31,19, * PARTIP LNAME
64:50,10, * DATE OF DEATH
77:60,13, * ADJICN
93:73,13, * ICN
108:86,10, * FDOS
121:96,10, * LDOS
132:C' '),
SECTIONS=(114,30,
HEADER3=(1:'PROVIDER ',12:' PROVIDER NAME',/,
1:114,09,12:123,20,/,
1:'DCN',
11:'SSN',
23:'NAME',
64:'DOD',
77:'ORIG ICN',
93:'ADJ ICN',
108:'FDOS',
121:'LDOS',////)),
HEADER2=(1:'GMBM9700-R001',
46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',
121:'PAGE',
126:&PAGE,/,
1:'AS OF ',
7:&DATE,
46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS',
114:'RUN DATE',
124:&DATE,//)

The error follows
SYT000I SYNCTOOL RELEASE 1.5A - COPYRIGHT 2004 SYNCSORT INC.
SYT001I INITIAL PROCESSING MODE IS "STOP"
SYT002I "TOOLIN" INTERFACE BEING USED

SPLICE FROM(IN) TO(OUT) ON(106,8,CH) KEEPNODUPS WITHALL -
WITH(1,105) KEEPBASE USING(CTL1)
SYT050E INVALID OPERAND ON "SPLICE" STATEMENT
SYT030I OPERATION COMPLETED WITH RETURN CODE 12

SYT015I PROCESSING MODE CHANGED FROM "STOP" TO "SCAN" DUE TO OPERATION FAILURE

SYT004I SYNCTOOL PROCESSING COMPLETED WITH RETURN CODE 12
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Tue Jul 01, 2008 2:42 am
Reply with quote

ScottUrban,

From the error messages I see that you are using Syncsort. I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
Back to top
View user's profile Send private message
ScottUrban

New User


Joined: 23 Apr 2007
Posts: 50
Location: Jefferson City, Mo

PostPosted: Tue Jul 01, 2008 5:44 pm
Reply with quote

Just noticed that.. I just started at a new company and I'm am so use to having DFSORT it didn't even occur to me... Thanks for your help anyway.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
No new posts Need help on formatting a report DFSORT/ICETOOL 14
Search our Forums:

Back to Top