HP3000-L Archives

March 1997, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Mike Hornsby <[log in to unmask]>
Reply To:
Mike Hornsby <[log in to unmask]>
Date:
Thu, 27 Mar 1997 08:03:29 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (111 lines)
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

ATOM RSS1 RSS2