ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Multiple Format Display Example

Collapse
X
Collapse
 
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
Previous template Next
  • #1

    Multiple Format Display Example

    Does anyone have an example of using *DS3 and *DS4 in a DSPF using a Subfile as *DS4 with additional Records as *DS3?

    For reasons unknown to the common man, I can't seem to get it to compile for any reason what soever!!

    Records:
    HDR1
    SUB1
    CTL1
    FTR1
    SCR1

    File Header:
    PHP Code:
         A                                      DSPSIZ(*DS4 *DS3) 
    CTL1: (Will always be *DS4) -- has display out past column 80
    PHP Code:
         A  *DS4                                SFLSIZ(0015) 
             A  *DS4                                SFLPAG(0015) 
             A  *DS3                                SFLSIZ(0005) 
             A  *DS3                                SFLPAG(0005) 
    SCR1: Needs to display in 80 column format
    PHP Code:
         A                                      DSPMOD(*DS3) 
    Compile Errors:

    PHP Code:
        ID      Severity  Number                                                                                   
    * CPD7812      30        1      Message . . . . :   Subfile control record overlaps subfile record
    * CPD7865      10        1      Message . . . . :   Field overlaps one or more fields in record
    * CPD7866      10        2      Message . . . . :   Field overlaps another field with no conditions specified
    * CPD8018      10        1      Message . . . . :   Keyword may not function as expected with DSPMOD 
    Any clues as to what I'm missing would be greatly appreciated... I've been staring at it too long!!
    Tags: None
  • #2
    Re: Multiple Format Display Example

    if I understand you correctly, that is impossible.

    Every format on the screen must be either 80 or 132 column. You cannot mix them together.
    Denny

    If authority was mass, stupidity would be gravity.

    Comment

    • #3
      Re: Multiple Format Display Example

      Hey Denny... thanks. This isn't on the SAME Record format .. they're on DIFFERENT Record Formats. As far as I know, you can mix formats, just not on the same Record.

      Comment

      • #4
        Re: Multiple Format Display Example

        are you trying to put the two different size formats on the screen at the same time? (i.e. one is just a window that overlays the other?)

        Comment

        • #5
          Re: Multiple Format Display Example

          Hmmm... based on the error message, the different display sizes doesn't look like the problem. Please display the entire DDS record and maybe we can spot the problem for you.

          Comment

          • #6
            Re: Multiple Format Display Example

            I think I understand what you are trying to accomplish. Could you publish the DDS for the display file?
            Michael Catalani
            IS Director, eCommerce & Web Development
            Acceptance Insurance Corporation
            www.AcceptanceInsurance.com
            www.ProvatoSys.com

            Comment

            • #7
              Re: Multiple Format Display Example

              PHP Code:

                   A              *%%TS  SD  20090423  093117  FLANARY     REL-V5R4M0  5722-WDS
                   A              *%%EC
                   A                                      DSPSIZ              (27 132 *DS4                 -
                                 A                                             24 80 *DS3)
                                 A                                      PRINT
                                 A                                      ENTFLDATR((*COLOR BLU) (*DSPATR HI -
                                 A                                      UL))
                                 A                                      INDARA
                   A                                      CF01
                   A                                      CF02
                   A                                      CF03
                   A                                      CF04
                   A                                      CF05
                   A                                      CF06
                   A                                      CF07
                   A                                      CF08
                   A                                      CF09
                   A                                      CF10
                   A                                      CF11
                   A                                      CF12
                   A                                      CF13
                   A                                      CF14
                   A                                      CF15
                   A                                      CF16
                   A                                      CF17
                   A                                      CF18
                   A                                      CF19
                   A                                      CF20
                   A                                      CF21
                   A                                      CF22
                   A                                      CF23
                   A                                      CF24
                   A N41                                  PAGEDOWN
                   A                                      PAGEUP
                   A          R MONTH
                   A              *%%TS  SD  20090423  093117  FLANARY     REL-V5R4M0  5722-WDS
                   A                *DS4                                WINDOW(FMT1)
                                 A  *DS3                                WINDOW(FMT1)
                                 A                                      RTNCSRLOC(*RECNAME &@RECORD &@FIELD-
                                 A                                       &@POS)
                                 A                                      CSRLOC(@SROW      @SCOL)
                                 A                                      OVERLAY
                   A                          @RECORD       10A  H
                   A                          @FIELD        10A  H
                   A                          @POS           4S 0H
                   A                          @SROW          3S 0H
                   A                          @SCOL          3S 0H
                   A                          @CURYEAR       4S 0H
                   A                          @DAY01         2A  P
                   A                          @DAY02         2A  P
                   A                          @DAY03         2A  P
                   A                          @DAY04         2A  P
                   A                          @DAY05         2A  P
                   A                          @DAY06         2A  P
                   A                          @DAY07         2A  P
                   A                          @DAY08         2A  P
                   A                          @DAY09         2A  P
                   A                          @DAY10         2A  P
                   A                          @DAY11         2A  P
                   A                          @DAY12         2A  P
                   A                          @DAY13         2A  P
                   A                          @DAY14         2A  P
                   A                          @DAY15         2A  P
                   A                          @DAY16         2A  P
                   A                          @DAY17         2A  P
                   A                          @DAY18         2A  P
                   A                          @DAY19         2A  P
                   A                          @DAY20         2A  P
                   A                          @DAY21         2A  P
                   A                          @DAY22         2A  P
                   A                          @DAY23         2A  P
                   A                          @DAY24         2A  P
                   A                          @DAY25         2A  P
                   A                          @DAY26         2A  P
                   A                          @DAY27         2A  P
                   A                          @DAY28         2A  P
                   A                          @DAY29         2A  P
                   A                          @DAY30         2A  P
                   A                          @DAY31         2A  P
                   A                          @DAY32         2A  P
                   A                          @DAY33         2A  P
                   A                          @DAY34         2A  P
                   A                          @DAY35         2A  P
                   A                          @DAY36         2A  P
                   A                          @DAY37         2A  P
                   A                          @DAY38         2A  P
                   A                          @DAY39         2A  P
                   A                          @DAY40         2A  P
                   A                          @DAY41         2A  P
                   A                          @DAY42         2A  P
                   A            COLOR          1A  P
                   A            COLOR2         1A  P
                   A            C1MONTH       30A  O  1  3COLOR              (PNK)
                                 A                                      DSPATR(&COLOR2)
                                 A            DAYNAME1       3A  O  3  3DSPATR(HI)
                                 A            DAYNAME2       3A  O  3  9DSPATR(HI)
                                 A            DAYNAME3       3A  O  3 15DSPATR(HI)
                                 A            DAYNAME4       3A  O  3 21DSPATR(HI)
                                 A            DAYNAME5       3A  O  3 27DSPATR(HI)
                                 A            DAYNAME6       3A  O  3 33DSPATR(HI)
                                 A            DAYNAME7       3A  O  3 39DSPATR(HI)
                                 A N55        DAY01          2Y 0B  4  3PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY01)
                                 A                                      DSPATR(&COLOR)
                                 A  13                                  DSPATR(PC)
                                 A N56        DAY02          2Y 0B  4  9PSHBTNFLD((*GUTTER 1))
                                 A                                      DSPATR(&COLOR)
                                 A                                      PSHBTNCHC(1 &@DAY02)
                                 A  14                                  DSPATR(PC)
                                 A N57        DAY03          2Y 0B  4 15PSHBTNFLD((*GUTTER 1))
                                 A                                      DSPATR(&COLOR)
                                 A                                      PSHBTNCHC(1 &@DAY03)
                                 A  15                                  DSPATR(PC)
                                 A N58        DAY04          2Y 0B  4 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY04)
                                 A  16                                  DSPATR(PC)
                                 A N59        DAY05          2Y 0B  4 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY05)
                                 A  17                                  DSPATR(PC)
                                 A N60        DAY06          2Y 0B  4 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY06)
                                 A  18                                  DSPATR(PC)
                                 A N61        DAY07          2Y 0B  4 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY07)
                                 A  19                                  DSPATR(PC)
                                 A            TEXT01         5A  O  5  3DSPATR(&COLOR2)
                                 A            TEXT02         5A  O  5  9DSPATR(&COLOR2)
                                 A            TEXT03         5A  O  5 15DSPATR(&COLOR2)
                                 A            TEXT04         5A  O  5 21DSPATR(&COLOR2)
                                 A            TEXT05         5A  O  5 27DSPATR(&COLOR2)
                                 A            TEXT06         5A  O  5 33DSPATR(&COLOR2)
                                 A            TEXT07         5A  O  5 39DSPATR(&COLOR2)
                                 A N62        DAY08          2Y 0B  6  3DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY08)
                                 A  20                                  DSPATR(PC)
                                 A N63        DAY09          2Y 0B  6  9DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY09)
                                 A  21                                  DSPATR(PC)
                                 A N64        DAY10          2Y 0B  6 15DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY10)
                                 A  22                                  DSPATR(PC)
                                 A N65        DAY11          2Y 0B  6 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY11)
                                 A  23                                  DSPATR(PC)
                                 A N66        DAY12          2Y 0B  6 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY12)
                                 A  24                                  DSPATR(PC)
                                 A N67        DAY13          2Y 0B  6 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY13)
                                 A  25                                  DSPATR(PC)
                                 A N68        DAY14          2Y 0B  6 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY14)
                                 A  26                                  DSPATR(PC)
                                 A            TEXT08         5A  O  7  3DSPATR(&COLOR2)
                                 A            TEXT09         5A  O  7  9DSPATR(&COLOR2)
                                 A            TEXT10         5A  O  7 15DSPATR(&COLOR2)
                                 A            TEXT11         5A  O  7 21DSPATR(&COLOR2)
                                 A            TEXT12         5A  O  7 27DSPATR(&COLOR2)
                                 A            TEXT13         5A  O  7 33DSPATR(&COLOR2)
                                 A            TEXT14         5A  O  7 39DSPATR(&COLOR2)
                                 A N69        DAY15          2Y 0B  8  3DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY15)
                                 A  27                                  DSPATR(PC)
                                 A N70        DAY16          2Y 0B  8  9DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY16)
                                 A  28                                  DSPATR(PC)
                                 A N71        DAY17          2Y 0B  8 15DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY17)
                                 A  29                                  DSPATR(PC)
                                 A N72        DAY18          2Y 0B  8 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY18)
                                 A  30                                  DSPATR(PC)
                                 A N73        DAY19          2Y 0B  8 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY19)
                                 A  31                                  DSPATR(PC)
                                 A N74        DAY20          2Y 0B  8 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY20)
                                 A  32                                  DSPATR(PC)
                                 A N75        DAY21          2Y 0B  8 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY21)
                                 A  33                                  DSPATR(PC)
                                 A            TEXT15         5A  O  9  3DSPATR(&COLOR2)
                                 A            TEXT16         5A  O  9  9DSPATR(&COLOR2)
                                 A            TEXT17         5A  O  9 15DSPATR(&COLOR2)
                                 A            TEXT18         5A  O  9 21DSPATR(&COLOR2)
                                 A            TEXT19         5A  O  9 27DSPATR(&COLOR2)
                                 A            TEXT20         5A  O  9 33DSPATR(&COLOR2)
                                 A            TEXT21         5A  O  9 39DSPATR(&COLOR2)
                                 A N76        DAY22          2Y 0B 10  3DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY22)
                                 A  34                                  DSPATR(PC)
                                 A N77        DAY23          2Y 0B 10  9DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY23)
                                 A  35                                  DSPATR(PC)
                                 A N78        DAY24          2Y 0B 10 15DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY24)
                                 A  36                                  DSPATR(PC)
                                 A N79        DAY25          2Y 0B 10 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY25)
                                 A  37                                  DSPATR(PC)
                                 A N80        DAY26          2Y 0B 10 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY26)
                                 A  38                                  DSPATR(PC)
                                 A N81        DAY27          2Y 0B 10 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY27)
                                 A  39                                  DSPATR(PC)
                                 A N82        DAY28          2Y 0B 10 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY28)
                                 A  40                                  DSPATR(PC)
                                 A            TEXT22         5A  O 11  3DSPATR(&COLOR2)
                                 A            TEXT23         5A  O 11  9DSPATR(&COLOR2)
                                 A            TEXT24         5A  O 11 15DSPATR(&COLOR2)
                                 A            TEXT25         5A  O 11 21DSPATR(&COLOR2)
                                 A            TEXT26         5A  O 11 27DSPATR(&COLOR2)
                                 A            TEXT27         5A  O 11 33DSPATR(&COLOR2)
                                 A            TEXT28         5A  O 11 39DSPATR(&COLOR2)
                                 A N83        DAY29          2Y 0B 12  3DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY29)
                                 A  41                                  DSPATR(PC)
                                 A N84        DAY30          2Y 0B 12  9DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY30)
                                 A  42                                  DSPATR(PC)
                                 A N85        DAY31          2Y 0B 12 15DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY31)
                                 A  43                                  DSPATR(PC)
                                 A N86        DAY32          2Y 0B 12 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY32)
                                 A  44                                  DSPATR(PC)
                                 A N87        DAY33          2Y 0B 12 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY33)
                                 A  45                                  DSPATR(PC)
                                 A N88        DAY34          2Y 0B 12 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY34)
                                 A  46                                  DSPATR(PC)
                                 A N89        DAY35          2Y 0B 12 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY35)
                                 A  47                                  DSPATR(PC)
                                 A            TEXT29         5A  O 13  3DSPATR(&COLOR2)
                                 A            TEXT30         5A  O 13  9DSPATR(&COLOR2)
                                 A            TEXT31         5A  O 13 15DSPATR(&COLOR2)
                                 A            TEXT32         5A  O 13 21DSPATR(&COLOR2)
                                 A            TEXT33         5A  O 13 27DSPATR(&COLOR2)
                                 A            TEXT34         5A  O 13 33DSPATR(&COLOR2)
                                 A            TEXT35         5A  O 13 39DSPATR(&COLOR2)
                                 A N90        DAY36          2Y 0B 14  3DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY36)
                                 A  48                                  DSPATR(PC)
                                 A N91        DAY37          2Y 0B 14  9DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY37)
                                 A  49                                  DSPATR(PC)
                                 A N92        DAY38          2Y 0B 14 15DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY38)
                                 A  50                                  DSPATR(PC)
                                 A N93        DAY39          2Y 0B 14 21DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY39)
                                 A  51                                  DSPATR(PC)
                                 A N94        DAY40          2Y 0B 14 27DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY40)
                                 A  52                                  DSPATR(PC)
                                 A N95        DAY41          2Y 0B 14 33DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY41)
                                 A  53                                  DSPATR(PC)
                                 A N96        DAY42          2Y 0B 14 39DSPATR(&COLOR)
                                 A                                      PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 &@DAY42)
                                 A  54                                  DSPATR(PC)
                                 A            TEXT36         5A  O 15  3DSPATR(&COLOR2)
                                 A            TEXT37         5A  O 15  9DSPATR(&COLOR2)
                                 A            TEXT38         5A  O 15 15DSPATR(&COLOR2)
                                 A            TEXT39         5A  O 15 21DSPATR(&COLOR2)
                                 A            TEXT40         5A  O 15 27DSPATR(&COLOR2)
                                 A            TEXT41         5A  O 15 33DSPATR(&COLOR2)
                                 A            TEXT42         5A  O 15 39DSPATR(&COLOR2)
                                 A            @EXIT          2Y 0B 16  3PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 'Exit F3')
                                 A            @PMONTH        2Y 0B 16 16PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 'Previous F7')
                                 A            @NMONTH        2Y 0B 16 32PSHBTNFLD((*GUTTER 1))
                                 A                                      PSHBTNCHC(1 'Next F8')
                                 A          R FMT1
                   A              *%%TS  SD  20090409  155309  FLANARY     REL-V5R4M0  5722-WDS
                   A                *DS4                                WINDOW(5 60 18 44 *NOMSGLIN)
                                 A  *DS3                                WINDOW(*DFT 18 44 *NOMSGLIN)
                                 A          R DUMMY
                   A              *%%TS  SD  20090409  155152  FLANARY     REL-V5R4M0  5722-WDS
                   A                                      ASSUME
                   A                                  1  4              ' ' 
              Attached Files
              All my answers were extracted from the "Big Dummy's Guide to the As400"
              and I take no responsibility for any of them.

              www.code400.com

              Comment

              • #8
                Re: Multiple Format Display Example

                OK .. here's the code that ain't a werkin'...

                PHP Code:
                     A                                      DSPSIZ(27 132 *DS4                 -
                                     A                                             24 80 *DS3)
                                     A                                      PRINT
                                     A                                      INDARA
                     A                                      CA01
                     A                                      CA02
                     A                                      CA03
                     A                                      CA04
                     A                                      CA05
                     A                                      CA06
                     A                                      CA07
                     A                                      CA08
                     A                                      CA09
                     A                                      CA10
                     A                                      CA11
                     A                                      CA12
                     A                                      CA13
                     A                                      CA14
                     A                                      CA15
                     A                                      CF16                (91)
                                     A                                      CA17
                     A                                      CA18
                     A                                      CA19
                     A                                      CA20
                     A                                      CA21
                     A                                      CA22
                     A                                      CA23
                     A                                      CA24
                     A                                      PAGEDOWN
                     A                                      PAGEUP
                     A                ****************************************************************
                                     A          R HDR1
                     A                                  1  2                'ED311'
                                     A            HEADING       40A  O  1 48
                     A                                  1120DATE
                     A                                      EDTCDE                (Y)
                                     A                                  2 54'Transmitted Invoice Inquiry'
                                     A                                      DSPATR(HI)
                                     A                                  2120TIME
                     A                                  2  2USER
                     A                ****************************************************************
                                     A          R SUB1
                     A                                      SFL
                     A  35                                  SFLNXTCHG
                     A            OPT            1A  B  9  3DSPATR                (HI)
                                     A  41                                  DSPATR(PC)
                                     A            VNDNUM         5Y 0O  9  6EDTCDE(3)
                                     A            LINECODE       3A  O  9 34
                     A            TRNPO         14A  O  9 61
                     A            SHIPID        15A  O  9 12
                     A            WHS            3Y 0O  9 29EDTCDE                (Z)
                                     A            INVOICE       22   O  9 38
                     A            INVDATE       10A  O  9 77
                     A            TOTINVAMT     12Y 2O  9 88EDTCDE                (P)
                                     A            VNDNAME       30A  H
                     A                ****************************************************************
                                     A          R CTL1
                     A                                      SFLCTL                (SUB1)
                                     A  *DS4                                SFLSIZ(15)
                                     A  *DS4                                SFLPAG(15)
                                     A                                      KEEP
                     A                                      BLINK
                     A                                      OVERLAY
                     A                                      PROTECT
                     A                                      PUTOVR
                     A                                      OVRDTA
                     A                                      OVRATR
                     A N98 97                               SFLDSP
                     A N98                                  SFLDSPCTL
                     A  98                                  SFLCLR
                     A                                  3  2                'Type Options, press Enter.'
                                     A                                      DSPATR(HI)
                                     A                                      COLOR(RED)
                                     A                                  4  3'1=Inv Header'
                                     A                                      DSPATR(HI)
                                     A                                      COLOR(RED)
                                     A                                  4 18'2=Inv Detail'
                                     A                                      COLOR(RED)
                                     A                                  4 33'3=Diff Detail'
                                     A                                      COLOR(RED)
                                     A                                  4 49'5=Vendor'
                                     A                                      COLOR(RED)
                                     A                                  4 60'6=Notes'
                                     A                                      COLOR(RED)
                                     A                                  4 69'8=Print'
                                     A                                      COLOR(RED)
                                     A                                  4 78'9=Delete'
                                     A                                      COLOR(RED)
                                     A                                  5 49'C=Change'
                                     A                                      COLOR(RED)
                                     A                                  5 60'P=Post'
                                     A                                      COLOR(RED)
                                     A                                  7  2'Opt'
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7  6'Vend#'
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 12'Ship ID        '
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 28'Whs#'
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 33'Line'
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 38'Invoice Number        '
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 61'PO Number      '
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 77'Inv Date  '
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A                                  7 90'    Inv Amnt'
                                     A                                      DSPATR(HI)
                                     A                                      DSPATR(UL)
                                     A            FVNDNUM        5Y 0B  8  6EDTCDE(Z)
                                     A            FSHIPID       15A  B  8 12
                     A            FWHS           3Y 0B  8 29EDTCDE                (Z)
                                     A            FLINE          3A  B  8 34
                     A            FINVOICE      22A  B  8 38
                     A            FTRNPO        15A  B  8 61
                     A            FINVDATE      10A  B  8 77
                     A            FTOTINVAMT    12Y 2B  8 90EDTCDE                (Z)
                                     A****************************************************************
                                     A          R FTR1                      TEXT('COMMAND RECORD')
                                     A                                      OVERLAY
                     A                                 25  2                'Enter ='
                                     A                                      DSPATR(HI)
                                     A                                 25 10'Search/Process'
                                     A                                 25 31'F1 ='
                                     A                                      DSPATR(HI)
                                     A                                 25 36'Exit'
                                     A  34                             25125'More...'
                                     A                                      DSPATR(HI)
                                     A N30                             25125'Bottom'
                                     A                                      DSPATR(HI)
                                     A            MSGLNE        70A  O 26  2DSPATR(HI)
                                     A                                      COLOR(RED)
                                     A                                 25 48'F4 ='
                                     A                                      DSPATR(HI)
                                     A                                 25 53'Validate & Promote'
                                     A****************************************************************
                                     A          R SFLMSG
                     A                                      SFL
                     A                                      SFLMSGRCD                (24)
                                     A            MSGKEY                    SFLMSGKEY
                     A                            @PROGRAM                  SFLPGMQ(10)
                                     A****************************************************************
                                     A          R CTLMSG
                     A                                      SFLCTL                (SFLMSG)
                                     A                                      SFLSIZ(10)
                                     A                                      SFLPAG(1)
                                     A                                      OVERLAY
                     A  99                                  SFLDSP
                     A  99                                  SFLDSPCTL
                     A  99                                  SFLINZ
                     A                            @PROGRAM                  SFLPGMQ(10)
                                     A****************************************************************
                                     A          R WIN8                      TEXT('Modify Soft Fail Fields')
                                     A                                      DSPMOD(*DS3)
                                     A                                      WINDOW(5 5 14 67 *NOMSGLIN)
                                     A                                      WDWTITLE((*TEXT 'Correct Soft Fail -
                     A                                      Values'                ) (*DSPATR HI))
                                     A            @PROGRAM      10A  O  1  1
                     A                                  1 60TIME
                     A                                  2 17                'Invoice#'
                                     A            INVOICE       22A  O  2 26DSPATR(HI)
                                     A                                  4  1'Vendor No'
                                     A            VNDNUM         5Y 0B  4 13EDTCDE(3)
                                     A  62                                  DSPATR(PR)
                                     A  62                              4 35'|'
                                     A  62                              4 50'Enter ''*YES'''
                                     A                                  5  1'Warehouse#'
                                     A            WHS            3Y 0B  5 13EDTCDE(3)
                                     A  62                                  DSPATR(PR)
                                     A  62                              5 35'|'
                                     A  62        CONFIRM        4A  B  5 39
                     A  62                                  DSPATR                (PC)
                                     A  62                              5 48'and Press <ENTER>'
                                     A                                  6  1'Inv Date:'
                                     A            INVDATE       10A  B  6 13
                     A  62                                  DSPATR                (PR)
                                     A  62                              6 35'|'
                                     A  62                              6 51'To Confirm'
                                     A                                  7  1'PO Number:'
                                     A            TRNPO         14A  B  7 13
                     A  62                                  DSPATR                (PR)
                                     A  62                              7 35'|'
                                     A                                  8  1'PO Date:'
                                     A            PODATE        10A  B  8 13
                     A  62                                  DSPATR                (PR)
                                     A  62                              8 35'|'
                                     A                                 10  1'Hard Fail?'
                                     A            HARDFAIL       1A  B 10 13
                     A  62                                  DSPATR                (PR)
                                     A                                 10 15'(Y/N)'
                                     A                                 11  1'Reason:'
                                     A            REJECTRSN    100A  B 11 13CNTFLD(50)
                                     A  62                                  DSPATR(PR)
                                     A                                 14  1'Enter'
                                     A                                      DSPATR(HI)
                                     A                                 14  7'= Accept'
                                     A                                 14 17'F12'
                                     A                                      DSPATR(HI)
                                     A                                 14 21'= Cancel'
                                     A            VNDNAME       30   O  3 26
                     A                ****************************************************************
                                     A          R SCR4
                     A                                      DSPMOD                (*DS3)
                                     A                                  1  2'ED311'
                                     A            HEADING       40A  O  1 48
                     A                                  1120DATE
                     A                                      EDTCDE                (Y)
                                     A                                  2 54'Transmitted Invoice Inquiry'
                                     A                                      DSPATR(HI)
                                     A                                  2120TIME
                     A                                  2  2USER
                     A                                  4  1                '*Company*'
                                     A                                      DSPATR(HI)
                                     A            VNDNAME       30A  O  4 11DSPATR(HI)
                                     A                                  5 11'AP VndNo:'
                                     A            VNDNOAP        5Y 0O  5 21EDTCDE(Z)
                                     A                                      DSPATR(UL)
                                     A                                  5 28'PU VndNo:'
                                     A            VNDNOPU        5Y 0O  5 38EDTCDE(Z)
                                     A                                      DSPATR(UL)
                                     A                                  5 46'Line Code:'
                                     A            LINECODE       3A  O  5 57DSPATR(UL)
                                     A                                  7  1'*EXTOL*'
                                     A                                      DSPATR(HI)
                                     A                                  7 11'Acct:'
                                     A            EXTACCT        6A  O  7 17DSPATR(UL)
                                     A                                  7 24'Parent:'
                                     A            EXTACCTP       6A  O  7 32DSPATR(UL)
                                     A                                  7 39'Type:'
                                     A            ACCTTYPE       1Y 0O  7 45EDTCDE(Z)
                                     A                                      DSPATR(UL)
                                     A                                  7 50'Q:'
                                     A            EDIQUAL        2A  O  7 53DSPATR(UL)
                                     A                                  7 56'ID:'
                                     A            EDIID         15A  O  7 60DSPATR(UL)
                                     A                                  9  1'*Flags*'
                                     A                                      DSPATR(HI)
                                     A                                  9 11'AutoPost?'
                                     A            AUTO_POST      1A  O  9 21DSPATR(UL)
                                     A                                  9 23'(Y/N)'
                                     A                                  9 29'Status:'
                                     A            ACCTSTS        1A  O  9 37DSPATR(UL)
                                     A                                  9 39'(P/T)'
                                     A                                  9 45'810:'
                                     A            DOC810         1A  O  9 50DSPATR(UL)
                                     A                                  9 52'(X/A/M)'
                                     A                                  9 60'Notify:'
                                     A            NOTIFY810      1A  O  9 68DSPATR(UL)
                                     A                                  9 70'(E/F)'
                                     A                                 10 11'Var Amt$'
                                     A            VNDVARAMT      5Y 2O 10 20EDTCDE(3)
                                     A                                      DSPATR(UL)
                                     A                                 10 29'Var Pct%'
                                     A            VNDVARPCT      5Y 4O 10 38EDTCDE(3)
                                     A                                      DSPATR(UL)
                                     A                                 10 48'Tol Amt$'
                                     A            VNDTOLAMT      5Y 2O 10 57EDTCDE(3)
                                     A                                      DSPATR(UL)
                                     A                                 12  1'*EDI*'
                                     A                                      DSPATR(HI)
                                     A                                 12 11'Contact:'
                                     A            EDICONT       30A  O 12 20DSPATR(UL)
                                     A                                 13 11'P/Email:'
                                     A            EDIPMAIL      53A  O 13 20DSPATR(UL)
                                     A                                 14 11'G/Email:'
                                     A            EDIGMAIL      53A  O 14 20DSPATR(UL)
                                     A                                 15 11'Voice:'
                                     A            EDIVPHONE     10Y 0O 15 20EDTWRD('   /   -    ')
                                     A                                      DSPATR(UL)
                                     A                                 15 35'Fax:'
                                     A            EDIFPHONE     10Y 0O 15 40EDTWRD('   /   -    ')
                                     A                                      DSPATR(UL)
                                     A                                 17  1'*A/P*'
                                     A                                      DSPATR(HI)
                                     A                                 17 11'Contact:'
                                     A            APCONT        30A  O 17 20DSPATR(UL)
                                     A                                 18 11'P/Email:'
                                     A            APPMAIL       55A  O 18 20DSPATR(UL)
                                     A                                 19 11'G/Email:'
                                     A            APGMAIL       55A  O 19 20DSPATR(UL)
                                     A                                 20 11'Voice:'
                                     A            APVPHONE      10Y 0O 20 20EDTWRD('   /   -    ')
                                     A                                      DSPATR(UL)
                                     A                                 20 35'Fax:'
                                     A            APFPHONE      10Y 0O 20 40EDTWRD('   /   -    ')
                                     A                                      DSPATR(UL)
                                     A                                 24  3'Press ANY key'
                                     A                                      DSPATR(HI) 

                Comment

                • #9
                  Re: Multiple Format Display Example

                  PHP Code:
                       A*%%TS  SD  20100202  082449  FLANARY     REL-V5R4M0  5722-WDS
                       A                  *%%EC
                       A                                      DSPSIZ                  (27 132 *DS1                 -
                                         A                                             24 80 *DS2)
                                         A                                      PRINT
                                         A                                      INDARA
                       A                                      CA01
                       A                                      CA02
                       A                                      CA03
                       A                                      CA04
                       A                                      CA05
                       A                                      CA06
                       A                                      CA07
                       A                                      CA08
                       A                                      CA09
                       A                                      CA10
                       A                                      CA11
                       A                                      CA12
                       A                                      CA13
                       A                                      CA14
                       A                                      CA15
                       A                                      CF16                  (91)
                                         A                                      CA17
                       A                                      CA18
                       A                                      CA19
                       A                                      CA20
                       A                                      CA21
                       A                                      CA22
                       A                                      CA23
                       A                                      CA24
                       A                                      PAGEDOWN
                       A                                      PAGEUP
                       A                  ****************************************************************
                                         A          R SUB1                      SFL
                       A                  *%%TS  SD  20100202  082423  FLANARY     REL-V5R4M0  5722-WDS
                       A  35                                  SFLNXTCHG
                       A            OPT            1A  B 10  3DSPATR                  (HI)
                                         A  41                                  DSPATR(PC)
                                         A            VNDNUM         5Y 0O 10  6EDTCDE(3)
                                         A            LINECODE       3A  O 10 34
                       A            TRNPO         14A  O 10 61
                       A            SHIPID        15A  O 10 12
                       A            WHS            3Y 0O 10 29EDTCDE                  (Z)
                                         A            INVOICE       22A  O 10 38
                       A            INVDATE       10A  O 10 77
                       A            TOTINVAMT     12Y 2O 10 88EDTCDE                  (P)
                                         A            VNDNAME       30A  H
                       A                  ****************************************************************
                                         A          R CTL1                      SFLCTL(SUB1)
                                         A*%%TS  SD  20100202  082449  FLANARY     REL-V5R4M0  5722-WDS
                       A                    *DS1                                SFLSIZ(0010)
                                         A  *DS2                                SFLSIZ(0005)
                                         A  *DS1                                SFLPAG(0009)
                                         A  *DS2                                SFLPAG(0005)
                                         A                                      KEEP
                       A                                      BLINK
                       A                                      OVERLAY
                       A                                      PROTECT
                       A                                      PUTOVR
                       A                                      OVRDTA
                       A                                      OVRATR
                       A N98 97                               SFLDSP
                       A N98                                  SFLDSPCTL
                       A  98                                  SFLCLR
                       A  33                                  SFLEND                  (*MORE)
                                         A                                  1  3'ED311'
                                         A            HEADING       40A  O  1 48
                       A                                  1120DATE
                       A                                      EDTCDE                  (Y)
                                         A                                  2 54'Transmitted Invoice Inquiry'
                                         A                                      DSPATR(HI)
                                         A                                  3  3'Type Options, press Enter.'
                                         A                                      DSPATR(HI)
                                         A                                      COLOR(RED)
                                         A                                  4  6'1=Inv Header'
                                         A                                      DSPATR(HI)
                                         A                                      COLOR(RED)
                                         A                                  4 21'2=Inv Detail'
                                         A                                      COLOR(RED)
                                         A                                  4 36'3=Diff Detail'
                                         A                                      COLOR(RED)
                                         A                                  4 52'5=Vendor'
                                         A                                      COLOR(RED)
                                         A                                  4 63'6=Notes'
                                         A                                      COLOR(RED)
                                         A                                  4 72'8=Print'
                                         A                                      COLOR(RED)
                                         A                                  4 81'9=Delete'
                                         A                                      COLOR(RED)
                                         A                                  5 52'C=Change'
                                         A                                      COLOR(RED)
                                         A                                  5 63'P=Post'
                                         A                                      COLOR(RED)
                                         A                                  7  2'Opt'
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7  6'Vend#'
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 12'Ship ID        '
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 28'Whs#'
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 33'Line'
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 38'Invoice Number        '
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 61'PO Number      '
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 77'Inv Date  '
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A                                  7 90'    Inv Amnt'
                                         A                                      DSPATR(HI)
                                         A                                      DSPATR(UL)
                                         A            FVNDNUM        5Y 0B  8  6EDTCDE(Z)
                                         A            FSHIPID       15A  B  8 12
                       A            FWHS           3Y 0B  8 29EDTCDE                  (Z)
                                         A            FLINE          3A  B  8 34
                       A            FINVOICE      22A  B  8 38
                       A            FTRNPO        15A  B  8 61
                       A            FINVDATE      10A  B  8 77
                       A            FTOTINVAMT    12Y 2B  8 90EDTCDE                  (Z)
                                         A                                  2120TIME
                       A                  ****************************************************************
                                         A          R FTR1                      TEXT('COMMAND RECORD')
                                         A                                      OVERLAY
                       A                                 25  2                  'Enter ='
                                         A                                      DSPATR(HI)
                                         A                                 25 10'Search/Process'
                                         A                                 25 31'F1 ='
                                         A                                      DSPATR(HI)
                                         A                                 25 36'Exit'
                                         A                                      DSPATR(HI)
                                         A            MSGLNE        70A  O 26  2DSPATR(HI)
                                         A                                      COLOR(RED)
                                         A                                 25 48'F4 ='
                                         A                                      DSPATR(HI)
                                         A                                 25 53'Validate & Promote'
                                         A****************************************************************
                                         A          R SFLMSG
                       A                                      SFL
                       A                                      SFLMSGRCD                  (24)
                                         A            MSGKEY                    SFLMSGKEY
                       A                              @PROGRAM                  SFLPGMQ(10)
                                         A****************************************************************
                                         A          R CTLMSG
                       A                                      SFLCTL                  (SFLMSG)
                                         A                                      SFLSIZ(10)
                                         A                                      SFLPAG(1)
                                         A                                      OVERLAY
                       A  99                                  SFLDSP
                       A  99                                  SFLDSPCTL
                       A  99                                  SFLINZ
                       A                              @PROGRAM                  SFLPGMQ(10)
                                         A****************************************************************
                                         A          R WIN8                      TEXT('Modify Soft Fail Fields')
                                         A                                      WINDOW(5 5 14 67 *NOMSGLIN)
                                         A                                      WDWTITLE((*TEXT 'Correct Soft Fail -
                       A                                      Values'                  ) (*DSPATR HI))
                                         A            @PROGRAM      10A  O  1  1
                       A                                  1 60TIME
                       A                                  2 17                  'Invoice#'
                                         A            INVOICE       22A  O  2 26DSPATR(HI)
                                         A                                  4  1'Vendor No'
                                         A            VNDNUM         5Y 0B  4 13EDTCDE(3)
                                         A  62                                  DSPATR(PR)
                                         A  62                              4 35'|'
                                         A  62                              4 50'Enter ''*YES'''
                                         A                                  5  1'Warehouse#'
                                         A            WHS            3Y 0B  5 13EDTCDE(3)
                                         A  62                                  DSPATR(PR)
                                         A  62                              5 35'|'
                                         A  62        CONFIRM        4A  B  5 39
                       A  62                                  DSPATR                  (PC)
                                         A  62                              5 48'and Press <ENTER>'
                                         A                                  6  1'Inv Date:'
                                         A            INVDATE       10A  B  6 13
                       A  62                                  DSPATR                  (PR)
                                         A  62                              6 35'|'
                                         A  62                              6 51'To Confirm'
                                         A                                  7  1'PO Number:'
                                         A            TRNPO         14A  B  7 13
                       A  62                                  DSPATR                  (PR)
                                         A  62                              7 35'|'
                                         A                                  8  1'PO Date:'
                                         A            PODATE        10A  B  8 13
                       A  62                                  DSPATR                  (PR)
                                         A  62                              8 35'|'
                                         A                                 10  1'Hard Fail?'
                                         A            HARDFAIL       1A  B 10 13
                       A  62                                  DSPATR                  (PR)
                                         A                                 10 15'(Y/N)'
                                         A                                 11  1'Reason:'
                                         A            REJECTRSN    100A  B 11 13CNTFLD(50)
                                         A  62                                  DSPATR(PR)
                                         A                                 14  1'Enter'
                                         A                                      DSPATR(HI)
                                         A                                 14  7'= Accept'
                                         A                                 14 17'F12'
                                         A                                      DSPATR(HI)
                                         A                                 14 21'= Cancel'
                                         A            VNDNAME       30   O  3 26
                       A                  ****************************************************************
                                         A          R SCR4
                       A                                  1  2                  'ED311'
                                         A            HEADING       40A  O  1 48
                       A                                  1120DATE
                       A                                      EDTCDE                  (Y)
                                         A                                  2 54'Transmitted Invoice Inquiry'
                                         A                                      DSPATR(HI)
                                         A                                  2120TIME
                       A                                  2  2USER
                       A                                  4  1                  '*Company*'
                                         A                                      DSPATR(HI)
                                         A            VNDNAME       30A  O  4 11DSPATR(HI)
                                         A                                  5 11'AP VndNo:'
                                         A            VNDNOAP        5Y 0O  5 21EDTCDE(Z)
                                         A                                      DSPATR(UL)
                                         A                                  5 28'PU VndNo:'
                                         A            VNDNOPU        5Y 0O  5 38EDTCDE(Z)
                                         A                                      DSPATR(UL)
                                         A                                  5 46'Line Code:'
                                         A            LINECODE       3A  O  5 57DSPATR(UL)
                                         A                                  7  1'*EXTOL*'
                                         A                                      DSPATR(HI)
                                         A                                  7 11'Acct:'
                                         A            EXTACCT        6A  O  7 17DSPATR(UL)
                                         A                                  7 24'Parent:'
                                         A            EXTACCTP       6A  O  7 32DSPATR(UL)
                                         A                                  7 39'Type:'
                                         A            ACCTTYPE       1Y 0O  7 45EDTCDE(Z)
                                         A                                      DSPATR(UL)
                                         A                                  7 50'Q:'
                                         A            EDIQUAL        2A  O  7 53DSPATR(UL)
                                         A                                  7 56'ID:'
                                         A            EDIID         15A  O  7 60DSPATR(UL)
                                         A                                  9  1'*Flags*'
                                         A                                      DSPATR(HI)
                                         A                                  9 11'AutoPost?'
                                         A            AUTO_POST      1A  O  9 21DSPATR(UL)
                                         A                                  9 23'(Y/N)'
                                         A                                  9 29'Status:'
                                         A            ACCTSTS        1A  O  9 37DSPATR(UL)
                                         A                                  9 39'(P/T)'
                                         A                                  9 45'810:'
                                         A            DOC810         1A  O  9 50DSPATR(UL)
                                         A                                  9 52'(X/A/M)'
                                         A                                  9 60'Notify:'
                                         A            NOTIFY810      1A  O  9 68DSPATR(UL)
                                         A                                  9 70'(E/F)'
                                         A                                 10 11'Var Amt$'
                                         A            VNDVARAMT      5Y 2O 10 20EDTCDE(3)
                                         A                                      DSPATR(UL)
                                         A                                 10 29'Var Pct%'
                                         A            VNDVARPCT      5Y 4O 10 38EDTCDE(3)
                                         A                                      DSPATR(UL)
                                         A                                 10 48'Tol Amt$'
                                         A            VNDTOLAMT      5Y 2O 10 57EDTCDE(3)
                                         A                                      DSPATR(UL)
                                         A                                 12  1'*EDI*'
                                         A                                      DSPATR(HI)
                                         A                                 12 11'Contact:'
                                         A            EDICONT       30A  O 12 20DSPATR(UL)
                                         A                                 13 11'P/Email:'
                                         A            EDIPMAIL      53A  O 13 20DSPATR(UL)
                                         A                                 14 11'G/Email:'
                                         A            EDIGMAIL      53A  O 14 20DSPATR(UL)
                                         A                                 15 11'Voice:'
                                         A            EDIVPHONE     10Y 0O 15 20EDTWRD('   /   -    ')
                                         A                                      DSPATR(UL)
                                         A                                 15 35'Fax:'
                                         A            EDIFPHONE     10Y 0O 15 40EDTWRD('   /   -    ')
                                         A                                      DSPATR(UL)
                                         A                                 17  1'*A/P*'
                                         A                                      DSPATR(HI)
                                         A                                 17 11'Contact:'
                                         A            APCONT        30A  O 17 20DSPATR(UL)
                                         A                                 18 11'P/Email:'
                                         A            APPMAIL       55A  O 18 20DSPATR(UL)
                                         A                                 19 11'G/Email:'
                                         A            APGMAIL       55A  O 19 20DSPATR(UL)
                                         A                                 20 11'Voice:'
                                         A            APVPHONE      10Y 0O 20 20EDTWRD('   /   -    ')
                                         A                                      DSPATR(UL)
                                         A                                 20 35'Fax:'
                                         A            APFPHONE      10Y 0O 20 40EDTWRD('   /   -    ')
                                         A                                      DSPATR(UL)
                                         A                                 24  3'Press ANY key'
                                         A                                      DSPATR(HI) 
                  Attached Files
                  All my answers were extracted from the "Big Dummy's Guide to the As400"
                  and I take no responsibility for any of them.

                  www.code400.com

                  Comment

                  • #10
                    Re: Multiple Format Display Example

                    Thanks .. the Subfile is correct at 27x132 but, that doesn't change the display of SCR4 to *DSP3 (24x80)... it keeps it at 27x132.

                    Comment

                    • #11
                      Re: Multiple Format Display Example

                      try this
                      PHP Code:
                           A*%%TS  SD  20100202  082449  FLANARY     REL-V5R4M0  5722-WDS
                           A                      *%%EC
                           A                                      DSPSIZ                      (27 132 *LARGE 24 80 *NORMAL)
                                                 A                                      PRINT
                                                 A                                      INDARA
                           A                                      CA01
                           A                                      CA02
                           A                                      CA03
                           A                                      CA04
                           A                                      CA05
                           A                                      CA06
                           A                                      CA07
                           A                                      CA08
                           A                                      CA09
                           A                                      CA10
                           A                                      CA11
                           A                                      CA12
                           A                                      CA13
                           A                                      CA14
                           A                                      CA15
                           A                                      CF16                      (91)
                                                 A                                      CA17
                           A                                      CA18
                           A                                      CA19
                           A                                      CA20
                           A                                      CA21
                           A                                      CA22
                           A                                      CA23
                           A                                      CA24
                           A                                      PAGEDOWN
                           A                                      PAGEUP
                           A                      ****************************************************************
                                                 A          R SUB1                      SFL
                           A                      *%%TS  SD  20100202  082423  FLANARY     REL-V5R4M0  5722-WDS
                           A  35                                  SFLNXTCHG
                           A            OPT            1A  B 10  3DSPATR                      (HI)
                                                 A  41                                  DSPATR(PC)
                                                 A            VNDNUM         5Y 0O 10  6EDTCDE(3)
                                                 A            LINECODE       3A  O 10 34
                           A            TRNPO         14A  O 10 61
                           A            SHIPID        15A  O 10 12
                           A            WHS            3Y 0O 10 29EDTCDE                      (Z)
                                                 A            INVOICE       22A  O 10 38
                           A            INVDATE       10A  O 10 77
                           A            TOTINVAMT     12Y 2O 10 88EDTCDE                      (P)
                                                 A            VNDNAME       30A  H
                           A                      ****************************************************************
                                                 A          R CTL1                      SFLCTL(SUB1)
                                                 A*%%TS  SD  20100202  082449  FLANARY     REL-V5R4M0  5722-WDS
                           A                        *LARGE                              SFLSIZ(0010)
                                                 A  *NORMAL                             SFLSIZ(0005)
                                                 A  *LARGE                              SFLPAG(0009)
                                                 A  *NORMAL                             SFLPAG(0005)
                                                 A                                      KEEP
                           A                                      BLINK
                           A                                      OVERLAY
                           A                                      PROTECT
                           A                                      PUTOVR
                           A                                      OVRDTA
                           A                                      OVRATR
                           A N98 97                               SFLDSP
                           A N98                                  SFLDSPCTL
                           A  98                                  SFLCLR
                           A  33                                  SFLEND                      (*MORE)
                                                 A                                  1  3'ED311'
                                                 A            HEADING       40A  O  1 48
                           A                                  1120DATE
                           A                                      EDTCDE                      (Y)
                                                 A                                  2 54'Transmitted Invoice Inquiry'
                                                 A                                      DSPATR(HI)
                                                 A                                  3  3'Type Options, press Enter.'
                                                 A                                      DSPATR(HI)
                                                 A                                      COLOR(RED)
                                                 A                                  4  6'1=Inv Header'
                                                 A                                      DSPATR(HI)
                                                 A                                      COLOR(RED)
                                                 A                                  4 21'2=Inv Detail'
                                                 A                                      COLOR(RED)
                                                 A                                  4 36'3=Diff Detail'
                                                 A                                      COLOR(RED)
                                                 A                                  4 52'5=Vendor'
                                                 A                                      COLOR(RED)
                                                 A                                  4 63'6=Notes'
                                                 A                                      COLOR(RED)
                                                 A                                  4 72'8=Print'
                                                 A                                      COLOR(RED)
                                                 A                                  4 81'9=Delete'
                                                 A                                      COLOR(RED)
                                                 A                                  5 52'C=Change'
                                                 A                                      COLOR(RED)
                                                 A                                  5 63'P=Post'
                                                 A                                      COLOR(RED)
                                                 A                                  7  2'Opt'
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7  6'Vend#'
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 12'Ship ID        '
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 28'Whs#'
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 33'Line'
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 38'Invoice Number        '
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 61'PO Number      '
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 77'Inv Date  '
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 90'    Inv Amnt'
                                                 A                                      DSPATR(HI)
                                                 A                                      DSPATR(UL)
                                                 A            FVNDNUM        2Y 0B  8  6EDTCDE(Z)
                                                 A            FSHIPID       15A  B  8 12
                           A            FWHS           3Y 0B  8 29EDTCDE                      (Z)
                                                 A            FLINE          3A  B  8 34
                           A            FINVOICE      22A  B  8 38
                           A            FTRNPO        15A  B  8 61
                           A            FINVDATE      10A  B  8 77
                           A            FTOTINVAMT    12Y 2B  8 90EDTCDE                      (Z)
                                                 A                                  2120TIME
                           A                      ****************************************************************
                                                 A          R FTR1                      TEXT('COMMAND RECORD')
                                                 A                                      OVERLAY
                           A                                 25  2                      'Enter ='
                                                 A                                      DSPATR(HI)
                                                 A                                 25 10'Search/Process'
                                                 A                                 25 31'F1 ='
                                                 A                                      DSPATR(HI)
                                                 A                                 25 36'Exit'
                                                 A                                      DSPATR(HI)
                                                 A            MSGLNE        70A  O 26  2DSPATR(HI)
                                                 A                                      COLOR(RED)
                                                 A                                 25 48'F4 ='
                                                 A                                      DSPATR(HI)
                                                 A                                 25 53'Validate & Promote'
                                                 A****************************************************************
                                                 A          R SFLMSG
                           A                                      SFL
                           A                                      SFLMSGRCD                      (24)
                                                 A            MSGKEY                    SFLMSGKEY
                           A                                  @PROGRAM                  SFLPGMQ(10)
                                                 A****************************************************************
                                                 A          R CTLMSG
                           A                                      SFLCTL                      (SFLMSG)
                                                 A                                      SFLSIZ(10)
                                                 A                                      SFLPAG(1)
                                                 A                                      OVERLAY
                           A  99                                  SFLDSP
                           A  99                                  SFLDSPCTL
                           A  99                                  SFLINZ
                           A                                  @PROGRAM                  SFLPGMQ(10)
                                                 A****************************************************************
                                                 A          R WIN8                      TEXT('Modify Soft Fail Fields')
                                                 A                                      WINDOW(5 5 14 67 *NOMSGLIN)
                                                 A                                      WDWTITLE((*TEXT 'Correct Soft Fail -
                           A                                      Values'                      ) (*DSPATR HI))
                                                 A            @PROGRAM      10A  O  1  1
                           A                                  1 60TIME
                           A                                  2 17                      'Invoice#'
                                                 A            INVOICE       22A  O  2 26DSPATR(HI)
                                                 A                                  4  1'Vendor No'
                                                 A            VNDNUM         5Y 0B  4 13EDTCDE(3)
                                                 A  62                                  DSPATR(PR)
                                                 A  62                              4 35'|'
                                                 A  62                              4 50'Enter ''*YES'''
                                                 A                                  5  1'Warehouse#'
                                                 A            WHS            3Y 0B  5 13EDTCDE(3)
                                                 A  62                                  DSPATR(PR)
                                                 A  62                              5 35'|'
                                                 A  62        CONFIRM        4A  B  5 39
                           A  62                                  DSPATR                      (PC)
                                                 A  62                              5 48'and Press <ENTER>'
                                                 A                                  6  1'Inv Date:'
                                                 A            INVDATE       10A  B  6 13
                           A  62                                  DSPATR                      (PR)
                                                 A  62                              6 35'|'
                                                 A  62                              6 51'To Confirm'
                                                 A                                  7  1'PO Number:'
                                                 A            TRNPO         14A  B  7 13
                           A  62                                  DSPATR                      (PR)
                                                 A  62                              7 35'|'
                                                 A                                  8  1'PO Date:'
                                                 A            PODATE        10A  B  8 13
                           A  62                                  DSPATR                      (PR)
                                                 A  62                              8 35'|'
                                                 A                                 10  1'Hard Fail?'
                                                 A            HARDFAIL       1A  B 10 13
                           A  62                                  DSPATR                      (PR)
                                                 A                                 10 15'(Y/N)'
                                                 A                                 11  1'Reason:'
                                                 A            REJECTRSN    100A  B 11 13CNTFLD(50)
                                                 A  62                                  DSPATR(PR)
                                                 A                                 14  1'Enter'
                                                 A                                      DSPATR(HI)
                                                 A                                 14  7'= Accept'
                                                 A                                 14 17'F12'
                                                 A                                      DSPATR(HI)
                                                 A                                 14 21'= Cancel'
                                                 A            VNDNAME       30   O  3 26
                           A                      ****************************************************************
                                                 A          R SCR4
                           A                                  1  2                      'ED311'
                                                 A            HEADING       40A  O  1 48
                           A                                  1120DATE
                           A                                      EDTCDE                      (Y)
                                                 A                                  2 54'Transmitted Invoice Inquiry'
                                                 A                                      DSPATR(HI)
                                                 A                                  2120TIME
                           A                                  2  2USER
                           A                                  4  1                      '*Company*'
                                                 A                                      DSPATR(HI)
                                                 A            VNDNAME       30A  O  4 11DSPATR(HI)
                                                 A                                  5 11'AP VndNo:'
                                                 A            VNDNOAP        5Y 0O  5 21EDTCDE(Z)
                                                 A                                      DSPATR(UL)
                                                 A                                  5 28'PU VndNo:'
                                                 A            VNDNOPU        5Y 0O  5 38EDTCDE(Z)
                                                 A                                      DSPATR(UL)
                                                 A                                  5 46'Line Code:'
                                                 A            LINECODE       3A  O  5 57DSPATR(UL)
                                                 A                                  7  1'*EXTOL*'
                                                 A                                      DSPATR(HI)
                                                 A                                  7 11'Acct:'
                                                 A            EXTACCT        6A  O  7 17DSPATR(UL)
                                                 A                                  7 24'Parent:'
                                                 A            EXTACCTP       6A  O  7 32DSPATR(UL)
                                                 A                                  7 39'Type:'
                                                 A            ACCTTYPE       1Y 0O  7 45EDTCDE(Z)
                                                 A                                      DSPATR(UL)
                                                 A                                  7 50'Q:'
                                                 A            EDIQUAL        2A  O  7 53DSPATR(UL)
                                                 A                                  7 56'ID:'
                                                 A            EDIID         15A  O  7 60DSPATR(UL)
                                                 A                                  9  1'*Flags*'
                                                 A                                      DSPATR(HI)
                                                 A                                  9 11'AutoPost?'
                                                 A            AUTO_POST      1A  O  9 21DSPATR(UL)
                                                 A                                  9 23'(Y/N)'
                                                 A                                  9 29'Status:'
                                                 A            ACCTSTS        1A  O  9 37DSPATR(UL)
                                                 A                                  9 39'(P/T)'
                                                 A                                  9 45'810:'
                                                 A            DOC810         1A  O  9 50DSPATR(UL)
                                                 A                                  9 52'(X/A/M)'
                                                 A                                  9 60'Notify:'
                                                 A            NOTIFY810      1A  O  9 68DSPATR(UL)
                                                 A                                  9 70'(E/F)'
                                                 A                                 10 11'Var Amt$'
                                                 A            VNDVARAMT      5Y 2O 10 20EDTCDE(3)
                                                 A                                      DSPATR(UL)
                                                 A                                 10 29'Var Pct%'
                                                 A            VNDVARPCT      5Y 4O 10 38EDTCDE(3)
                                                 A                                      DSPATR(UL)
                                                 A                                 10 48'Tol Amt$'
                                                 A            VNDTOLAMT      5Y 2O 10 57EDTCDE(3)
                                                 A                                      DSPATR(UL)
                                                 A                                 12  1'*EDI*'
                                                 A                                      DSPATR(HI)
                                                 A                                 12 11'Contact:'
                                                 A            EDICONT       30A  O 12 20DSPATR(UL)
                                                 A                                 13 11'P/Email:'
                                                 A            EDIPMAIL      53A  O 13 20DSPATR(UL)
                                                 A                                 14 11'G/Email:'
                                                 A            EDIGMAIL      53A  O 14 20DSPATR(UL)
                                                 A                                 15 11'Voice:'
                                                 A            EDIVPHONE     10Y 0O 15 20EDTWRD('   /   -    ')
                                                 A                                      DSPATR(UL)
                                                 A                                 15 35'Fax:'
                                                 A            EDIFPHONE     10Y 0O 15 40EDTWRD('   /   -    ')
                                                 A                                      DSPATR(UL)
                                                 A                                 17  1'*A/P*'
                                                 A                                      DSPATR(HI)
                                                 A                                 17 11'Contact:'
                                                 A            APCONT        30A  O 17 20DSPATR(UL)
                                                 A                                 18 11'P/Email:'
                                                 A            APPMAIL       55A  O 18 20DSPATR(UL)
                                                 A                                 19 11'G/Email:'
                                                 A            APGMAIL       55A  O 19 20DSPATR(UL)
                                                 A                                 20 11'Voice:'
                                                 A            APVPHONE      10Y 0O 20 20EDTWRD('   /   -    ')
                                                 A                                      DSPATR(UL)
                                                 A                                 20 35'Fax:'
                                                 A            APFPHONE      10Y 0O 20 40EDTWRD('   /   -    ')
                                                 A                                      DSPATR(UL)
                                                 A                                 24  3'Press ANY key'
                                                 A                                      DSPATR(HI) 
                      Attached Files
                      All my answers were extracted from the "Big Dummy's Guide to the As400"
                      and I take no responsibility for any of them.

                      www.code400.com

                      Comment

                      • #12
                        Re: Multiple Format Display Example

                        Thanks Jamie...

                        That got me there. It was just missing a DSPMOD(*Normal) in the SCR4 Record. This gives me what I needed.

                        So, what's the difference between *DS3, *DS4, *Normal & *Large? Weird... not getting it (yet) .. but, it's working!

                        Comment

                        Previous template Next
                        Working...
                        X