Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
COBOL NOADVANCING strange results in COBOL v5.2 and above

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Alan Playford

New User


Joined: 22 Aug 2012
Posts: 37
Location: UK

PostPosted: Mon Apr 20, 2020 3:31 pm    Post subject: COBOL NOADVANCING strange results in COBOL v5.2 and above
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: 2378
Location: Hampshire, UK

PostPosted: Mon Apr 20, 2020 3:59 pm    Post subject: Reply to: COBOL NOADVANCING strange results in COBOL v5.2 and above
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: 847
Location: The Universe

PostPosted: Mon Apr 20, 2020 7:11 pm    Post subject:
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: 37
Location: UK

PostPosted: Mon Apr 20, 2020 7:43 pm    Post subject: Reply to: COBOL NOADVANCING strange results in COBOL v5.2 and above
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: 1008
Location: Richmond, Virginia

PostPosted: Mon Apr 20, 2020 10:01 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Restart logic by using cursor name in... Twinkle22 Mainframe Interview Questions 1 Wed Jul 29, 2020 11:26 am
No new posts COBOL Developers Perspectives on Soft... achakarov COBOL Programming 4 Sat Jul 18, 2020 1:26 am
No new posts CALL statement in COBOL for VSE Kirthishine COBOL Programming 3 Fri Jun 26, 2020 12:12 pm
No new posts Question for Cobol Report Writer jackzhang75 COBOL Programming 3 Wed May 27, 2020 4:35 am
No new posts Compare multiple files using JCL/Rexx... tanvi110788 JCL & VSAM 4 Tue May 19, 2020 5:47 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us