mfresource - New Yahoo Group for Mainframe Resources

MFRESOURCE is Mainframe Resources Group:

Group useful for Mainframe Materials & Mainframe Jobs.

Mainframe Job Postings in INDIA & US and other Countries.

This Group is Useful for people who are attending Mainframe
interviews and Professionals working in Mainframe Skills
specifically working on the following Skills:

COBOL JCL VSAM CICS,DB2 IMS DB/DC IDMS ADABAS/NATURAL, ENDEVOR, FILE-
AID, XPEDITOR COOLGEN ADABAS EZYTREIVE FOCUS MQSERIES NATURAL REX
SAS TSO DATACOM ADSO IDMS ABENDAID CA7 CHANGEMAN FILEAID INFOMAN
INTERTEST PANAVALET STROBE XMODS XPEDITOR

JOBS MVS,OS/390,Z/OS,S390,OS390,ZOS,JCL,VSAM, COBOL,PL1,CICS

Thanks & Regards,
Group Moderator.

-------------------------------------
K S Consulting Groups, Chennai, India

Hello,

Our company is currently in need of Mainframe professionals to fill in the
following positions below:

POSITION SKILLSET:

Analyst Developer : COBOL, DB2, CICS
Mainframe Developer Merva, Mint, QA, UNIX, Sun Solaris, CICS , VSAM,
DB2, SQL, COBOL, PL1


The project will be based in New Jersey, New York and Manila for
major brokerage firms in the USA. If you are interested, kindly send in
your updated resume or your complete contact details (NAME, TELEPHONE NUMBER
and/or EMAIL ADDRESS) to ffojas@... . Also, you might have relatives
or friends that might be interested as well, please do not hesitate to give
them my email address. I will be forwarding this to our Recruitment Team
and they will give you a call to discuss this further.

I hope to hear from you soon. Thank you very much in advance and more
power!


Best regards,
Maria Felisa Fojas
www.77gsi.com
www.77soft.com

Flexus, a worldwide leader in COBOL application modernization
technology is seeking additional distribution agents in several
countries.

We are specifically interested in seeking qualifies distribution
agents in India, Brazil and select European countries.

Flexus offers a robust and powerful set of modernization tools which
assist COBOL programmers in implementing graphical user interfaces,
Windows printing, mainframe printing emulation, Internet
client/server, web browser user interface, automated e-mail
capabilities and Microsoft Office OLE Automation capabilities from
your COBOL program.

The Flexus COBOL Tools are 100% COBOL compiler independent and
support all popular COBOL compilers as well as multiple operating
systems, including Windows, UNIX and Open VMS.

Flexus offers a very generous discount program for the aggressive
company wishing to expand their software distribution operations as
well as secure new clients with our powerful programming tools.

Please contact Bob Wolfe directly at rtwolfe@....

For more information on the Flexus COBOL Tools, please visit our web
site at http://www.flexus.com.

Thank you.

Hi guys,
          Thanks a looooot for ur valuable suggestions...Ofcourse, i
too thought of using the unstring verb in cobol... Im realy happy to
get such a huge resoponse from you folks.... thanks a lot once again...
          Im working on the task now....I will let u know the details
once i finish this task...

Thanks a lot once again...

    Sankaran R

Hi,
   This will devide the main string into substring
depending on the occurence of delimiter i.e ".".

Example -
  you Main string i.e w-input-rec contain "abc . ijkl.
mn."

Now following command will meke it 3 sting . 1st will
be "abc" as after that one "." exit . Accordingly, it
will generate "ijkl" and "mn" ...

If you have any issue let me know.

Arindam Bhaduri

--- aloy ghosal <aloyghosal@...> wrote:

> Hi,
>
>   What about using Unstring verb with delimiter
> clause like
>
>   Unstring w-input-rec delimited by "." into w-rec1
> w-rec2 w-rec3.
>
>   Thanks,
>
>   Aloy
>
>
> Satyajit Deb <satya_kym@...> wrote:
>     hi
>   AFTER DELIMITER SHOULD BE ";" THIS.
>
> Edwin Clements <eclements@...> wrote:
>   So you are saying that the delimiter between the
> fields will be the period, is that right?  Is that
> going to be consistent in all records?
>
>              Edwin
>
> --- iamsankaran <iamsankaran@...> wrote:
>
> >
> > Hi guys,
> >          I need a cobol program which converts
> > variable length data
> > to fixed length data in a file.
> >
> > Example:
> >
> > Input file( containing data of Variable length ):
> >
> > Id.Name.Salary
> > 01.sdfsfsdfd.34293
> > 1923.reyer.34234234
> > 1441434.sdfksdf.2344
> >
> > Output file( containing data of Fixed length ):
> >
> > Id          Name        salary
> > 01          sdfsfsdfd   34293
> > 1923        reyer       34234234
> > 1441434     sdfksdf     2344
> >
> > Thanks in advance . . .
> >
> > Sankaran
> >
> >
> >
> >
> >
> >
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
>
>
>
>
> ---------------------------------
>   What makes Sachin India's highest paid sports
> celebrity?, Share your knowledge on Yahoo! India
> Answers
> Send instant messages to your online friends - NOW
>
> ---------------------------------
>   YAHOO! GROUPS LINKS
>
>
>     Visit your group "cobolgoldmine" on the web.
>
>     To unsubscribe from this group, send an email
> to:
>  cobolgoldmine-unsubscribe@yahoogroups.com
>
>     Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of Service.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Blab-away for as little as 1¢/min. Make  PC-to-Phone
> Calls using Yahoo! Messenger with Voice.


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

