can i modify coding rules?

[lxw039]

anybody know the mainframe cobol coding rule:
the 15th column is indicator,2--7 column is sequence number, 7--14 column as a comments area
in my IBM 3270 terminal, why is it not the same as cobol standard format? maybe somewhere
we can modify that as a standard format, thanks.

[dick scherrer]

Hello,

the 15th column is indicator,2--7 column is sequence number, 7--14 column as a comments area

I do not understand. Col 1-6 is seq, col 7 is comment indicator, col 8 is area-a, col 12 is area-b.

It sounds as though you are describing some custom setup defined to your emulator or you are using some pre-defined panels online.

If you use copy/paste (don't edit anything), and use the "Code" tag, you can show us what you are seeing. Use Preview to see how your post will appear to the forum and when you are satisfied with how your post looks, Submit. Using the Code tag will make your post more readable as well as preserve alignment.

Please do not try to use a screen capture image. They typically make a mess and are deleted.

[lxw039]

this is my screen, why like that?

Code: Select all

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           
                                                                               
 EDIT       MP.LXW039.SOURCE(CALC1000) - 01.33              Columns 00001 00072
  ****** ***************************** Top of Data ******************************
 ==MSG> -Warning- The UNDO command is not available until you change           
 ==MSG>           your edit profile using the command RECOVERY ON.             
 000001        IDENTIFICATION DIVISION.                                         
 000002       *                                                                 
 000003        PROGRAM-ID. CALC1000.                                           
 000004       *                                                                 
 000005        ENVIRONMENT DIVISION.                                           
 000006       *                                                                 
 000007        INPUT-OUTPUT SECTION.                                           
 000008       *                                                                 
 000009        DATA DIVISION.                                                   
 000010       *                                                                 
 000011        FILE SECTION.                                                   
 000012       *                                                                 
 000013        WORKING-STORAGE SECTION.                                         
 000014       *                                                                 
 000015        77  END-OF-SESSION-SWITCH       PIC X       VALUE "N".           
 Command ===>                                                  Scroll ===> CSR 
   F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up       
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel                 



[dick scherrer]

Hello,

That is the normal way for an "edit" screen to appear.

The numbers ln the left are not part of the source. Positions 1-6 in the data portion of the screen are the sequence numbers the compiler will see. Note that the editor is working on columns 1 thru 72 - which is again normal.

FWIW, you probably want to enter "RECOVERY ON" as well. This will save a copy of your work if your session is ended and you have not saved what you have edited. When you come back in, you have the choice to recover or discard the unsaved editing.

[lxw039]

thank you very much!

[dick scherrer]

You're welcome

d