RE: Coding standards ( Was: An odd thing)

Paul,
I thought EVERYBODY did that !   :-)

... Neil Palmer                                     AS/400~~~~~      
... NxTrend Technology - Canada     ____________          ___  ~     
... Thornhill, Ontario,  Canada     |OOOOOOOOOO| ________  o|__||=   
... Phone: (905) 731-9000  x238     |__________|_|______|_|______)   
... Cell.: (416) 565-1682  x238      oo      oo   oo  oo   OOOo=o\   
... Fax:   (905) 731-9202         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
... mailto:NPalmer@NxTrend.com          http://www.NxTrend.com


        -----Original Message-----
        From:   PaulMmn [SMTP:PaulMmn@ix.netcom.com]
        Sent:   Tuesday, December 30, 1997 9:33 PM
        To:     MIDRANGE-L@midrange.com
        Subject:        Re: Coding standards ( Was: An odd thing)

        >Buck Calabro wrote:
        >>
        ><snip>
        >>I think that was one of the points brought up by the "free
format"
        >>poster: one
        >> has more options in setting up standards for free form code
than for fixed.
        >>
        > James Kilgore replied:
        >
        >True, like we use in CL...line up the columns to make things
easier to read.
        >(ducking)


        Don't laugh...  I like to prompt all my CL DCLs... then I
manually insert
        blanks as if all variables were 10 characters long...  and field
lengths
        are 4.0.

        It makes searching the DCLs easier if things are lined up.
IMHO.

        I also manually 'sort' the DCLS into alphabetical order.  More
time, but
        easier to review in a year or so.

        I also indent MONMSGs or things subservient to IFs for better
reading.


                                PGM

                                DCL &FIELDA     *CHAR  0010
                                DCL &STUFFING   *CHAR  0020
                                DCL &TURKEY     *CHAR  0004

                                IF (&TURKEY *EQ 'STUFFED') THEN(DO)
                                  CHGVAR &FIELDA 'BROMO'
                                ENDDO
                                IF (&STUFFING *EQ 'SAUSAGE') THEN(DO)
                                  CLRPFM LIB/FILE
                                    MONMSG CPF0000 EXEC(DO)
                                      SNDMSG 'OOPS' QSYSOPR
                                    ENDDO
                                  CPYF.....
                                ENDDO

                                ENDPGM


        --Paul E Musselman
        PaulMmn@ix.netcom.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---