This is very helpful, I'm sure (although I am not the
one who was asking for it).  You should be commended
for making the effort to help your fellow group member
here.

May I make one suggestion, though.  There is a
programming methodology called "structured
programming", and one of the characteristics of it is
that the programs are written without using "go to"
statements.  Everything can be written using perform,
perform until, and/or if statements.  This makes for a
much more organized program and avoids a lot of
potential problems later on.  Some of the biggest
programming messes I have ever seen (and I have been
doing COBOL programming since 1978) were programs
where there was extensive uses of "go to" statements.


I have revised this program to show how it would be
done in this structured form.  I haven't tested it
because I don't have a COBOL compiler available to
test it with, but if anybody finds anything I missed,
please let me know.  Here it is:

  ID DIVISION.
        PROGRAM-ID. NEEDHELP.
        AUTHOR. RICK MONCRIEF.
        DATE-WRITTEN. MAY 13, 2006.
        REMARKS.
            READ FILE WITH FIELDS SEPARATED BY A
DELIMITER.
            CREATE AN OUTPUT FILE WITH FIELDS IN A
FIXED POSITION.

            PROGRAM WAS WRITTEN BASED ON THE GIVEN
PROGRAM SPECS.
            SAMPLE OUTPUT SHOWED HEADER IN OUTPUT FILE.
            OUTPUT FIELDS WERE ALL ALIGNED TO THE LEFT.
            NUMBERS WERE NOT ALIGNED TO THE RIGHT AND
            THERE IS NO PROVISION FOR ASSUMED DECIMAL
POSITIONS.
            NO MENTION OF THE AMOUNT OF SPACE BETWEEN
FIELDS WAS GIVEN.
            BUT THE PROGRAM WAS WRITTEN TO GIVE THE
PROGRAMMER
            GREAT CONTROL OVER THE FORMATTING.
            AS ONLY A SAMPLE WAS GIVEN, THE PROGRAM WAS
WRITTEN TO
            HANDLE FROM 1 TO 40 INPUT FIELDS.
            TO ALLOW FOR MORE FIELDS JUST CHANGE THE
TWO OCCURS CLAUSES.
            IF THE INPUT RECORD EXCEEDS 200 CHARACTERS,
THEN THE
            RECORD SIZE AND THE VALUE OF THE FIELD
"MAX-INPUT-SIZE"
            WOULD NEED TO BE INCREASED TO THE SIZE
NEEDED.
            MISSING VALUES FOR FIELDS SUCH AS 12..1234
ARE HANDLED.
            A BLANK RECORD IS NOT NEEDED TO INDICATE
THE END OF DATA.

            SINCE THERE WAS NO MENTION OF THE SIZE OF
THE FIELDS,
            THE PROGRAM HAD TO MAKE TWO PASSES THRU THE
DATA.
            THE FIRST PASS DETERMINES THE SIZE OF EACH
FIELD.
            AND THE SECOND PASS CREATES THE OUTPUT FILE
BASED
            ON THE FIELD SIZES AND THE DEFAULT
SPACES-BETWEEN-FIELDS.
            THE FIELD "BUILD-FIELD" WAS SET UP FOR A
MAXIMUM FIELD
            SIZE OF 99. IF A FIELD EXCEEDS 99, A
WARNING IS PRODUCED.

            THE FIRST TWO FIELDS IN WORKING-STORAGE ARE
SET UP
            TO BE ABLE TO CHANGE THE DELIMITER AND THE
NUMBER
            OF SPACES BETWEEN FIELDS IN THE OUTPUT
RECORD.
            THE THIRD FIELD IS THE MAX SIZE OF THE
INPUT RECORD.

            THE SELECT STATEMENT VARIES FROM ONE COBOL
TO ANOTHER
            AND MAY REQUIRE THAT YOU CHANGE IT TO
CONFORM TO YOUR
            PARTICULAR COMPILER.
            THIS IS ALL THE HELP I FELT INCLINED TO
GIVE BASED ON
            THE PROGRAM SPECS THAT YOU PROVIDED.
            IF YOU NEED SOME MINOR MODIFICATIONS I WILL
DO THEM
            IF I HAVE THE TIME. WRITING THESE REMARKS
TOOK AS LONG
            AS IT TOOK TO WRITE AND TEST THE PROGRAM.
       /
        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        OBJECT-COMPUTER. IBM-370.
        SPECIAL-NAMES. C01 IS TOP-OF-PAGE.

        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
            SELECT IFILE      ASSIGN TO UT-S-IFILE.
            SELECT OFILE      ASSIGN TO UT-S-OFILE.

        DATA DIVISION.
        FILE SECTION.
        FD  IFILE
            RECORDING MODE IS F,
            RECORD CONTAINS 200 CHARACTERS,
            LABEL RECORDS OMITTED.
        01  I-REC.
            02  I OCCURS 200 TIMES      PIC X.

        FD  OFILE
            RECORDING MODE IS F,
            RECORD CONTAINS 600 CHARACTERS,
            LABEL RECORDS OMITTED.
        01  O-REC.
            02  O OCCURS 600 TIMES      PIC X.
       /
        WORKING-STORAGE SECTION.
        01  WS-DELIMITER                PIC X   VALUE
'.'.
        01  SPACES-BETWEEN-FIELDS       PIC 999 VALUE
4.
        01  MAX-INPUT-SIZE              PIC 9999 VALUE
