Subject: | |
From: | |
Reply To: | |
Date: | Thu, 27 Mar 1997 08:03:29 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
The carriage control bytes are inserted as part of the FWRITE to a file
that is
defined to have CCTL. They originate from the days of carriage control
paper tapes that were mounted in the printer. They tell the printer to
overprint or skip lines or to top of form. To complicate matters the
directives can be specified to be pre or post spacing. In the laser printed
world these characters have been replaced by escape sequences.
The following is some code from a COBOL program I wrote to translate CCTL.
IF CCTL-DATA ( 1 ) = NULL-X MOVE " " TO CCTL-DATA ( 1 ).
IF CCTL-BYTE = %104
MOVE 'N' TO PRE-SPACE-FLAG
GO TO 0100-READ-NEXT.
IF CCTL-BYTE = %120
MOVE 'Y' TO PRE-SPACE-FLAG
GO TO 0100-READ-NEXT.
MOVE 0 TO BLANK-LINE-MAX.
IF CCTL-BYTE = %202 OR %060 MOVE 1 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %203 OR %055 MOVE 2 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %204 MOVE 3 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %205 MOVE 4 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %206 MOVE 5 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %207 MOVE 6 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %210 MOVE 7 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %211 MOVE 8 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %212 MOVE 9 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %213 MOVE 10 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %214 MOVE 11 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %215 MOVE 12 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %216 MOVE 13 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
IF CCTL-BYTE = %217 MOVE 14 TO BLANK-LINE-MAX
GO TO 0150-CONTINUE.
0150-CONTINUE.
IF PRE-SPACE-FLAG = 'N'
GO TO 0200-PRINT-AFTER.
IF CCTL-BYTE = %014 OR %037 OR %061
PERFORM 2000-BLANK-LINES THRU 2000-EXIT
MOVE SPACES TO SFOUT-REC
MOVE CCTL-REC TO SFOUT-REC
WRITE SFOUT-REC
MOVE 1 TO LINE-COUNT
GO TO 0100-READ-NEXT.
MOVE SPACES TO SFOUT-REC.
MOVE SPACE TO CCTL-DATA ( LEN ).
MOVE CCTL-REC TO SFOUT-REC.
WRITE SFOUT-REC.
ADD 1 TO LINE-COUNT.
GO TO 0100-READ-NEXT.
0200-PRINT-AFTER.
IF CCTL-BYTE = %061
MOVE SPACES TO SFOUT-REC
MOVE CCTL-REC TO SFOUT-REC
WRITE SFOUT-REC
ADD 1 TO LINE-COUNT
PERFORM 2000-BLANK-LINES THRU 2000-EXIT
MOVE 0 TO LINE-COUNT
GO TO 0100-READ-NEXT.
----------
> From: MEENAKSHI C S <[log in to unmask]>
> To: [log in to unmask]
> Subject: Spool Files
> Date: Wednesday, March 26, 1997 5:22 AM
>
> Hello,
>
> I'am meena doing a project in HP ISO about printing spool files
> from MPE 5.0. My design is to have a server running on Unix and the
> server running on MPE. The client and server communicate through
> BSD sockets.
>
> When these spool files are transferred to Unix using ftp there are
> some control characters appearing in these files. But when they are
> printed directly form MPE using the sockets these control
characters
> are not present.
>
> I would like to know when exactly these CCTLs get embedded in the
spool
> files.
>
> Any ideas/suggestions will be appreciated.
>
>
>
> Thanks & Regards
> Meena
|
|
|