× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.