200.
        01  MISC.
            02  PASS1-READ              PIC 9(7).
            02  PASS2-READ              PIC 9(7).
            02  REC-WRITTEN             PIC 9(7).
            02  CUR-REC-SIZE            PIC 9999.
            02  IX                      PIC 9999.
            02  OX                      PIC 9999.
            02  LAST-POS                PIC 9999.
            02  BFX                     PIC 9999.
            02  FIELD-SIZE              PIC 999.
            02  FIELD-NUM               PIC 999.

        01  BUILD-FIELD.
            02  BF OCCURS 99 TIMES      PIC X.

        01  MAX-FIELD-SIZE-AREA.
            02  MAX-FIELD-SIZE          PIC 999 OCCURS
40 TIMES.

        01  START-POS-AREA.
            02  START-POS               PIC 999 OCCURS
40 TIMES.

        01  ANY-MORE-FIELDS             PIC X.

       **  FOLLOWING 2 FIELDS ADDED
        01  INPUT-EOF                   PIC X.
        01  CONTINUE-GET-LAST-POS       PIC X.

       /  NOTE - SLASH IN COMMENT FIELD WILL MAKE IT
PAGE-EJECT BEFORE PRINTING NEXT LINE.
       *         THE LINE IS STILL A COMMENT LINE, AND
IT MAKES THE PRINTOUT NEATER.
        PROCEDURE DIVISION.
        FIRST-PASS.
            OPEN INPUT IFILE.
            MOVE ZERO TO MAX-FIELD-SIZE-AREA.
            MOVE ZERO TO START-POS-AREA.
            MOVE "N" TO INPUT-EOF.
            PERFORM FP-READ-LOOP
                UNTIL INPUT-EOF = "Y".
            CLOSE IFILE.
            OPEN INPUT IFILE OUTPUT OFILE.
            MOVE "N" TO INPUT-EOF.
            PERFORM SP-READ-LOOP
                UNTIL INPUT-EOF = "Y".
            CLOSE IFILE OFILE.
            DISPLAY PASS1-READ  ' RECORDS READ IN
PASS1'.
            DISPLAY PASS2-READ  ' RECORDS READ IN
PASS2'.
            DISPLAY REC-WRITTEN ' RECORDS WRITTEN'.
            IF PASS1-READ NOT = PASS2-READ
                DISPLAY 'RECORDS READ IN PASS 1 NOT =
PASS2 RECORDS'.
            IF PASS2-READ NOT = REC-WRITTEN
                DISPLAY 'RECORDS READ IN PASS 2 NOT =
RECORDS WRITTEN'.
            STOP RUN.


       /
        FP-READ-LOOP.
            READ IFILE AT END
                MOVE "Y" TO INPUT-EOF.
            IF INPUT-EOF = "N"
               ADD 1 TO PASS1-READ
               MOVE ZERO TO IX
               MOVE ZERO TO FIELD-NUM
               MOVE ZERO TO LAST-POS
               MOVE "Y" TO ANY-MORE-FIELDS
               PERFORM FP-GET-NEXT-FIELD
                      UNTIL ANY-MORE-FIELDS = "N".


        FP-GET-NEXT-FIELD.
            PERFORM GET-NEXT THRU GNX.
            ADD 1 TO FIELD-NUM.
            IF FIELD-SIZE > MAX-FIELD-SIZE (FIELD-NUM)
                MOVE FIELD-SIZE TO MAX-FIELD-SIZE
(FIELD-NUM).
            IF FIELD-NUM > 1
                COMPUTE START-POS (FIELD-NUM) =
LAST-POS +
                SPACES-BETWEEN-FIELDS.
            COMPUTE LAST-POS = START-POS (FIELD-NUM) +
                MAX-FIELD-SIZE (FIELD-NUM).

       /

        SP-READ-LOOP.
            READ IFILE
                  AT END MOVE "Y" TO INPUT-EOF.
            IF INPUT-EOF = "N"
               ADD 1 TO PASS2-READ
               MOVE ZERO TO IX
               MOVE ZERO TO FIELD-NUM
               MOVE SPACES TO O-REC
               MOVE ZERO TO OX
               MOVE "Y" TO ANY-MORE-FIELDS
               PERFORM SP-GET-NEXT-FIELD
                    UNTIL ANY-MORE-FIELDS = "N".


        SP-GET-NEXT-FIELD.
            PERFORM GET-NEXT THRU GNX.
            ADD 1 TO FIELD-NUM.
            MOVE START-POS (FIELD-NUM) TO OX.
            PERFORM MOVE-FIELD-TO-OUTPUT
                VARYING BFX FROM 1 BY 1 UNTIL BFX >
FIELD-SIZE.
            IF ANY-MORE-FIELDS = 'N'
                ADD 1 TO REC-WRITTEN
                WRITE O-REC.


        MOVE-FIELD-TO-OUTPUT.
            ADD 1 TO OX.
            MOVE BF (BFX) TO O (OX).

       /
        GET-NEXT.
            IF IX = ZERO
                MOVE MAX-INPUT-SIZE TO CUR-REC-SIZE
                MOVE "Y" TO CONTINUE-GET-LAST-POS
                PERFORM GET-LAST-POS
                    UNTIL CONTINUE-GET-LAST-POS = "N".
            MOVE SPACES TO BUILD-FIELD.
            MOVE SPACES TO ANY-MORE-FIELDS.
            MOVE ZERO TO FIELD-SIZE.
            MOVE "Y" TO ANY-MORE-FIELDS.
            PERFORM GET-NEXT-LOOP
                    UNTIL ANY-MORE-FIELDS = "N".


        GET-NEXT-LOOP.
            ADD 1 TO IX.
            IF IX > CUR-REC-SIZE
                MOVE 'N' TO ANY-MORE-FIELDS
            ELSE
               IF I (IX) NOT = WS-DELIMITER
                  ADD 1 TO FIELD-SIZE
                  IF FIELD-SIZE > 99
                     DISPLAY 'FIELD SIZE > 99 IN RECORD
