Re: Coding standards ( Was: An odd thing)

[PaulMmn <PaulMmn@xxxxxxxxxxxxx>]

>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
+---