RE: Techniques for variable field types in a subfile -- RPG400-L

× 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.

Title: RE: Techniques for variable field types in a subfile

Correction

I forgot the fillers to space out the line, sorry !!!!

Subfile line layout

Name                              Number           Department                                           Date
John Doe                         123-4567         Whatever                                            01/01/99
XXXXXXXXXXXXXXXXXXXX&&9999999999&&XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&&XXXXXXXXXX
Jane Doe                          987-6543         Whereever                                          12/31/00

Data structure in program

SFLLineDS           DS
SFLName                    20     (or Name)
SFLFiller1                     2
SFLNumber                 10
SFLFiller2                     2
SFLDepartment            30     (or Department)
SFLFiller3                      2
SFLDate                      10

                  Clear                    SFLLine
                  Eval   SFLName = Name
                  Eval   SFLNumber = %EditW(Number:'   -    0')
                  Eval   SFLDepartment = Department
                  Eval   SFLDate = %Char(Date)
                  Eval   SFLLine = SFLLineDS
                  Write SFL001

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.