DISPLAYED BELOW'
                     DISPLAY I-REC
                  ELSE
                     MOVE I (IX) TO BF (FIELD-SIZE).


        GET-LAST-POS.
            IF I (CUR-REC-SIZE) = SPACES
                SUBTRACT 1 FROM CUR-REC-SIZE
                IF CUR-REC-SIZE = ZERO
                    MOVE "N" TO CONTINUE-GET-LAST-POS.


=======================  ** end **
====================




--- Rick <ventures4us@...> wrote:

> I have written and tested a COBOL program for you.
> I provide the test data and results after the
> program below.
> You can copy and paste the program from this email.
> I hope this helps.
>
>        ID DIVISION.
>        PROGRAM-ID. NEEDHELP.
>        AUTHOR. RICK MONCRIEF.
>        DATE-WRITTEN. MAY 13, 2006.
>        REMARKS.
>            READ FILE WITH FIELDS SEPARATED BY A
> DELIMITER.
>            CREATE AN OUTPUT FILE WITH FIELDS IN A
> FIXED POSITION.
>
>            PROGRAM WAS WRITTEN BASED ON THE GIVEN
> PROGRAM SPECS.
>            SAMPLE OUTPUT SHOWED HEADER IN OUTPUT
> FILE.
>            OUTPUT FIELDS WERE ALL ALIGNED TO THE
> LEFT.
>            NUMBERS WERE NOT ALIGNED TO THE RIGHT AND
>            THERE IS NO PROVISION FOR ASSUMED DECIMAL
> POSITIONS.
>            NO MENTION OF THE AMOUNT OF SPACE BETWEEN
> FIELDS WAS GIVEN.
>            BUT THE PROGRAM WAS WRITTEN TO GIVE THE
> PROGRAMMER
>            GREAT CONTROL OVER THE FORMATTING.
>            AS ONLY A SAMPLE WAS GIVEN, THE PROGRAM
> WAS WRITTEN TO
>            HANDLE FROM 1 TO 40 INPUT FIELDS.
>            TO ALLOW FOR MORE FIELDS JUST CHANGE THE
> TWO OCCURS CLAUSES.
>            IF THE INPUT RECORD EXCEEDS 200
> CHARACTERS, THEN THE
>            RECORD SIZE AND THE VALUE OF THE FIELD
> "MAX-INPUT-SIZE"
>            WOULD NEED TO BE INCREASED TO THE SIZE
> NEEDED.
>            MISSING VALUES FOR FIELDS SUCH AS
> 12..1234 ARE HANDLED.
>            A BLANK RECORD IS NOT NEEDED TO INDICATE
> THE END OF DATA.
>
>            SINCE THERE WAS NO MENTION OF THE SIZE OF
> THE FIELDS,
>            THE PROGRAM HAD TO MAKE TWO PASSES THRU
> THE DATA.
>            THE FIRST PASS DETERMINES THE SIZE OF
> EACH FIELD.
>            AND THE SECOND PASS CREATES THE OUTPUT
> FILE BASED
>            ON THE FIELD SIZES AND THE DEFAULT
> SPACES-BETWEEN-FIELDS.
>            THE FIELD "BUILD-FIELD" WAS SET UP FOR A
> MAXIMUM FIELD
>            SIZE OF 99. IF A FIELD EXCEEDS 99, A
> WARNING IS PRODUCED.
>
>            THE FIRST TWO FIELDS IN WORKING-STORAGE
> ARE SET UP
>            TO BE ABLE TO CHANGE THE DELIMITER AND
> THE NUMBER
>            OF SPACES BETWEEN FIELDS IN THE OUTPUT
> RECORD.
>            THE THIRD FIELD IS THE MAX SIZE OF THE
> INPUT RECORD.
>
>            THE SELECT STATEMENT VARIES FROM ONE
> COBOL TO ANOTHER
>            AND MAY REQUIRE THAT YOU CHANGE IT TO
> CONFORM TO YOUR
>            PARTICULAR COMPILER.
>            THIS IS ALL THE HELP I FELT INCLINED TO
> GIVE BASED ON
>            THE PROGRAM SPECS THAT YOU PROVIDED.
>            IF YOU NEED SOME MINOR MODIFICATIONS I
> WILL DO THEM
>            IF I HAVE THE TIME. WRITING THESE REMARKS
> TOOK AS LONG
>            AS IT TOOK TO WRITE AND TEST THE PROGRAM.
>        ENVIRONMENT DIVISION.
>        CONFIGURATION SECTION.
>        OBJECT-COMPUTER. IBM-370.
>        SPECIAL-NAMES. C01 IS TOP-OF-PAGE.
>        INPUT-OUTPUT SECTION.
>        FILE-CONTROL.
>            SELECT IFILE      ASSIGN TO UT-S-IFILE.
>            SELECT OFILE      ASSIGN TO UT-S-OFILE.
>
>        DATA DIVISION.
>        FILE SECTION.
>        FD  IFILE
>            RECORDING MODE IS F,
>            RECORD CONTAINS 200 CHARACTERS,
>            LABEL RECORDS OMITTED.
>        01  I-REC.
>            02  I OCCURS 200 TIMES      PIC X.
>        FD  OFILE
>            RECORDING MODE IS F,
>            RECORD CONTAINS 600 CHARACTERS,
>            LABEL RECORDS OMITTED.
>        01  O-REC.
>            02  O OCCURS 600 TIMES      PIC X.
>        WORKING-STORAGE SECTION.
>        01  WS-DELIMITER                PIC X   VALUE
> '.'.
>        01  SPACES-BETWEEN-FIELDS       PIC 999 VALUE
> 4.
>        01  MAX-INPUT-SIZE              PIC 9999
> VALUE 200.
>        01  MISC.
>            02  PASS1-READ              PIC 9(7).
>            02  PASS2-READ              PIC 9(7).
>            02  REC-WRITTEN             PIC 9(7).
>            02  CUR-REC-SIZE            PIC 9999.
>            02  IX                      PIC 9999.
>            02  OX                      PIC 9999.
>            02  LAST-POS                PIC 9999.
>            02  BFX                     PIC 9999.
>            02  FIELD-SIZE              PIC 999.
>            02  FIELD-NUM               PIC 999.
>        01  BUILD-FIELD.
>            02  BF OCCURS 99 TIMES      PIC X.
>        01  MAX-FIELD-SIZE-AREA.
>            02  MAX-FIELD-SIZE          PIC 999
> OCCURS 40 TIMES.
>        01  START-POS-AREA.
>            02  START-POS               PIC 999
> OCCURS 40 TIMES.
>        01  ANY-MORE-FIELDS             PIC X.
>        PROCEDURE DIVISION.
>        FIRST-PASS.
>            OPEN INPUT IFILE.
>            MOVE ZERO TO MAX-FIELD-SIZE-AREA.
>            MOVE ZERO TO START-POS-AREA.
>        FP-READ-LOOP.
>            READ IFILE AT END
>                GO TO SECOND-PASS.
>            ADD 1 TO PASS1-READ.
>            MOVE ZERO TO IX.
>            MOVE ZERO TO FIELD-NUM.
>            MOVE ZERO TO LAST-POS.
>        FP-GET-NEXT-FIELD.
>            PERFORM GET-NEXT THRU GNX.
>            ADD 1 TO FIELD-NUM.
>            IF FIELD-SIZE > MAX-FIELD-SIZE
> (FIELD-NUM)
>                MOVE FIELD-SIZE TO MAX-FIELD-SIZE
> (FIELD-NUM).
>            IF FIELD-NUM > 1
>                COMPUTE START-POS (FIELD-NUM) =
> LAST-POS +
>                SPACES-BETWEEN-FIELDS.
>            COMPUTE LAST-POS = START-POS (FIELD-NUM)
> +
>                MAX-FIELD-SIZE (FIELD-NUM).
>            IF ANY-MORE-FIELDS = 'N'
>                GO TO FP-READ-LOOP.
>            GO TO FP-GET-NEXT-FIELD.
>        SECOND-PASS.
>            CLOSE IFILE.
>            OPEN INPUT IFILE OUTPUT OFILE.
>        SP-READ-LOOP.
>            READ IFILE AT END
>                GO TO EOJ.
>            ADD 1 TO PASS2-READ.
>            MOVE ZERO TO IX.
>            MOVE ZERO TO FIELD-NUM.
>            MOVE SPACES TO O-REC.
>            MOVE ZERO TO OX.
>        SP-GET-NEXT-FIELD.
>            PERFORM GET-NEXT THRU GNX.
>            ADD 1 TO FIELD-NUM.
>            MOVE START-POS (FIELD-NUM) TO OX.
>            PERFORM MOVE-FIELD-TO-OUTPUT THRU MFTOX
>                VARYING BFX FROM 1 BY 1 UNTIL BFX >
> FIELD-SIZE.
>            IF ANY-MORE-FIELDS = 'N'
>                ADD 1 TO REC-WRITTEN
>                WRITE O-REC
>                GO TO SP-READ-LOOP.
>            GO TO SP-GET-NEXT-FIELD.
>
>        MOVE-FIELD-TO-OUTPUT.
>            ADD 1 TO OX.
>            MOVE BF (BFX) TO O (OX).
>        MFTOX.
>            EXIT.
>        GET-NEXT.
>            IF IX = ZERO
>                MOVE MAX-INPUT-SIZE TO CUR-REC-SIZE
>                PERFORM GET-LAST-POS THRU GLPX.
>            MOVE SPACES TO BUILD-FIELD.
>            MOVE SPACES TO ANY-MORE-FIELDS.
>            MOVE ZERO TO FIELD-SIZE.
>        GET-NEXT-LOOP.
>            ADD 1 TO IX.
>            IF IX > CUR-REC-SIZE
>
=== message truncated ===


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

