Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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;
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
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
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
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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.
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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.
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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.
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
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.
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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 #
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
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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...
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
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.
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
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.
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
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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.....
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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...
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
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.
Joined: 23 Apr 2007 Posts: 50 Location: Jefferson City, Mo
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.
***************************** 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))
The error follows
SYT000I SYNCTOOL RELEASE 1.5A - COPYRIGHT 2004 SYNCSORT INC.
SYT001I INITIAL PROCESSING MODE IS "STOP"
SYT002I "TOOLIN" INTERFACE BEING USED
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
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.