Hi

we can reverse the string using cobol prog like this :

IDENTIFICATION DIVISION.
PROGRAM-ID. MID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STR1 PIC X(7) VALUE IS 'MANOJ'.
01 STR2 PIC X(1).
01 STR3 PIC X(7) VALUE SPACE.
*01 STR4 PIC X(7).
01 STRLEN PIC 9(1).
01 CTR1 PIC 9(1) VALUE IS 1.
PROCEDURE DIVISION.
INSPECT STR1 TALLYING STRLEN FOR CHARACTERS.
DISPLAY STRLEN.
PERFORM UNTIL STRLEN < 1

MOVE STR1(STRLEN:1) TO STR2
DISPLAY STR2
STRING
STR3 DELIMITED BY SPACE
STR2 DELIMITED BY SPACE
INTO STR3
COMPUTE STRLEN STRLEN - 1
DISPLAY STR3
END-PERFORM.
DISPLAY STR3.
STOP RUN.

Thanking you.

manoj

hello

Is there any other method?

regards

rahul

hello

Suppose I have 1000 records in one PS file . My requirement is taking first 2 records.

In each record contain 6 fields eg.

NAME ADDRESS-1 ADDRESS-2 CITY SATATE ZIPCODE

My requirement is write record vertically 1^st record and 2ed record is beside of first record

Input PS

Output PS

Regards

rahul