That would probably work also.  Check your COBOL
reference manual.

            Edwin



--- aloy ghosal <aloyghosal@...> wrote:

> Hi,
>
>   What about using Unstring verb with delimiter
> clause like
>
>   Unstring w-input-rec delimited by "." into w-rec1
> w-rec2 w-rec3.
>
>   Thanks,
>
>   Aloy
>
>
> Satyajit Deb <satya_kym@...> wrote:
>     hi
>   AFTER DELIMITER SHOULD BE ";" THIS.
>
> Edwin Clements <eclements@...> wrote:
>   So you are saying that the delimiter between the
> fields will be the period, is that right?  Is that
> going to be consistent in all records?
>
>              Edwin
>
> --- iamsankaran <iamsankaran@...> wrote:
>
> >
> > Hi guys,
> >          I need a cobol program which converts
> > variable length data
> > to fixed length data in a file.
> >
> > Example:
> >
> > Input file( containing data of Variable length ):
> >
> > Id.Name.Salary
> > 01.sdfsfsdfd.34293
> > 1923.reyer.34234234
> > 1441434.sdfksdf.2344
> >
> > Output file( containing data of Fixed length ):
> >
> > Id          Name        salary
> > 01          sdfsfsdfd   34293
> > 1923        reyer       34234234
> > 1441434     sdfksdf     2344
> >
> > Thanks in advance . . .
> >
> > Sankaran
> >
> >
> >
> >
> >
> >
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
>
>
>
>
> ---------------------------------
>   What makes Sachin India's highest paid sports
> celebrity?, Share your knowledge on Yahoo! India
> Answers
> Send instant messages to your online friends - NOW
>
> ---------------------------------
>   YAHOO! GROUPS LINKS
>
>
>     Visit your group "cobolgoldmine" on the web.
>
>     To unsubscribe from this group, send an email
> to:
>  cobolgoldmine-unsubscribe@yahoogroups.com
>
>     Your use of Yahoo! Groups is subject to the
> Yahoo! Terms of Service.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Blab-away for as little as 1¢/min. Make  PC-to-Phone
> Calls using Yahoo! Messenger with Voice.


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

