IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

COBOL NOADVANCING strange results in COBOL v5.2 and above


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Alan Playford

New User


Joined: 22 Aug 2012
Posts: 48
Location: UK

PostPosted: Mon Apr 20, 2020 3:31 pm
Reply with quote

Guys,
Anybody experienced strange troubles with COBOL v5.2 and v6.2 overprinting?

We have an LPAR with zOS v2.3, corresponding CEE Language Environment, and with all of COBOL v4.2, v5.2 and v6.2 available.
We're testing with similar to below:

This is then compiled and go’d (!) for each of the COBOL versions - v4.2, v5.2 and v6.2 as follows:

Code:
//.... jobcard                                                                                   
//TESTV42 EXEC IGYWCLG,PARM.COBOL=RENT,REGION=0M,                     
//             LNGPRFX='IGY.WS2.IGY420',           <- point to SIGYCOMP       
//             PARM.LKED='LIST,XREF,LET,MAP'                           
//* LNGPRFX amended above for each of v4.2 v5.2 and v6.2 CLG runs *
//COBOL.SYSIN DD * 
        IDENTIFICATION DIVISION.                                       
        PROGRAM-ID. PGMNAME.                                           
        ENVIRONMENT DIVISION.                                         
      *****************************************************
      * Test source designed for output to a dataset                 *
      *****************************************************
        DATA DIVISION.                                                 
        PROCEDURE DIVISION.                                           
      *                                                               
       TEST-001-DEFAULT.                                               
      *                                                               
           DISPLAY "Display to default (SYSOUT) with dflt comp opts". 
           DISPLAY " ".                                               
           PERFORM 3 TIMES                                             
              DISPLAY "String with no advancing" WITH NO ADVANCING     
              DISPLAY "                         and then overlaid"     
           END-PERFORM.                                               
      *                                                               
           STOP RUN.                                                   
/*                               
//GO.SYSOUT   DD DSN=output_dataset_or_PDS_member,                         
//            DISP=(NEW,CATLG,DELETE),                                 
//            SPACE=(TRK,(1,1)),                                       
//            DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0)                     
//*                                                                   
//*                                                                   
//* EOJ                                                               
//                               


The output dataset cannot be browsed to see the ASA chars (you see nothing, just the data lines), but you can use View or Edit instead:

v4.2 output:-

Code:
************************ Top of Data ***
 Display to default (SYSOUT) with dflt comp opts                           
                                                                           
 String with no advancing                                                 
+                         and then overlaid                               
 String with no advancing                                                 
+                         and then overlaid                               
 String with no advancing                                                 
+                         and then overlaid                               
************************ Bottom of Data *


But both v5.2 and v6.2 output displays no ASA overprint chars:

Code:
*************************** Top of Data ***
 Display to default (SYSOUT) with dflt comp opts                           
                                                                           
 String with no advancing                                                 
                          and then overlaid                               
 String with no advancing                                                 
                          and then overlaid                               
 String with no advancing                                                 
                          and then overlaid                               
********************************* Bottom of Data *


SDSF and XDC of output to a file can obviously get in the way here, hence the output datasets!
But it doesn't explain why v4.2 appears to work but v5.2 and v6.2 do not show what you would expect? (e.g. the same as v4.2).

Has anybody experienced this or can reproduce this?
I wondered if the latest zOS v2.3 CEE language environments may be getting in the way and not working with v5.2 or above for some reason.
However, the same output (i.e. without ASA overprinting chars) can be seen on our "install" LPAR which only has the latest zOS v2.3, COBOL v6.2 and CEE environment.

Any suggestions here would be greatly appreciated!
Or have I missed something?!

Apologies for the formatting - I can post screen shots if that makes it clearer?

Thanks in advance, Alan
Coded for you
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Mon Apr 20, 2020 3:59 pm
Reply with quote

Alan,

Use the POST REPLY button to get the full editor which has the formatting buttons available.
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Mon Apr 20, 2020 7:11 pm
Reply with quote

  • In ISPF BROWSE, enter the command DISPLAY CC to view carrriage control characters.
  • You should be aware the + carriage control character directs a traditional line printer to not advance the carriage before printing the line; since there is no carriage as such in a page printer its behavior is not as predictable as one would like. Carriage control characters 0 and - insert the expected blank lines.
Back to top
View user's profile Send private message
Alan Playford

New User


Joined: 22 Aug 2012
Posts: 48
Location: UK

PostPosted: Mon Apr 20, 2020 7:43 pm
Reply with quote

Steve, already tried that, thanks?
In a display of ANY of the COBOL versions' output datasets, using BRowse, then DISPLAY CC gives me

Terminal CCSID not set.
Expanded help (PF1) further gives me
Code:
.-----------------------------------------------------------------------.
| The DISPLAY command is rejected because the terminal has not provided |
| character set information to ISPF.                                    |
'-----------------------------------------------------------------------'


For reference, I am using PowerTerm InterConnect (3270 emulator) on an Apple Mac here?
But never had to worry about CCSID before?

Regards, Al[/list]
Back to top
View user's profile Send private message
Phrzby Phil

Senior Member


Joined: 31 Oct 2006
Posts: 1042
Location: Richmond, Virginia

PostPosted: Mon Apr 20, 2020 10:01 pm
Reply with quote

compiled and went (?)
compiled and gone (?)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top