Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

NUM ON STD for PL/1 source

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Thu Dec 13, 2007 2:02 pm    Post subject: NUM ON STD for PL/1 source
Reply with quote

Hi all,
I have written PL/1 program. But it is padded with one more LINE numbers.

How to solve this?

Code:
Command ===>                                       
****** ***************************** Top of Data **
000100 000100E:PROC OPTIONS(MAIN);                 
000200 000200ILE WRITE */                         
000300 000300 SYSIN       FILE RECORD;             
000400 000400 EMPFL       FILE RECORD;             
000500 000500 MOREREC     BIT(01) INIT('1'B);     
000600 000600 NO          BIT(01) INIT('0'B);     
000700 000700 TOTALREC    PIC '99' INIT(00);       
000800 000800 01 EMPST,       


Profile options here are

Code:
....SOURCE (FIXED - 80)....RECOVERY ON....NUMBER ON STD.................
 ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG.......
 ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
 ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
 ....HILITE PLI CURSOR FIND MARGINS(2,72)................................   
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Dec 13, 2007 6:33 pm    Post subject: Reply to: NUM ON STD for PL/1 source
Reply with quote

the number structure is what You get with "NUMB ON COBOL"
as You can see the source has sequence numbers on the first 6 columns..

So after setting the Number status You will have to retype a few things..

the profiles in ISPF are managed by the last qualifier of the dataset ..

so if the last qualifier is cobol NUMBER on, RENUM, Unnum will thing that
the sources are cobol and number/unnumber will junk/unjunk the first 6 chard of Your
sources
Back to top
View user's profile Send private message
rajatbagga

Active User


Joined: 11 Mar 2007
Posts: 193
Location: india

PostPosted: Thu Dec 20, 2007 1:32 pm    Post subject: Reply to: NUM ON STD for PL/1 source
Reply with quote

Hi,

if you look at profile options that you provided there you can see NUMBER ON in first rowmake it NUMBER OFF and then see if it solves your problem
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Thu Dec 20, 2007 2:59 pm    Post subject:
Reply with quote

Hello,
NUM OFF also didn't solve my problem.


Code:

Command ===>                                                  Scroll ===> CSR 
****** ***************************** Top of Data ******************************
=PROF> ....SOURCE (FIXED - 80)....RECOVERY OFF....NUMBER OFF...................
=PROF> ....CAPS ON....HEX OFF....NULLS OFF....TABS OFF....SETUNDO STG..........
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE COBOL CURSOR FIND............................................
000001 000100E:PROC OPTIONS(MAIN);                                             
000002 000200ILE WRITE */                                                     
000003 000300 SYSIN       FILE RECORD;                                         
000004 000400 EMPFL       FILE RECORD;                                         
000005 000500 MOREREC     BIT(01) INIT('1'B);                                 
000006 000600 NO          BIT(01) INIT('0'B);                                 
000007 000700 TOTALREC    PIC '99' INIT(00);                                   
000008 000800 01 EMPST,     
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Wed Dec 26, 2007 6:38 pm    Post subject:
Reply with quote

Hello all,

Could any one help me to resolve this issue?
Back to top
View user's profile Send private message
Srihari Gonugunta

Active User


Joined: 14 Sep 2007
Posts: 295
Location: Singapore

PostPosted: Wed Dec 26, 2007 6:53 pm    Post subject:
Reply with quote

Gnanas,
Have you tried UNNUM
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Wed Dec 26, 2007 7:49 pm    Post subject:
Reply with quote

Srihari,
Quote:
Have you tried UNNUM

It didn't work.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Wed Dec 26, 2007 8:04 pm    Post subject: Reply to: NUM ON STD for PL/1 source
Reply with quote

from the profile NUMBER is OFF
so RENUM,UNNUM will have no effect

try issuing "NUMBER ON" or "NUMBER STD"
and then "RENUM;UNNUM;NUMBER OFF"
and see what happens
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Wed Dec 26, 2007 9:41 pm    Post subject:
Reply with quote

Enrico,
Quote:
try issuing "NUMBER ON" or "NUMBER STD"
and then "RENUM;UNNUM;NUMBER OFF"
and see what happens


It didn't work in that member. All other members newly created in that PDS are okay.
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 788
Location: Chennai, India

PostPosted: Thu Dec 27, 2007 10:31 am    Post subject:
Reply with quote

Hi all,

Could anyone tell me what is the correct Profile Options for PL/1???

For COBOL, NUM STD COB is needed, Right?
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
This topic is locked: you cannot edit posts or make replies. Locating the source code. Raghur CLIST & REXX 17 Mon Apr 04, 2016 2:29 pm
No new posts How to extract source name from XML ANIRUDH A DB2 2 Mon Aug 31, 2015 3:34 pm
No new posts Static Analysis of COBOL source programs marcelo.shulman COBOL Programming 3 Fri Mar 20, 2015 8:40 pm
No new posts Question on PL/I source example from ... Duncan Sharppe PL/I & Assembler 4 Wed Sep 03, 2014 11:40 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us