UNSTRING FullName DELIMITED BY ALL SPACES INTO FirstName, SecondName, Surname END-UNSTRING. UNSTRING CustAddress DELIMITED BY "," INTO AdrLine(1), AdrLine(2), AdrLine(3), AdrLine(4), AdrLine(5), AdrLine(6) TALLYING IN AdrLinesUsed END-UNSTRING.

Hi,

 

What about using Unstring verb with delimiter clause like

 

Unstring w-input-rec delimited by "." into w-rec1 w-rec2 w-rec3.

 

Thanks,

 

Aloy

Satyajit Deb <satya_kym@...> wrote:

hi

AFTER DELIMITER SHOULD BE ";" THIS.

Edwin Clements <eclements@...> wrote:

So you are saying that the delimiter between the
fields will be the period, is that right?  Is that
going to be consistent in all records? 

             Edwin

--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234  
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234  
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

---

What makes Sachin India's highest paid sports celebrity?, Share your knowledge on Yahoo! India Answers
Send instant messages to your online friends - NOW

---

Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.

I have written and tested a COBOL program for you.
I provide the test data and results after the program below.
You can copy and paste the program from this email.
I hope this helps.

        ID DIVISION.
        PROGRAM-ID. NEEDHELP.
        AUTHOR. RICK MONCRIEF.
        DATE-WRITTEN. MAY 13, 2006.
        REMARKS.
            READ FILE WITH FIELDS SEPARATED BY A DELIMITER.
            CREATE AN OUTPUT FILE WITH FIELDS IN A FIXED POSITION.

            PROGRAM WAS WRITTEN BASED ON THE GIVEN PROGRAM SPECS.
            SAMPLE OUTPUT SHOWED HEADER IN OUTPUT FILE.
            OUTPUT FIELDS WERE ALL ALIGNED TO THE LEFT.
            NUMBERS WERE NOT ALIGNED TO THE RIGHT AND
            THERE IS NO PROVISION FOR ASSUMED DECIMAL POSITIONS.
            NO MENTION OF THE AMOUNT OF SPACE BETWEEN FIELDS WAS GIVEN.
            BUT THE PROGRAM WAS WRITTEN TO GIVE THE PROGRAMMER
            GREAT CONTROL OVER THE FORMATTING.
            AS ONLY A SAMPLE WAS GIVEN, THE PROGRAM WAS WRITTEN TO
            HANDLE FROM 1 TO 40 INPUT FIELDS.
            TO ALLOW FOR MORE FIELDS JUST CHANGE THE TWO OCCURS CLAUSES.
            IF THE INPUT RECORD EXCEEDS 200 CHARACTERS, THEN THE
            RECORD SIZE AND THE VALUE OF THE FIELD "MAX-INPUT-SIZE"
            WOULD NEED TO BE INCREASED TO THE SIZE NEEDED.
            MISSING VALUES FOR FIELDS SUCH AS 12..1234 ARE HANDLED.
            A BLANK RECORD IS NOT NEEDED TO INDICATE THE END OF DATA.

            SINCE THERE WAS NO MENTION OF THE SIZE OF THE FIELDS,
            THE PROGRAM HAD TO MAKE TWO PASSES THRU THE DATA.
            THE FIRST PASS DETERMINES THE SIZE OF EACH FIELD.
            AND THE SECOND PASS CREATES THE OUTPUT FILE BASED
            ON THE FIELD SIZES AND THE DEFAULT SPACES-BETWEEN-FIELDS.
            THE FIELD "BUILD-FIELD" WAS SET UP FOR A MAXIMUM FIELD
            SIZE OF 99. IF A FIELD EXCEEDS 99, A WARNING IS PRODUCED.

            THE FIRST TWO FIELDS IN WORKING-STORAGE ARE SET UP
            TO BE ABLE TO CHANGE THE DELIMITER AND THE NUMBER
            OF SPACES BETWEEN FIELDS IN THE OUTPUT RECORD.
            THE THIRD FIELD IS THE MAX SIZE OF THE INPUT RECORD.

            THE SELECT STATEMENT VARIES FROM ONE COBOL TO ANOTHER
            AND MAY REQUIRE THAT YOU CHANGE IT TO CONFORM TO YOUR
            PARTICULAR COMPILER.
            THIS IS ALL THE HELP I FELT INCLINED TO GIVE BASED ON
            THE PROGRAM SPECS THAT YOU PROVIDED.
            IF YOU NEED SOME MINOR MODIFICATIONS I WILL DO THEM
            IF I HAVE THE TIME. WRITING THESE REMARKS TOOK AS LONG
            AS IT TOOK TO WRITE AND TEST THE PROGRAM.
        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        OBJECT-COMPUTER. IBM-370.
        SPECIAL-NAMES. C01 IS TOP-OF-PAGE.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
            SELECT IFILE      ASSIGN TO UT-S-IFILE.
            SELECT OFILE      ASSIGN TO UT-S-OFILE.

        DATA DIVISION.
        FILE SECTION.
        FD  IFILE
            RECORDING MODE IS F,
            RECORD CONTAINS 200 CHARACTERS,
            LABEL RECORDS OMITTED.
        01  I-REC.
            02  I OCCURS 200 TIMES      PIC X.
        FD  OFILE
            RECORDING MODE IS F,
            RECORD CONTAINS 600 CHARACTERS,
            LABEL RECORDS OMITTED.
        01  O-REC.
            02  O OCCURS 600 TIMES      PIC X.
        WORKING-STORAGE SECTION.
        01  WS-DELIMITER                PIC X   VALUE '.'.
        01  SPACES-BETWEEN-FIELDS       PIC 999 VALUE 4.
        01  MAX-INPUT-SIZE              PIC 9999 VALUE 200.
        01  MISC.
            02  PASS1-READ              PIC 9(7).
            02  PASS2-READ              PIC 9(7).
            02  REC-WRITTEN             PIC 9(7).
            02  CUR-REC-SIZE            PIC 9999.
            02  IX                      PIC 9999.
            02  OX                      PIC 9999.
            02  LAST-POS                PIC 9999.
            02  BFX                     PIC 9999.
            02  FIELD-SIZE              PIC 999.
            02  FIELD-NUM               PIC 999.
        01  BUILD-FIELD.
            02  BF OCCURS 99 TIMES      PIC X.
        01  MAX-FIELD-SIZE-AREA.
            02  MAX-FIELD-SIZE          PIC 999 OCCURS 40 TIMES.
        01  START-POS-AREA.
            02  START-POS               PIC 999 OCCURS 40 TIMES.
        01  ANY-MORE-FIELDS             PIC X.
        PROCEDURE DIVISION.
        FIRST-PASS.
            OPEN INPUT IFILE.
            MOVE ZERO TO MAX-FIELD-SIZE-AREA.
            MOVE ZERO TO START-POS-AREA.
        FP-READ-LOOP.
            READ IFILE AT END
                GO TO SECOND-PASS.
            ADD 1 TO PASS1-READ.
            MOVE ZERO TO IX.
            MOVE ZERO TO FIELD-NUM.
            MOVE ZERO TO LAST-POS.
        FP-GET-NEXT-FIELD.
            PERFORM GET-NEXT THRU GNX.
            ADD 1 TO FIELD-NUM.
            IF FIELD-SIZE > MAX-FIELD-SIZE (FIELD-NUM)
                MOVE FIELD-SIZE TO MAX-FIELD-SIZE (FIELD-NUM).
            IF FIELD-NUM > 1
                COMPUTE START-POS (FIELD-NUM) = LAST-POS +
                SPACES-BETWEEN-FIELDS.
            COMPUTE LAST-POS = START-POS (FIELD-NUM) +
                MAX-FIELD-SIZE (FIELD-NUM).
            IF ANY-MORE-FIELDS = 'N'
                GO TO FP-READ-LOOP.
            GO TO FP-GET-NEXT-FIELD.
        SECOND-PASS.
            CLOSE IFILE.
            OPEN INPUT IFILE OUTPUT OFILE.
        SP-READ-LOOP.
            READ IFILE AT END
                GO TO EOJ.
            ADD 1 TO PASS2-READ.
            MOVE ZERO TO IX.
            MOVE ZERO TO FIELD-NUM.
            MOVE SPACES TO O-REC.
            MOVE ZERO TO OX.
        SP-GET-NEXT-FIELD.
            PERFORM GET-NEXT THRU GNX.
            ADD 1 TO FIELD-NUM.
            MOVE START-POS (FIELD-NUM) TO OX.
            PERFORM MOVE-FIELD-TO-OUTPUT THRU MFTOX
                VARYING BFX FROM 1 BY 1 UNTIL BFX > FIELD-SIZE.
            IF ANY-MORE-FIELDS = 'N'
                ADD 1 TO REC-WRITTEN
                WRITE O-REC
                GO TO SP-READ-LOOP.
            GO TO SP-GET-NEXT-FIELD.

        MOVE-FIELD-TO-OUTPUT.
            ADD 1 TO OX.
            MOVE BF (BFX) TO O (OX).
        MFTOX.
            EXIT.
        GET-NEXT.
            IF IX = ZERO
                MOVE MAX-INPUT-SIZE TO CUR-REC-SIZE
                PERFORM GET-LAST-POS THRU GLPX.
            MOVE SPACES TO BUILD-FIELD.
            MOVE SPACES TO ANY-MORE-FIELDS.
            MOVE ZERO TO FIELD-SIZE.
        GET-NEXT-LOOP.
            ADD 1 TO IX.
            IF IX > CUR-REC-SIZE
                MOVE 'N' TO ANY-MORE-FIELDS
                GO TO GNX.
            IF I (IX) = WS-DELIMITER
                GO TO GNX.
            ADD 1 TO FIELD-SIZE.
            IF FIELD-SIZE > 99
                DISPLAY 'FIELD SIZE > 99 IN RECORD DISPLAYED BELOW'
                DISPLAY I-REC
                GO TO GET-NEXT-LOOP.
            MOVE I (IX) TO BF (FIELD-SIZE).
            GO TO GET-NEXT-LOOP.
        GNX.
            EXIT.

        GET-LAST-POS.
            IF I (CUR-REC-SIZE) = SPACES
                SUBTRACT 1 FROM CUR-REC-SIZE
                IF CUR-REC-SIZE > ZERO
                    GO TO GET-LAST-POS.
        GLPX.
            EXIT.

        EOJ.
            CLOSE IFILE OFILE.
            DISPLAY PASS1-READ  ' RECORDS READ IN PASS1'.
            DISPLAY PASS2-READ  ' RECORDS READ IN PASS2'.
            DISPLAY REC-WRITTEN ' RECORDS WRITTEN'.
            IF PASS1-READ NOT = PASS2-READ
                DISPLAY 'RECORDS READ IN PASS 1 NOT = PASS2 RECORDS'.
            IF PASS2-READ NOT = REC-WRITTEN
                DISPLAY 'RECORDS READ IN PASS 2 NOT = RECORDS WRITTEN'.
            STOP RUN.



