|
View previous topic :: View next topic
|
| Author |
Message |
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
rajatbagga
Active User
Joined: 11 Mar 2007
Posts: 199
Location: india
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
Hello all,
Could any one help me to resolve this issue? |
|
| Back to top |
|
|
Srihari Gonugunta
Active User
Joined: 14 Sep 2007
Posts: 295
Location: Singapore
|
|
|
|
Gnanas,
Have you tried UNNUM |
|
| Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
Srihari,
| Quote: |
| Have you tried UNNUM |
It didn't work. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
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 |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
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 |
|
|
|
|
