UNIX for Advanced & Expert Users

hi all,

someone knows why the carriare return on txseries-aix don't work?

exsample:
i have:
01 TESTATA-INIZIO.
03 TESTA-NL1 PIC X.
03 R-TESTA1.
05 FILLER PIC X(70) VALUE SPACE.
05 DATA-ST1 PIC 9999/99/99 BLANK WHEN ZERO.
05 FILLER PIC X(05) VALUE SPACE.
05 ORA-ST1 PIC 99.99 BLANK WHEN ZERO.
05 FILLER PIC X(15) VALUE SPACE.
05 FILLER PIC X(05) VALUE 'PAG.'.
05 PAG-ST PIC ZZZ VALUE ZERO.
05 TESTA1-RC1 PIC X.
05 TESTA1-NL1 PIC X.
05 TESTA1-NL2 PIC X.

*
03 R-TESTA2.
05 F PIC X(02) VALUE SPACE.
05 F PIC X(16) VALUE 'FUNZ. CLIENTE : '.
05 ST-CAGE-CLI PIC X(11) VALUE SPACE.
05 F PIC X(02) VALUE SPACE.
05 ST-DAGE-CLI PIC X(20) VALUE SPACE.
05 FILLER PIC X(46) VALUE SPACE.
05 COD-CLI PIC X(11) VALUE SPACE.
05 FILLER PIC X(03) VALUE SPACE.
05 DIV-CLI PIC X(02) VALUE SPACE.
05 TESTA2-RC1 PIC X.
05 TESTA2-NL1 PIC X.
05 TESTA2-NL2 PIC X.


then
if i MOVE BYTE-CR2 TO TESTA1-RC1 before

EXEC CICS SEND TEXT FROM (TESTATA-INIZIO)
LENGTH (LUNG-TESTA-INIZIO)
NLEOM
PRINT
ERASE
END-EXEC.

I DON'T SEE R-TESTA2
instead if i move spaces to TESTA1-RC1 i can see the follow data.

thanks in advance

I don't see a definition for BYTE-CR2. Is that a figurative constant like SPACE?

The term "carriage return" was developed when printers had a printing device actually mounted on a carriage. Each time that a character was printed the carriage would advance to the next print position. The function of a "carriage return" character was to cause the carriage to return to the first print position. More printing characters at this point would print on top of what was already printed. To go to the next line, you had to send a "carriage return" and a "line feed".

If a display cannot display overstrikes, a sequence like "a b c CR d e f " would cause the "def" to be displayed in positions 1 through 3. The "abc" was simply clobbered.

HI,

thanks for the answer, but i know the meaning of carriage return.
THE PROBLEM IS THAT THIS PROGRAM ON MAINFRAME-MVS-CICS
WORK GOOD WITH THE CARRIAGE RETURN,
INSTEAD ON AIX-TXSERIES DON'T WORK GOOD

******** CARRIAGE RETURN
01 CAR-CR PIC S9(4) COMP VALUE +13.
01 CONTR-CR REDEFINES CAR-CR.
05 BYTE-CR1 PIC X.
05 BYTE-CR2 PIC X.

THANKS AGAIN

Try making that:

VALUE +10

and see if that works. If it does, you really should rename the variables use NL rather than CR.

If it fails, be sure that BYTE-CR2 has the value. On some machines it could be BYTE-CR1 that gets the 10 while BYTE-CR2 gets the 0.

hi,

it works but with value +10 do new line, not carriage return.

Isn't that what you want? What result do you want with something like

a b c N/L d e f

Are you looking to see the d typed on top of the a? Not all printers can do that.

The program use carriage return for exsample for the BOLD character.