Code examples 1

[StephenJSpiro]

PLEASE
When you give us an example of your code, COPY and PASTE.

If you retype it, and you mis-spell a text item, or you leave out a PICTURE, or you leave out punctuation, or do something else that is not EXACTLY as you have it in your program, we CANNOT tell what might be contributing to your problem!

People are very generous with their time in here; please make it easier on them!

Stephen J Spiro
Member, J4 COBOL Standards Committee
check it out at

http://people.ne.mediaone.net/doncobol/

stephenjspiro at hotmail.com

 

[renaldini]

Hi!

Good advise, mostly a program isn't that secret. An adder information that can be useful is in what environment you compile/run your application, the solution of many problems is depnding on the environment.

//Renaldini

 

[NinaToo]

A person can copy and paste their program code into the text editor here -- and then go in and change the names of a few data fields if that is necessary to protect company secrets. But as Stephen says, watch for typing mistakes.

Nina Too

 

[slade]

My too scents: In addition to this advice begin/end your code with "code tags". To see how to use them press "preview post" button at bottom of "your reply" text box. Then go to bottom of the new page for instuctions on how to do it.

This aligns the code as it appears in the originating cut document. Makes things a lor easier to read. The following ex. does not include the letters "code" between the brackets, preceeded by "/" at the end of the c&p code, otherwise the letters won't display in the ex.

[]
******************************************************************
* DETERMINE CENTURY FOR DAYLIGHT SAVINGS START/END DATES
******************************************************************
MOVE STD-B1-MESSAGE-DATE TO WS-IT-DATE
MOVE WS-YY TO WDS-YY
IF WDS-YY < 90
ADD +1 TO WDS-CC
END-IF
MOVE WDS-CCYY TO WDE-CCYY
[/]

The following shows the same c&p code using the real code tags. Note: they don't display (that's how you can tell if you did it right) and the alignment is exactly as it was in the orig c&p code. The IF isn't indented - I was in an experimental phase back then.
Also don't worry how the code looks in the text window; when you see it in the posting, it'll look OK.

HTH, Jack.

      ******************************************************************
      *  DETERMINE  CENTURY FOR DAYLIGHT SAVINGS START/END DATES
      ******************************************************************
           MOVE    STD-B1-MESSAGE-DATE  TO  WS-IT-DATE
           MOVE    WS-YY                TO  WDS-YY
           IF      WDS-YY                <  90
           ADD       +1                 TO  WDS-CC
           END-IF
           MOVE    WDS-CCYY             TO  WDE-CCYY