midrange.com code scratchpad
Name:
Display File gives a permanent I/O error
Scriptlanguage:
Plain Text
Tabwidth:
2
Date:
10/13/2008 05:32:32 pm
IP:
Logged
Description:
The problem appears to be the Customer name field (S000IV) in the subfile record (ZFM2).

Sorry this isn't easier to read, but the code is generated. You're not supposed to have to look at it. <grin>
Code:
  1.      A* ***********************************************************************
  2.      A*
  3.      A* Service Visit Header.Service Manager Dashboard.Main Panel.List panel :
  4.      A* FV011RP
  5.      A*
  6.      A* ***********************************************************************
  7.      A*
  8.      A* Generated by: AllFusion Plex r5.5 SP1  (Build 93.033)
  9.      A* Date/Time:    Friday, October 10, 2008 - 4:37 PM
  10.      A* Group Model:  \\NA.CINTAS.COM\CORP\LOC_00092\MIS\SHARED\H&S\FIRSTAID V5
  11.      A* Local Model:  C:\DOCUMENTS AND SETTINGS\C1162332\MY
  12.      A* DOCUMENTS\PLEX\WILTC55.MDL
  13.      A* User:              Charles
  14.      A* Version:          Release 6.0
  15.      A* Level:             Release 6.0
  16.      A* Variant:           Base
  17.      A* Language:      Base
  18.      A*
  19.      A* ***********************************************************************
  20.      A*
  21.      Y* YOBUPDVLXF HLTHITGDTA/YOBVAL HLTHCURRLS/QDDSSRC FV011RP
  22.      Z* CRTDSPF RSTDSP(*YES)
  23.      A                                      DSPSIZ( *DS4 )
  24.      A                                      INDARA
  25.      A                                      HELP
  26.      A                                      ALTHELP( CA01 )
  27.      A                                      PAGEDOWN( 01 ' ' )
  28.      A                                      PRINT
  29.      A                                      ALTPAGEUP( CF07 )
  30.      A                                      ALTPAGEDWN( CF08 )
  31.      A          R ZZCLFM
  32.      A            ZZCLFD         1   H
  33.      A*
  34.      A          R MSGSFL32
  35.      A                                      SFL
  36.      A                                      SFLMSGRCD( 27 )
  37.      A            MSGKEY                    SFLMSGKEY
  38.      A            MSGQ                      SFLPGMQ
  39.      A          R MSGCTL32
  40.      A                                      SFLCTL( MSGSFL32 )
  41.      A                                      OVERLAY
  42.      A                                      SFLINZ
  43.      A                                      SFLDSP
  44.      A                                      SFLDSPCTL
  45.      A                                      SFLPAG( 1  )
  46.      A                                      SFLSIZ( 2  )
  47.      A            MSGQ                      SFLPGMQ
  48.      A*
  49.      A* ***********************************************************************
  50.      A*
  51.      A* DDS Panel name: List Service Visit Header
  52.      A*
  53.      A*
  54.      A* ***********************************************************************
  55.      A*
  56.      A          R ZFM3
  57.      A                                      TEXT( 'Title' )
  58.      A                                      OVERLAY
  59.      A                                      KEEP
  60.      A                                  1  2'Date  . :'
  61.      A                                      DSPATR( &G0001H )
  62.      A            G0001H         1A  P
  63.      A*
  64.      A* Warning-BLD-1636:Length of field 'Panel date' on the panel: '6'
  65.      A* differs from its length in the program: '8'
  66.      A*
  67.      A            D0014R         6  0B  1 12
  68.      A                                      TEXT( 'Panel date' )
  69.      A                                      EDTCDE( Y)
  70.      A                                      DSPATR( &G0001G )
  71.      A            G0001G         1A  P
  72.      A            D0014T         8  0H
  73.      A                                  1108'Time  . . . :'
  74.      A                                      DSPATR( &G0001J )
  75.      A            G0001J         1A  P
  76.      A            D0014V         6  0B  1122
  77.      A                                      TEXT( 'Panel time' )
  78.      A                                      EDTWRD( '  :  :  ')
  79.      A                                      DSPATR( &G0001I )
  80.      A            G0001I         1A  P
  81.      A            D00150         6  0H
  82.      A                                  2  2'User Id :'
  83.      A                                      DSPATR( &G0001N )
  84.      A            G0001N         1A  P
  85.      A            S000I3        10   B  2 12
  86.      A                                      TEXT( 'User Id' )
  87.      A                                      DSPATR( &G0001M )
  88.      A                                      CHECK( LC )
  89.      A            G0001M         1A  P
  90.      A            H000I3        10   H
  91.      A                                  2108'Function id :'
  92.      A                                      DSPATR( &G0001L )
  93.      A            G0001L         1A  P
  94.      A            S000I1        10   B  2122
  95.      A                                      TEXT( 'Function id' )
  96.      A                                      DSPATR( &G0001K )
  97.      A                                      CHECK( LC )
  98.      A            G0001K         1A  P
  99.      A            H000I1        10   H
  100.      A                                  1 56'CintAs Corporation'
  101.      A                                      DSPATR( &G0001O )
  102.      A            G0001O         1A  P
  103.      A                                  2 55'Scheduling Dashboard'
  104.      A                                      DSPATR( &G0001P )
  105.      A            G0001P         1A  P
  106.      A*
  107.      A* ***********************************************************************
  108.      A*
  109.      A          R ZFM8
  110.      A                                      TEXT( 'STD Subfile Control' )
  111.      A                                      OVERLAY
  112.      A                                      KEEP
  113.      A            G0002L         1A  H
  114.      A            S000GU         5   H
  115.      A*                                     TEXT( 'Location Number' )
  116.      A*                                     DSPATR( &G0002K )
  117.      A            G0002K         1A  H
  118.      A            H000GU         5   H
  119.      A            G0002T         1A  H
  120.      A            S000H3         2   H
  121.      A*                                     TEXT( 'Route' )
  122.      A*                                     DSPATR( &G0002S )
  123.      A            G0002S         1A  H
  124.      A            H000H3         2   H
  125.      A            G00032         1A  H
  126.      A            S000HH        25   H
  127.      A*                                     TEXT( 'Location Description DRV' )
  128.      A*                                     DSPATR( &G00031 )
  129.      A            G00031         1A  H
  130.      A            H000HH        25   H
  131.      A                                  3  2'View  .'
  132.      A                                      DSPATR( &G0002N )
  133.      A            G0002N         1A  P
  134.      A            S000GW         1   B  3 10
  135.      A                                      TEXT( 'Service Manager Dashboard -
  136.      A                                      View' )
  137.      A                                      DSPATR( &G0002M )
  138.      A                                      VALUES( '1' '2' '3' '4' )
  139.      A                                      CHECK( LC AB )
  140.      A            G0002M         1A  P
  141.      A            H000GW         1   H
  142.      A            G0002P         1A  H
  143.      A            S000HF        20   B  3 12
  144.      A                                      TEXT( 'Srv Mgr Dashboard View Tex-
  145.      A                                      t DRV' )
  146.      A                                      DSPATR( &G0002O )
  147.      A            G0002O         1A  P
  148.      A            H000HF        20   H
  149.      A                                  4  2'Service Manager'
  150.      A                                      DSPATR( &G0002R )
  151.      A            G0002R         1A  P
  152.      A            S000H1         3   B  4 18
  153.      A                                      TEXT( 'Service Manager Code' )
  154.      A                                      DSPATR( &G0002Q )
  155.      A            G0002Q         1A  P
  156.      A            H000H1         3   H
  157.      A            G0002J         1A  H
  158.      A            D00156        12  0H
  159.      A*                                     TEXT( 'Service Visit Number' )
  160.      A*                                     DSPATR( &G0002I )
  161.      A            G0002I         1A  H
  162.      A            D00158        12  0H
  163.      A                                  4 24'Route'
  164.      A                                      DSPATR( &G0002V )
  165.      A            G0002V         1A  P
  166.      A            D0015K         2  0B  4 30
  167.      A                                      TEXT( 'Route.Route number' )
  168.      A                                      EDTCDE( 4)
  169.      A                                      DSPATR( &G0002U )
  170.      A            G0002U         1A  P
  171.      A            D0015M         2  0H
  172.      A                                  4 35'Service by Date'
  173.      A                                      DSPATR( &G00030 )
  174.      A            G00030         1A  P
  175.      A            D0015O         8  0B  4 51
  176.      A                                      TEXT( 'Current Service By Date' )
  177.      A                                      EDTWRD( '  /  /    ')
  178.      A                                      DSPATR( &G0002W )
  179.      A            G0002W         1A  P
  180.      A            D0015Q         8  0H
  181.      A                                  4 64'(F17 = More Filters)'
  182.      A                                      DSPATR( &G00033 )
  183.      A            G00033         1A  P
  184.      A*
  185.      A* ***********************************************************************
  186.      A*
  187.      A          R ZFM5
  188.      A                                      TEXT( 'Selector text' )
  189.      A                                      OVERLAY
  190.      A                                      KEEP
  191.      A            G0001U         1A  H
  192.      A                                  5  2'Type options, press Enter.    '
  193.      A                                      DSPATR( &G0001V )
  194.      A            G0001V         1A  P
  195.      A                                  6  2'2=View Details'
  196.      A                                      DSPATR( &G0001W )
  197.      A            G0001W         1A  P
  198.      A                                  6 19'3=Visit History'
  199.      A                                      DSPATR( &G00020 )
  200.      A            G00020         1A  P
  201.      A                                  6 38'4=No Service'
  202.      A                                      DSPATR( &G00021 )
  203.      A            G00021         1A  P
  204.      A                                  6 54'5=View Customer'
  205.      A                                      DSPATR( &G00022 )
  206.      A            G00022         1A  P
  207.      A                                  6 71'6=Constraints'
  208.      A                                      DSPATR( &G00023 )
  209.      A            G00023         1A  P
  210.      A                                  6 88'7=Schd Visit'
  211.      A                                      DSPATR( &G00024 )
  212.      A            G00024         1A  P
  213.      A                                  6102'8=Grp Schd'
  214.      A                                      DSPATR( &G00025 )
  215.      A            G00025         1A  P
  216.      A                                  6116'9=Print Srvc Sht'
  217.      A                                      DSPATR( &G00026 )
  218.      A            G00026         1A  P
  219.      A                                  7  2'10=Cust Notes'
  220.      A                                      DSPATR( &G00027 )
  221.      A            G00027         1A  P
  222.      A                                  7 19'11=Srvc Categories'
  223.      A                                      DSPATR( &G00028 )
  224.      A            G00028         1A  P
  225.      A                                  7 40'12=RePrint SV'
  226.      A                                      DSPATR( &G00029 )
  227.      A            G00029         1A  P
  228.      A*
  229.      A* ***********************************************************************
  230.      A*
  231.      A          R ZFM7
  232.      A                                      TEXT( 'Top Header Line for Grid' )
  233.      A                                      OVERLAY
  234.      A                                      KEEP
  235.      A                                  8 30'---'
  236.      A                                      DSPATR( &G0002A )
  237.      A            G0002A         1A  P
  238.      A                                  8 14'Service'
  239.      A                                      DSPATR( &G0002B )
  240.      A            G0002B         1A  P
  241.      A                                  8 34'Service by'
  242.      A                                      DSPATR( &G0002C )
  243.      A            G0002C         1A  P
  244.      A                                  8 85'A'
  245.      A                                      DSPATR( &G0002D )
  246.      A            G0002D         1A  P
  247.      A                                  8 52'S'
  248.      A                                      DSPATR( &G0002E )
  249.      A            G0002E         1A  P
  250.      A                                  8104'----- Equip To Service ----'
  251.      A                                      DSPATR( &G0002F )
  252.      A            G0002F         1A  P
  253.      A                                  8 62'A'
  254.      A                                      DSPATR( &G0002G )
  255.      A            G0002G         1A  P
  256.      A                                  8 45'---'
  257.      A                                      DSPATR( &G0002H )
  258.      A            G0002H         1A  P
  259.      A*
  260.      A* ***********************************************************************
  261.      A*
  262.      A          R ZFM2
  263.      A                                      TEXT( 'Grid' )
  264.      A                                      SFL
  265.      A  02                                  SFLNXTCHG
  266.      A            ZRM2           1   H
  267.      A            ZRN2           1   H
  268.      A            ZRY2           1   H
  269.      A            S000KR         2   B 10  2
  270.      A                                      TEXT( 'STD Grid Selector' )
  271.      A                                      DSPATR( &G00001 )
  272.      A                                      VALUES( ' ' ' 1' '2' ' 2' '3' ' 3-
  273.      A                                      ' '4' ' 4' '5' ' 5' '6' ' 6' '7' -
  274.      A                                      ' 7' '8' ' 8' '9' ' 9' '10' '11' -
  275.      A                                      '12' '1' )
  276.      A                                      CHECK( AB )
  277.      A                                      CHANGE( 04 'Selected?' )
  278.      A            G00001         1A  P
  279.      A            H000KR         2   H
  280.      A            S000IA         2   H
  281.      A*                                     TEXT( 'Route' )
  282.      A*                                     DSPATR( &G00003 )
  283.      A*                                     CHANGE( 03 'Modified?' )
  284.      A            G00003         1A  H
  285.      A            H000IA         2   H
  286.      A            D0014L         5  0H
  287.      A*                                     TEXT( 'Customer Number' )
  288.      A*                                     DSPATR( &G0001C )
  289.      A*                                     CHANGE( 03 'Modified?' )
  290.      A            G0001C         1A  H
  291.      A            D0014N         5  0H
  292.      A            D0012O         8  0H
  293.      A*                                     TEXT( 'Current Service By Date MM-
  294.      A*                                     DD' )
  295.      A*                                     DSPATR( &G00007 )
  296.      A*                                     CHANGE( 03 'Modified?' )
  297.      A            G00007         1A  H
  298.      A            D0012Q         8  0H
  299.      A            D00141         5  0H
  300.      A*                                     TEXT( 'Total Equipment to Service-
  301.      A*                                      Count' )
  302.      A*                                     DSPATR( &G00012 )
  303.      A*                                     CHANGE( 03 'Modified?' )
  304.      A            G00012         1A  H
  305.      A            D00143         5  0H
  306.      A            S000KP         5   H
  307.      A*                                     TEXT( 'Location Number' )
  308.      A*                                     DSPATR( &G0001E )
  309.      A*                                     CHANGE( 03 'Modified?' )
  310.      A            G0001E         1A  H
  311.      A            H000KP         5   H
  312.      A            D00133         6  0H
  313.      A*                                     TEXT( 'Current Start Time' )
  314.      A*                                     DSPATR( &G0000D )
  315.      A*                                     CHANGE( 03 'Modified?' )
  316.      A            G0000D         1A  H
  317.      A            D00135         6  0H
  318.      A            D0013B         6  0H
  319.      A*                                     TEXT( 'Current By Time' )
  320.      A*                                     DSPATR( &G0000H )
  321.      A*                                     CHANGE( 03 'Modified?' )
  322.      A            G0000H         1A  H
  323.      A            D0013D         6  0H
  324.      A            D0012W        12  0B 10  8
  325.      A                                      TEXT( 'Service Visit Number' )
  326.      A                                      EDTCDE( M)
  327.      A                                      DSPATR( &G0000B )
  328.      A                                      CHANGE( 03 'Modified?' )
  329.      A            G0000B         1A  P
  330.      A            D00131        12  0H
  331.      A            D0012K         2  0B 10 25
  332.      A                                      TEXT( 'Route.Route number' )
  333.      A                                      EDTCDE( 4)
  334.      A                                      DSPATR( &G00005 )
  335.      A                                      CHANGE( 03 'Modified?' )
  336.      A            G00005         1A  P
  337.      A            D0012M         2  0H
  338.      A            D0012S         4  0B 10 30
  339.      A                                      TEXT( 'Current Service By Date MM-
  340.      A                                      DD.Month and Day EXT' )
  341.      A                                      EDTWRD( '  /  ')
  342.      A                                      DSPATR( &G00009 )
  343.      A                                      CHANGE( 03 'Modified?' )
  344.      A            G00009         1A  P
  345.      A            D0012U         4  0H
  346.      A            D00137         4  0B 10 37
  347.      A                                      TEXT( 'Current Start Time.Hour an-
  348.      A                                      d Minutes DSP' )
  349.      A                                      EDTWRD( '0 :  ')
  350.      A                                      DSPATR( &G0000F )
  351.      A                                      CHANGE( 03 'Modified?' )
  352.      A            G0000F         1A  P
  353.      A            D00139         4  0H
  354.      A            D0013F         4  0B 10 43
  355.      A                                      TEXT( 'Current By Time.Hour and M-
  356.      A                                      inutes DSP' )
  357.      A                                      EDTWRD( '0 :  ')
  358.      A                                      DSPATR( &G0000J )
  359.      A                                      CHANGE( 03 'Modified?' )
  360.      A            G0000J         1A  P
  361.      A            D0013H         4  0H
  362.      A            S000IR         1   B 10 52
  363.      A                                      TEXT( 'SV Service Type' )
  364.      A                                      DSPATR( &G0000L )
  365.      A                                      VALUES( 'R' 'S' 'E' 'P' 'M' )
  366.      A                                      CHECK( AB )
  367.      A                                      CHANGE( 03 'Modified?' )
  368.      A            G0000L         1A  P
  369.      A            H000IR         1   H
  370.      A            S000JV         3   B 10 56
  371.      A                                      TEXT( 'Customer Serv Constraints -
  372.      A                                      String' )
  373.      A                                      DSPATR( &G0000N )
  374.      A                                      CHANGE( 03 'Modified?' )
  375.      A            G0000N         1A  P
  376.      A            H000JV         3   H
  377.      A            S000IT         1   B 10 62
  378.      A                                      TEXT( 'Customer Held' )
  379.      A                                      DSPATR( &G0000P )
  380.      A                                      VALUES( 'Y' 'N' )
  381.      A                                      CHECK( AB )
  382.      A                                      CHANGE( 03 'Modified?' )
  383.      A            G0000P         1A  P
  384.      A            H000IT         1   H
  385.      A*
  386.      A* Warning-BLD-1636:Length of field 'Customer Name' on the panel: '15'
  387.      A* differs from its length in the program: '25'
  388.      A*
  389.      A            S000IV        15   B 10 67
  390.      A                                      TEXT( 'Customer Name' )
  391.      A                                      DSPATR( &G0000R )
  392.      A                                      CHANGE( 03 'Modified?' )
  393.      A            G0000R         1A  P
  394.      A            H000IV        25   H
  395.      A            S000J0         1   B 10 85
  396.      A                                      TEXT( 'Combined KeyNA Acct Flag.V-
  397.      A                                      alue' )
  398.      A                                      DSPATR( &G0000T )
  399.      A                                      VALUES( 'K' ' ' 'N' 'B' )
  400.      A                                      CHECK( AB )
  401.      A                                      CHANGE( 03 'Modified?' )
  402.      A            G0000T         1A  P
  403.      A            H000J0         1   H
  404.      A            S000J2         5   B 10 89
  405.      A                                      TEXT( 'Zip 5' )
  406.      A                                      DSPATR( &G0000V )
  407.      A                                      CHANGE( 03 'Modified?' )
  408.      A            G0000V         1A  P
  409.      A            H000J2         5   H
  410.      A            S000J4         2   B 10 97
  411.      A                                      TEXT( 'Customer Held Reason' )
  412.      A                                      DSPATR( &G00010 )
  413.      A                                      VALUES( 'AR' ' ' )
  414.      A                                      CHECK( AB )
  415.      A                                      CHANGE( 03 'Modified?' )
  416.      A            G00010         1A  P
  417.      A            H000J4         2   H
  418.      A            D00145         4  0B 10104
  419.      A                                      TEXT( 'Open Service Visit PORT' )
  420.      A                                      EDTCDE( 4)
  421.      A                                      DSPATR( &G00014 )
  422.      A                                      CHANGE( 03 'Modified?' )
  423.      A            G00014         1A  P
  424.      A            D00147         4  0H
  425.      A            D00149         4  0B 10112
  426.      A                                      TEXT( 'Open Service Visit ELIT' )
  427.      A                                      EDTCDE( 4)
  428.      A                                      DSPATR( &G00016 )
  429.      A                                      CHANGE( 03 'Modified?' )
  430.      A            G00016         1A  P
  431.      A            D0014B         4  0H
  432.      A            D0014D         4  0B 10120
  433.      A                                      TEXT( 'Open Service Visit KSYS' )
  434.      A                                      EDTCDE( 4)
  435.      A                                      DSPATR( &G00018 )
  436.      A                                      CHANGE( 03 'Modified?' )
  437.      A            G00018         1A  P
  438.      A            D0014F         4  0H
  439.      A            D0014H         4  0B 10127
  440.      A                                      TEXT( 'Open Service Visit OTHER' )
  441.      A                                      EDTCDE( 4)
  442.      A                                      DSPATR( &G0001A )
  443.      A                                      CHANGE( 03 'Modified?' )
  444.      A            G0001A         1A  P
  445.      A            D0014J         4  0H
  446.      A*
  447.      A* ***********************************************************************
  448.      A*
  449.      A          R ZFM1
  450.      A                                      SFLCTL( ZFM2 )
  451.      A                                      OVERLAY
  452.      A  02                                  SFLCLR
  453.      A N02 05                               SFLDSP
  454.      A N02                                  SFLDSPCTL
  455.      A  03N02 05                            SFLEND( *MORE )
  456.      A                                      SFLPAG( 15 )
  457.      A                                      SFLSIZ( 16 )
  458.      A                                      SFLCSRRRN( &ZRC1 )
  459.      A                                      SFLMODE( &ZRT1 )
  460.      A            ZRD1           4S 0H      SFLRCDNBR
  461.      A            ZRC1           5S 0H
  462.      A            ZRT1           1A  H
  463.      A                                  9  2'?'
  464.      A                                      DSPATR( &G00002 )
  465.      A            G00002         1A  P
  466.      A            G00004         1A  H
  467.      A            G0001D         1A  H
  468.      A            G00008         1A  H
  469.      A            G00013         1A  H
  470.      A            G0001F         1A  H
  471.      A            G0000E         1A  H
  472.      A            G0000I         1A  H
  473.      A                                  9  8'        Visit'
  474.      A                                      DSPATR( &G0000C )
  475.      A            G0000C         1A  P
  476.      A                                  9 25'Rt'
  477.      A                                      DSPATR( &G00006 )
  478.      A            G00006         1A  P
  479.      A                                  9 30' Date'
  480.      A                                      DSPATR( &G0000A )
  481.      A            G0000A         1A  P
  482.      A                                  9 37'Time'
  483.      A                                      DSPATR( &G0000G )
  484.      A            G0000G         1A  P
  485.      A            G0000K         1A  H
  486.      A                                  9 52'T'
  487.      A                                      DSPATR( &G0000M )
  488.      A            G0000M         1A  P
  489.      A                                  9 56' @'
  490.      A                                      DSPATR( &G0000O )
  491.      A            G0000O         1A  P
  492.      A                                  9 62'R'
  493.      A                                      DSPATR( &G0000Q )
  494.      A            G0000Q         1A  P
  495.      A                                  9 67'Customer Name'
  496.      A                                      DSPATR( &G0000S )
  497.      A            G0000S         1A  P
  498.      A                                  9 85'T'
  499.      A                                      DSPATR( &G0000U )
  500.      A            G0000U         1A  P
  501.      A                                  9 89'Zip'
  502.      A                                      DSPATR( &G0000W )
  503.      A            G0000W         1A  P
  504.      A                                  9 97'Hld'
  505.      A                                      DSPATR( &G00011 )
  506.      A            G00011         1A  P
  507.      A                                  9104'Port'
  508.      A                                      DSPATR( &G00015 )
  509.      A            G00015         1A  P
  510.      A                                  9112'Elit'
  511.      A                                      DSPATR( &G00017 )
  512.      A            G00017         1A  P
  513.      A                                  9120'Ksys'
  514.      A                                      DSPATR( &G00019 )
  515.      A            G00019         1A  P
  516.      A                                  9127'Othr'
  517.      A                                      DSPATR( &G0001B )
  518.      A            G0001B         1A  P
  519.      A*
  520.      A* ***********************************************************************
  521.      A*
  522.      A          R ZFM4
  523.      A                                      TEXT( 'Function key text' )
  524.      A                                      OVERLAY
  525.      A                                      KEEP
  526.      A                                 26 72'F17=Filter... '
  527.      A                                      DSPATR( &G0001Q )
  528.      A            G0001Q         1A  P
  529.      A                                 26  2'F3=Close'
  530.      A                                      DSPATR( &G0001R )
  531.      A            G0001R         1A  P
  532.      A                                 26 49'F5=Refresh'
  533.      A                                      DSPATR( &G0001S )
  534.      A            G0001S         1A  P
  535.      A                                 26 23'F4=Prompt'
  536.      A                                      DSPATR( &G0001T )
  537.      A            G0001T         1A  P
  538.      A*
  539.      A* ***********************************************************************
  540.      A*
  541.      A          R ZFM6
  542.      A                                      TEXT( 'Panel' )
  543.      A                                      OVERLAY
  544.      A                                      KEEP
  545.      A*
  546.      A* ***********************************************************************
  547.      A*
  548.      A          R ZFM9
  549.      A                                      TEXT( 'Base Region' )
  550.      A                                      OVERLAY
  551.      A                                      KEEP
  552.      A  03                                  CF04( 01 'F4=Prompt' )
  553.      A  05                                  CF17( 01 'Filter' )
  554.      A  06                                  CF05( 01 '5=View Customer' )
  555.      A  08                                  CF03( 01 'Close' )
  556.      A                                      RTNCSRLOC( &SM5 &SM6 &SM7 )
  557.      A                                      CSRLOC( SM2 SM1 )
  558.      A                                      HLPCLR
  559.      A                                      HLPTITLE( 'Main Panel Help' )
  560.      A          H                           HLPARA( 1   1   27  132 )
  561.      A                                      HLPPNLGRP( OBSYDFTHLP OBSYDFTHLP )
  562.      A            SM5           10   H
  563.      A            SM6           10   H
  564.      A            SM7            4S 0H
  565.      A            SM2            3  0H
  566.      A            SM1            3  0H
  567.      A*
  568.      A* ***********************************************************************
  569.      A*       Display file dropdown values list support
  570.      A*           Panel   Control   Value
  571.      A*            Id       Id       Id     Value
  572.      A* :VALUE 0352848833  00312 0352847091 1
  573.      A* :VALUE 0352848833  00312 0352847085 2
  574.      A* :VALUE 0352848833  00312 0352847082 3
  575.      A* :VALUE 0352848833  00312 0352847076 4
  576.      A* :VALUE 0352848833  00155 1040187747
  577.      A* :VALUE 0352848833  00155 1040187688  1
  578.      A* :VALUE 0352848833  00155 1040187745 2
  579.      A* :VALUE 0352848833  00155 1040187686  2
  580.      A* :VALUE 0352848833  00155 1040187744 3
  581.      A* :VALUE 0352848833  00155 1040187684  3
  582.      A* :VALUE 0352848833  00155 1040187743 4
  583.      A* :VALUE 0352848833  00155 1040187682  4
  584.      A* :VALUE 0352848833  00155 1040187742 5
  585.      A* :VALUE 0352848833  00155 1040187680  5
  586.      A* :VALUE 0352848833  00155 1040187741 6
  587.      A* :VALUE 0352848833  00155 1040187678  6
  588.      A* :VALUE 0352848833  00155 1040187740 7
  589.      A* :VALUE 0352848833  00155 1040187676  7
  590.      A* :VALUE 0352848833  00155 1040187739 8
  591.      A* :VALUE 0352848833  00155 1040187674  8
  592.      A* :VALUE 0352848833  00155 1040187738 9
  593.      A* :VALUE 0352848833  00155 1040187672  9
  594.      A* :VALUE 0352848833  00155 1040187670 10
  595.      A* :VALUE 0352848833  00155 1040188754 11
  596.      A* :VALUE 0352848833  00155 1040188752 12
  597.      A* :VALUE 0352848833  00155 1040187746 1
  598.      A* :VALUE 0352848833  00185 0352795594 R
  599.      A* :VALUE 0352848833  00185 0352795592 S
  600.      A* :VALUE 0352848833  00185 0352795590 E
  601.      A* :VALUE 0352848833  00185 0352795588 P
  602.      A* :VALUE 0352848833  00185 0352804284 M
  603.      A* :VALUE 0352848833  00191 0352789268 Y
  604.      A* :VALUE 0352848833  00191 0352789267 N
  605.      A* :VALUE 0352848833  00197 0352846075 K
  606.      A* :VALUE 0352848833  00197 0352846072
  607.      A* :VALUE 0352848833  00197 0352846069 N
  608.      A* :VALUE 0352848833  00197 0352846066 B
  609.      A* :VALUE 0352848833  00203 0352789107 AR
  610.      A* :VALUE 0352848833  00203 0352789376
  611.      A* *********************************************************************** 
© 2004-2019 by midrange.com generated in 0.01s valid xhtml & css