***********************test data*************************
Id.Name.Salary
01.sdfsfsdfd.34293
1923.reyer.34234234
1441434.sdfksdf.2344

1..
.1.
..1
1..2
1.2.
.1.2
*******************results******************************
Id         Name         Salary
01         sdfsfsdfd    34293
1923       reyer        34234234
1441434    sdfksdf      2344

1
            1
                         1
1                       2
1          2
            1            2

hi

AFTER DELIMITER SHOULD BE ";" THIS.

Edwin Clements <eclements@...> wrote:

So you are saying that the delimiter between the
fields will be the period, is that right?  Is that
going to be consistent in all records? 

             Edwin

--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234  
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234  
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

---

What makes Sachin India's highest paid sports celebrity?, Share your knowledge on Yahoo! India Answers
Send instant messages to your online friends - NOW

You will need to do this for every record in the input
file.  If the first rec. contains the headings, you
will need to make it skip the first rec. if you don't
want the headings in the output file. 

Let me know if this helps.

              Edwin Clements





--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234  
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234  
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

So you are saying that the delimiter between the
fields will be the period, is that right?  Is that
going to be consistent in all records? 

             Edwin

--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234  
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234  
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Here is a slightly updated version.  I added one line
that will make it stop the first time it hits a blank.

          Edwin



