midrange.com code scratchpad
Name:
Space issue
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
06/01/2022 08:15:20 pm
IP:
Logged
Description:
Please find below Program and display file description at high level.
Code:
  1.  
  2. *************************************************************************************************************************************
  3. Display File Screenshot looks like this at high level:-
  4.  
  5.   
  6.  
  7.                            Inquiry Screen    
  8.              
  9.  
  10.     
  11. Heading1( With some text..)
  12.  
  13. Heading2( with some text..)
  14.  
  15. Heading3 (With Some text..)
  16.  
  17. Heading4 (With some text..)
  18. Heading5 (with some text..)
  19.  
  20.  
  21. Heading6 (With some text...)
  22.  
  23. -----
  24. ----
  25. ----
  26. -----                     +
  27.  
  28.  
  29. Some records shown here as per SFLPAG Size (4) then t bottom '+' sign is shown so that when we do page down here more records are shown 
  30. under Heading6 while remaing records under Heading1 to Heading5 on same page keep displaying as it is.
  31.  
  32. ******Display file:-************************************************************************************************************************
  33. A   R    REC1          SFL
  34. A   A1   R         O  19  2REFFLD(Fld1)
  35. A   R    CTL1         SFLCTL(REC1)
  36. A                     SFLSIZ(120)
  37. A                     SFLPAG(0004)
  38. A                     OVERLAY
  39. A                     SFLDSP
  40. A                     SFLDSPCTL
  41. A                     SFLCLR
  42. A                     SFLEND
  43. A                     CF12(12 'Cancel')
  44. A
  45. A  RRN     4S  0H
  46.  
  47. ***then some fields defined But main issue is appearing
  48. to get one line space between heading4 and and heading5 when this Display
  49. file is called using RPGLE program**
  50.  
  51.  
  52.  
  53. A                  6 2'Heading1'
  54. A
  55. A    T1    R    O  7  2REFFLD(Fld1)
  56. A                  8  2'Heading2'
  57. A    T2    R    O  9  2REFFLD(Fld1)
  58. A                 10  2REFFLD'Heading3'
  59. A    T3    R    O 11  2REFFLD(Fld1)
  60. A                 12  2'Heading4'
  61. A    T4    R    O 13  2REFFLD(Fld1)
  62. A                 14  2'Heading5'
  63. A    T5    R    O 15  2REFFLD(Fld1)
  64. A    T6    R    O 16  2REFFLD(Fld1)  
  65. A                 18  2'Heading6'
  66.  
  67. ************************************************************************
  68. Main subroutine in RPGLE Program which loads above portion of display file:-
  69.  
  70. C     fld2     IFEQ       '1'
  71. C              MOVEL      Fld1     T1
  72. C              ELSE
  73. C     fld2     IFEQ       '2'
  74. C              MOVEL      Fld1     T2
  75. C              ELSE
  76. C     fld2     IFEQ       '3'
  77. C              MOVEL      Fld1     T3
  78. C              ELSE
  79. C     fld2     IFEQ       '4'
  80. C              MOVEL      Fld1     T4
  81. C     fld2     IFEQ       '6'
  82. C     T5       IFEQ       *BLANKS
  83. C              MOVEL      Fld1     T5
  84. C              ELSE 
  85. C              MOVEL      Fld1     T6
  86. C              ENDIF
  87. C              ELSE
  88. C    fld2      IFEQ      '5'
  89. C              MOVEL     Fld1      A1
  90. C              ADD       1         CNT
  91. C              ADD       1         RRN
  92. C              WRITE    REC1
  93. C              END
  94. C              ENDIF
  95. C              END
  96. C              END
  97. C              END
  98. C              END
  99. C              ELSE
  100. C              MOVEL      *BLANKS    A1
  101. C              ADD         1         CNT
  102. C              ADD         1         RRN
  103. C              WRITE      REC1
  104. C              END
  105. C              END
  106. C              END
  107.  
  108. *************************************************************************************************************
  109. Note:- 1) Fld1 and fld2 are fields of some files here.
  110.  
  111. 2) Heading6 again is a subfile which shows 4 records as per Subfile Page defined in above DDS.
  112. Heading6 shows properly and Space after Heading1,Heading2,Heading3 and Heading5 is fine and looks good.
  113. Only issue is happening here is for space after Heading4 and when above relevent RPGLE program is called then we
  114. find no space after heading4 and before the Heading5.
  115.  
  116.  
  117. ***************************************************************************************************************
  118.  
  119.  
  120.  
  121.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css