--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

You will need to do this for every record in the input
file.  If the first rec. contains the headings, you
will need to make it skip the first rec. if you don't
want the headings in the output file.

Let me know if this helps.

               Edwin Clements





--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

So you are saying that the delimiter between the
fields will be the period, is that right?  Is that
going to be consistent in all records?

              Edwin

--- iamsankaran <iamsankaran@...> wrote:

>
> Hi guys,
>          I need a cobol program which converts
> variable length data
> to fixed length data in a file.
>
> Example:
>
> Input file( containing data of Variable length ):
>
> Id.Name.Salary
> 01.sdfsfsdfd.34293
> 1923.reyer.34234234
> 1441434.sdfksdf.2344
>
> Output file( containing data of Fixed length ):
>
> Id          Name        salary
> 01          sdfsfsdfd   34293
> 1923        reyer       34234234
> 1441434     sdfksdf     2344
>
> Thanks in advance . . .
>
> Sankaran
>
>
>
>
>
>
>


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Hi guys,
          I need a cobol program which converts variable length data
to fixed length data in a file.

Example:

Input file( containing data of Variable length ):

Id.Name.Salary
01.sdfsfsdfd.34293
1923.reyer.34234234
1441434.sdfksdf.2344

Output file( containing data of Fixed length ):

Id          Name        salary
01          sdfsfsdfd   34293
1923        reyer       34234234
1441434     sdfksdf     2344

Thanks in advance . . .

Sankaran

Immediate need for Senior Mainframer with COBOL, CICS, and DB2. This
is a 3-6 month contract in Central Alabama.

Candidate must have at least 10+ years of experience in Cobol, CICS,
DB2, QMF, SPUFI, JCL, TSO/ISPF, and Expediter. Excellent
communication skills. Positive and professional attitude.
Willingness to work daytime core hours

Manufacturing, Cost Accounting Background is a plus!

If you do not meet all of the requirements, please do not apply! To
be considered, please include availability and desired rate with
your resume.   START IMMEDIATELY!

George R. Jones
Owner/President Phoenix 2000 Inc
george.jones@...
256-212-4250

Talents Technology is looking for COBOL programmers to work in
Bucharest, Romania.

Job Description and Requirements

COBOL programmers required to design, code and test program or
application modules. Successful applicants will be working in the
Bucharest branch of a major global concern. Candidates should be high
school graduates (minimum) with good speaking skills in English and
French (or Italian). We are looking for a working knowledge of COBOL
and basic skills in Visual Basic, SQL and C. We can offer an excellent
remuneration package, good working conditions in an international
environment and the possibility of travel.

Interested candidates should send their CV and covering letter in
English to Phillippa Denney - info@...

This is a contract position what includes company benefits. Position
is with a major retailer and they are ready to start their project!

You need the following to qualify:

Mainframe experience with COBOL and DB2 database, minimum 3 years

Knowledge and experience in NT server admin desirable

Knowledge and experience with Oracle Databases desirable

Client server applications desireable

ASP.Net web applications helpful

MS Batch scripts and VB.Net helpful

Supply chain/Transpertation background would be a benefit.

They are using i2 technologies Transportation and Transportation
Optimizer.

You will be working on  supporting the Transportation Management
Systems (TMS). This is a mainframe system using COBOL, running on a
DB2 database. This system controls the routing of shipments
(trailors) through the client Supply Chain network.

This is a fine opportunity to learn non-mainfram trahnologies.

If you are interested please contact bsanchez@...