Difference between revisions of "QDFRTVFD — Retrieve Display File Description"

From MidrangeWiki
Jump to: navigation, search
(Introduction)
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
 +
#REDIRECT [[Retrieve Display File Description (QDFRTVFD)]]
 
[[Category:API]]
 
[[Category:API]]
[[Category:Sample Code]]
+
[[Category:RPG_Prototypes]]
__FORCETOC__
 
 
 
 
 
== Introduction ==
 
 
 
I based my DSM logic on this example.[http://www.code400.com/forum/showthread.php/11226-Dynamic-screen-example-with-FTP]
 
Dynamic screen example with FTP
 
Thanks to Scott Klement [http://www.scottklement.com/] for posting the best samples of code on the web to play with!
 
 
 
I based my code for the [https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qdfrtvfd.htm QDFRTVFD] [[API]] on the example from Scott Klement.
 
Thank you Scott. [http://archive.midrange.com/rpg400-l/200603/msg00033.html]<br>
 
My code looks very different to Scotts work. But without Scotts example I would not have got anywhere.
 
 
 
The key to understanding the API is that on any one iteration though the
 
data structures ONLY ONE FIELDS INFORMATION AT A TIME is retrieved.
 
 
 
The DSPINFO program is not complete. <br>
 
But it does get enough info to show a layout.<br>
 
Much remains to be done; a partial list is, WINDOWS, SUBFILES, REFERENCES,ATTRIBUTES etc etc etc. <br>
 
I am now amazed and humbled by the work of the IBM programmers that set up such a thing as an external display file.
 
 
 
I found IBM documentation both detailed and frustrating in particular how to set the pointers to the next iteration of a DS.<br>
 
And there is a very devious bit on the indexes WDFWRRDX WDFWNMEI you must use these and never assume the fields follow some sequence.
 
 
 
I am having trouble with the retrieval of attributes (file , record and field)<br>
 
I get a weird result with edit codes.<br>
 
<pre>
 
#FLDEDT = '�£ ��¥¥^:�¥¥^:�¥¥  '  for  1 61TIME EDTWRD('  :  :  ')
 
EVAL #FldEdt    :x                                                     
 
  00000    03B14003 03B2B2B0 7A03B2B2 B07A03B2  - .£ ..¥¥^:.¥¥^:.¥ 
 
  00010    B2404040 ........ ........ ........  - ¥  ............ 
 
</pre>
 
I found the IBM code for the API in QSYSINC too arcane to use as is.<br>
 
However it was a good start and after removing the comments and renaming fields to match the IBM docs of QDFRTVFD I used the result.<br>
 
I also reformatted some of the DS to use the OVERLAY notation.<br>
 
Also there are many fields missing in the QSYSINC of the type like WDFFRC<br>
 
 
 
<pre>
 
  ====  example of missing field  ===
 
Row-Column Table (QDFFRCTB)
 
Row-column table, one table per screen size.
 
Offset Bit Type Variable Name
 
Dec Hex
 
0 0 CHAR(1) WDFFFRRO
 
1 1 CHAR(1) WDFFFRCO
 
2 2 CHAR(1) WDFFTORO
 
3 3 CHAR(1) WDFFTOCO
 
4 4 CHAR(1) WDFFRBIT
 
4 4 0 BIT(1) WDFFMDF
 
4 4 1 BIT(1) WDFFFRC1
 
4 4 2 BIT(1) WDFFTRAT
 
4 4 3 BIT(1) WDFFR1C1
 
4 4 4 BIT(1) WDFFR2C1
 
4 4 5 BIT(3) *
 
5 5 CHAR(1) *
 
6 6 CHAR(*) WDFFRC
 
 
 
</pre>
 
 
 
 
 
[[#top]]
 
 
 
 
 
 
 
 
 
=== DSPINFO  Svc Pgm ===
 
 
 
 
 
This service program uses the QDFRTVFD  API to pass back the Display file Fields and Constants via a MODS.<br>
 
The amount of info returned is very rudimentary compared with what could be returned.
 
 
 
 
 
 
 
<pre>
 
usage 
 
parm  sent
 
$FilQul = $Fil + $lib;
 
parms returned
 
  #GotFlds    --  Number of fields and constants
 
  #FldDtaDS    --  MODS  with field/constant info
 
 
 
*IN10 = RTVFLDS ($FilQul : #GotFlds    : FldDtaDS);
 
 
 
    D FldDtaDS        DS                  occurs(1000)
 
    D  #FmtNam                      10A
 
    D  #FldNam                      10A
 
    D  #FldLen                      5I 0
 
    D  #FldPlen                      5I 0
 
    D  #FldDec                      1
 
    D  #FldIO                        1
 
    D  #FldAtr                      1
 
    D  #FldDTUS                      1
 
    D  #FldEdt                      20A
 
    D  #FldRow                      10I 0
 
    D  #FldCol                      10I 0
 
    D  #FldCom                    4000A  varying
 
</pre>
 
 
 
<pre>
 
      *-------------------------------------------------------------------
 
      *  = Service program... DspFInfo=
 
      *  = Description....... Retrieve display file information routines=
 
      *-------------------------------------------------------------------
 
      *  CRTSQLRPGI OBJ(urlib/DSPFINFO)
 
      *              SRCFILE(urlib/ursrcfile)
 
      *              SRCMBR(DSPFINFO)
 
      *              OBJTYPE(*MODULE) REPLACE(*yes)
 
      *                             
 
      *  CRTSRVPGM SRVPGM(urlib/DSPFINFO)
 
      *            MODULE(urlib/DSPFINFO)
 
      *            EXPORT(*ALL)
 
      *
 
 
 
      *
 
 
 
    H NoMain
 
 
 
      *-------------------------------------------------------------------
 
      *  - RtvDspFDesc - Retrieve display file description (QDFRTVFD API)-
 
      *-------------------------------------------------------------------
 
 
 
    D RtvDspFDesc    PR                  ExtPgm( 'QDFRTVFD' )
 
    D                                8
 
    D                              10I 0 Const
 
    D                                8    Const
 
    D                              20    Const
 
    D                              272
 
 
 
 
 
    D RtvFlds        PR              N
 
    D  QDspFil                      20A    Value
 
    D  QNumFlds                    10I 0
 
    D  QFlddta                            Like(FldDtaDS)
 
 
 
    D FldDtaDS        DS                  Based (p_FldDtaDS) occurs(1000)
 
    D  #FmtNam                      10A
 
    D  #FldNam                      10A
 
    D  #FldLen                      5I 0
 
    D  #FldPlen                      5I 0
 
    D  #FldDec                      1
 
    D  #FldIO                        1
 
    D  #FldAtr                      1
 
    D  #FldDTUS                      1
 
    D  #FldEdt                      20A
 
    D  #FldRow                      10I 0
 
    D  #FldCol                      10I 0
 
    D  #FldCom                    4000A  varying
 
      *---------------------------------------------------------------*
 
      *  Retrieve Display File Fields                                *
 
      *---------------------------------------------------------------*
 
 
 
    P RtvFlds        B                  Export
 
 
 
 
 
 
 
    D  RtvFlds        PI                  Like(LglTyp)
 
    D  QDspFil                            Like( QNamTyp ) Value
 
    D  Numflds                      10I 0
 
    D  FldDta                            Like(FldDtaDS)
 
 
 
 
 
      *-------------------------------------------------------------------
 
      *  - Base -
 
      *-------------------------------------------------------------------
 
 
 
    D QDFFBASE        DS                  Based( p_QDFFBASE) qualified
 
    D  WDFFINFO                      5I 0 Overlay( QDFFBASE :  9 )
 
    D  WDFFRCS                      5I 0 Overlay( QDFFBASE : 11 )
 
    D  WDFFSCR                      5I 0 Overlay( QDFFBASE : 14 )
 
    D  WDFFSCRS                      1A  Overlay( QDFFBASE : 20 )
 
 
 
      *    p_QDFFSCRA  = %addr( QDFFBASE.WDFFSCRS)  first
 
      *    p_QDFFSCRA  = P_QDFFSCRA + %size(QDFFSCRA) * n  next
 
    DQDFFSCRA        DS                  Based( p_QDFFSCRA ) qualified
 
    D WDFFSCIA                1      1
 
    D WDFRVED2                2      5
 
 
 
    DQDFFSSEQ        DS                  Based( p_QDFFSSEQ ) qualified
 
    D WDFFFSST                1    256
 
    D WDFFFSSC              257    260U 0
 
    D WDFFFSSN              261    270
 
    D WDFFFSSL              271    280
 
    D  WDFBITS00            281    282
 
    D WDFRVED4              283    308
 
 
 
      *-------------------------------------------------------------------
 
      *  - File Header -
 
      *  p_QDFFINFO  =  p_QDFFBASE + QDFFBASE.WDFFINFO
 
      *-------------------------------------------------------------------
 
    D QDFFINFO        DS                  Based( p_QDFFINFO) qualified
 
    D  WDFFDFLO                    10I 0 Overlay( QDFFINFO : 1 )
 
    D  WDFFWUOF                    10I 0 Overlay( QDFFINFO : 5 )
 
    D  WDFFFMWU                    10I 0 Overlay( QDFFINFO : 9 )
 
    D  WDFFXDOF                      5I 0 Overlay( QDFFINFO : 35)
 
    D  ZDFF                  1    50A
 
 
 
      *-------------------------------------------------------------------
 
      *  - File Where Used  -
 
      *  p_QDFWFLEI = p_QDFFINFO + QDFFINFO.WDFFWUOF
 
      *-------------------------------------------------------------------
 
    D QDFWFLEI        DS                  Based( p_QDFWFLEI) qualified
 
    D  WDFWXLEN                      5I 0 Overlay( QDFWFLEI : 1 )
 
    D  WDFWXOKW                      5I 0 Overlay( QDFWFLEI : 3 )
 
    D  WDFWWULN                    10I 0 Overlay( QDFWFLEI : 5 )
 
    D  WDFWNTBO                    10I 0 Overlay( QDFWFLEI : 9 )
 
    D  WDFFWXIN                      5I 0 Overlay( QDFWFLEI : 12)
 
        // pointer
 
    D  WDFWINDX                      1A  Overlay( QDFWFLEI : 19)
 
      *-------------------------------------------------------------------
 
      *  - File Dev Dept    -
 
      *  p_QDFFDPDD = p_QDFFINFO + QDFFINFO.WDFFXDOF
 
      *-------------------------------------------------------------------
 
    D QDFFDPDD        DS                  Based( p_QDFFDPDD) qualified
 
    D  WDFFFKWD                      5I 0 Overlay( QDFFDPDD : 9 )
 
    D  WDFFSHB1                      5I 0 Overlay( QDFFDPDD : 13)
 
    D  WDFFSHRA                      5I 0 Overlay( QDFFDPDD : 16)
 
    D  WDFFCKY1                      5I 0 Overlay( QDFFDPDD : 17)
 
    D  WDFFCKY2                      5I 0 Overlay( QDFFDPDD : 18)
 
    D  WDFFCKY3                      5I 0 Overlay( QDFFDPDD : 19)
 
    D  WDFFMKWD                      5I 0 Overlay( QDFFDPDD : 20)
 
    D  WDFFMKW2                      5I 0 Overlay( QDFFDPDD : 21)
 
    D  WDFFXDOC                      5I 0 Overlay( QDFFDPDD : 25)
 
 
 
      *-------------------------------------------------------------------
 
      *  - Name Table-
 
      *  p_QDFFNTBL  = p_QDFWFLEI + QDFWFLEI.WDFWNTBO
 
      *-------------------------------------------------------------------
 
    D QDFFNTBL        DS                  Based( p_QDFFNTBL) qualified
 
    D  WDFFNMS                      10I 0 Overlay( QDFFNTBL : 1 )
 
        // pointer to array char(10)
 
    D  WDFFNMES                      1A
 
 
 
 
 
      // Field Name
 
    D QDFFNTB        DS                  Based( p_QDFFNTB ) qualified
 
    D  WDFFNAM                    10A
 
 
 
      *-------------------------------------------------------------------
 
      *  - Record Where Used -
 
      *  p_QDFWRCDI  = p_QDFWFLEI + QDFWFLEI.WDFWXLEN  first
 
      *-------------------------------------------------------------------
 
    D QDFWRCDI        DS                  Based( p_QDFWRCDI ) qualified
 
    D  WDFWRLEN                      5I 0 Overlay( QDFWRCDI : 1 )
 
    D  WDFWROKW                      5I 0 Overlay( QDFWRCDI : 3 )
 
    D  WDFWNXTR                    10I 0 Overlay( QDFWRCDI : 5 )
 
    D  WDFWRIN                      5I 0 Overlay( QDFWRCDI : 9 )
 
        //  pointer to indicator table
 
    D  WDFWINDR                      1A  Overlay( QDFWRCDI : 13)
 
 
 
      *-------------------------------------------------------------------
 
      *  - Record Format Table-
 
      *  p_QDFARFTE  = p_QDFFINFO + QDFFINFO.WDFFDFLO        first
 
      *  p_QDFARFTE  = p_QDFARFTE + %Len( QDFARFTE ) next
 
      *    alt p_QDFARFTE  = p_QDFFINFO + QDFFINFO.WDFFDFLO +
 
      *                              (%size(QDFARFTE) * x)
 
      *-------------------------------------------------------------------
 
    D QDFARFTE        DS                  Based  ( p_QDFARFTE ) qualified
 
    D  WDFARFNM                    10    Overlay( QDFARFTE : 1  )
 
    D  WDFARCND                      5I 0 Overlay( QDFARFTE : 11 )
 
    D  WDFARFOF                    10I 0 Overlay( QDFARFTE : 13 )
 
 
 
    DQDFFSEQT        DS                  Based  ( p_QDFFSEQT ) qualified
 
    D WDFFFSEQ                1    13
 
    D WDFVED17              14    16
 
      *-------------------------------------------------------------------
 
      *  - Record Header    -
 
      *    p_QDFFRINF  = p_QDFFINFO +  QDFARFTE.WDFARFOF
 
      *-------------------------------------------------------------------
 
    D QDFFRINF        DS                  Based  ( p_QDFFRINF ) qualified
 
    D  WDFFRDDO                    10I 0 Overlay( QDFFRINF :  1 )
 
    D  WDFFOFIT                    10I 0 Overlay( QDFFRINF :  5 )
 
    D  WDFFSTBO                    10I 0 Overlay( QDFFRINF :  9 )
 
    D  WDFFRFLG1                    1A  Overlay( QDFFRINF : 13 )
 
    D  WDFFRFLG2                    1A  Overlay( QDFFRINF : 14 )
 
    D  WDFFFLD                      5I 0 Overlay( QDFFRINF : 17 )
 
    D  WDFFINDO                      5I 0 Overlay( QDFFRINF : 23 )
 
    D  WDFFRAOF                      5I 0 Overlay( QDFFRINF : 29 )
 
      *-------------------------------------------------------------------
 
      *  Display-Record-Level Device-Dependent
 
      *  p_QDFFXRDP  =  p_QDFFRINF  +  QDFFRDPD.WDFFXRDO
 
    DQDFFXRDP        DS                  Based  (p_QDFFXRDP ) qualified
 
    D WDFFFOTO                1      4B 0
 
    D WDFFNRCO                5      8B 0
 
    D WDFVED33                9    12
 
    D WDFFSEGS              13    14B 0
 
    D WDFVED34              15    16
 
    D WDFHCTLO              17    18B 0
 
    D WDFVED35              19    24
 
    D
 
    DQDFFSFCR        DS                  Based  (p_QDFFSFCR ) qualified
 
    D WDFFSFLG                1    34
 
    D WDFFSFEN              35    35
 
    D WDFFSFDR              36    36
 
    D  WDFBITS19            37    37
 
    D  WDFBITS20            38    38
 
    D WDFFSFPQ              39    40B 0
 
    D WDFFSFVL              41    42B 0
 
    D WDFFSFVO              43    44B 0
 
    D WDFFSFFI              45    46B 0
 
    D WDFFFSFL01            47    48B 0
 
    D WDFFFSFO              49    50B 0
 
    D WDFXTOFF              51    52B 0
 
    D  WDFBITS21            53    53
 
    D WDFVED37              54    54
 
    D WDFFSFPM              55    55
 
    D
 
    DQDFSFSRU        DS                  Based  (p_QDFSFSRU ) qualified
 
    D WDFVED39                1      1
 
    D WDFFSFSR                2      2
 
 
 
    DQDFSFERU        DS                  Based  (p_QDFSFERU ) qualified
 
    D WDFVED40                1      1
 
    D WDFFSFER                2      2
 
 
 
    DQDFSFH2U        DS                  Based  (p_QDFSFH2U ) qualified
 
    D WDFFSFH1                1      2B 0
 
    D WDFFSFH2                3      4B 0
 
    D
 
    DQDFCREXT        DS                  Based  (p_QDFCREXT ) qualified
 
    D WDFCRLLO                1      2B 0
 
    D WDFIZSFO                3      4B 0
 
    D WDFELOFF                5      6B 0
 
    D WDFELCH1                7      7
 
    D WDFELCH2                8      8
 
    D WDFVED42                9    16
 
 
 
      *-------------------------------------------------------------------
 
      *  - Record Device-Dependent  (QDFFRDPD)
 
      *  p_QDFFRDPD  = p_QDFFRINF + WDFFRAOF
 
      *-------------------------------------------------------------------
 
    D QDFFRDPD        DS                  Based  (p_QDFFRDPD ) qualified
 
    D  WDFFDRCO                    10I 0 Overlay( QDFFRDPD :  1 )
 
    D  WDFFINCP                      5I 0 Overlay( QDFFRDPD :  5 )
 
    D  WDFFIBF                      5I 0 Overlay( QDFFRDPD :  7 )
 
    D  WDFFOIS                      5I 0 Overlay( QDFFRDPD :  9 )
 
    D  WDFACKYS                      4A  Overlay( QDFFRDPD : 13 )
 
    D  WDFFPUTK                      2A  Overlay( QDFFRDPD : 17 )
 
    D  WDFFGETK                      2A  Overlay( QDFFRDPD : 19 )
 
    D  WDFFERRM                      5I 0 Overlay( QDFFRDPD : 21 )
 
    D  WDFFBITS                      1A  Overlay( QDFFRDPD : 23 )
 
    D  WDFFBITF                      1A  Overlay( QDFFRDPD : 24 )
 
    D  WDFFCGRI                      5I 0 Overlay( QDFFRDPD : 25 )
 
    D  WDFFHFLG                      2A  Overlay( QDFFRDPD : 27 )
 
    D  WDFFXRDO                      5I 0 Overlay( QDFFRDPD : 29 )
 
    D  WDFFRDOC                      5I 0 Overlay( QDFFRDPD : 33 )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Row Column Table      -
 
      *    p_QDFFRCTB  = p_QDFFRINF  +  WDFFDRCO
 
      *    SizeIndex = 0 to WDFFSCR -1
 
      *-------------------------------------------------------------------
 
    D QDFFRCTB        DS                  Based  ( p_QDFFRCTB) qualified
 
    D  WDFFFRRO                      1A  Overlay( QDFFRCTB : 1  )
 
    D  WDFFFRCO                      1A  Overlay( QDFFRCTB : 2  )
 
    D  WDFFTORO                      1A  Overlay( QDFFRCTB : 3  )
 
    D  WDFFTOCO                      1A  Overlay( QDFFRCTB : 4  )
 
    D  WDFFRBIT                      1A  Overlay( QDFFRCTB : 5  )
 
    D  WDFFRC                        1A  Overlay( QDFFRCTB : 7  )
 
      *-------------------------------------------------------------------
 
      *  - Row Column Table  Entries    -
 
      *    p_QDFFRCTE  = %addr(QDFFRCTB.WDFFRC)  first
 
      *    p_QDFFRCTE = p_QDFFRCTE + %size(QDFFRCTE)  next
 
    D QDFFRCTE        DS                  Based  ( p_QDFFRCTE) qualified
 
    D  WDFFSROW              1      1A
 
    D  WDFFSCOL              2      2A
 
      *-------------------------------------------------------------------
 
      *  - Field Where Used -
 
      *    p_QDFWFLDI =  p_QDFWRCDI + QDFWRCDI.WDFWRLEN  first
 
      *    p_QDFWFLDI =  p_QDFWFLDI + WDFWFLDL  next
 
      *-------------------------------------------------------------------
 
    D QDFWFLDI        DS                  Based  ( p_QDFWFLDI  ) qualified
 
    D  WDFWFLDL                      5I 0 Overlay( QDFWFLDI : 1  )
 
    D  WDFWFOKW                      5I 0 Overlay( QDFWFLDI : 3  )
 
    D  WDFWRRDX                      5I 0 Overlay( QDFWFLDI : 5  )
 
        //  index into Field Name Table p_QDFFNTBL
 
    D  WDFWNMEI                    10I 0 Overlay( QDFWFLDI : 7  )
 
    D  WDFWLFLD                      5I 0 Overlay( QDFWFLDI : 11 )
 
    D  WDFWFFLG                      1A  Overlay( QDFWFLDI : 13 )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Field Index      -
 
      *  QDFFRINF is at variable WDFFOFIT in QDFFRINF.
 
      *-------------------------------------------------------------------
 
    D QDFFFITB        DS                  Based  ( p_QDFFFITB  ) qualified
 
    D  WDFFFOFS                    10I 0 Overlay( QDFFFITB : 1  )
 
    D  WDFFSELI                      5I 0 Overlay( QDFFFITB : 5  )
 
    D  WDFFDLEN                      5I 0 Overlay( QDFFFITB : 7  )
 
      *-------------------------------------------------------------------
 
 
 
      *-------------------------------------------------------------------
 
      *  - Constant Field Header -
 
      *    p_QDFFFCON  =  WDFFFTBE
 
      *-------------------------------------------------------------------
 
    D QDFFFCON        DS                  Based  ( p_QDFFFCON  ) qualified
 
    D  WDFFFAOC                      5I 0 Overlay( QDFFFCON : 3  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Named  Field Header -
 
      *    p_QDFFFNAM  =  WDFFFTBE
 
      *-------------------------------------------------------------------
 
    D QDFFFNAM        DS                  Based  ( p_QDFFFNAM  ) qualified
 
    D  WDFFINPO                      5I 0 Overlay( QDFFFNAM : 1  )
 
    D  WDFFOUTO                      5I 0 Overlay( QDFFFNAM : 3  )
 
    D  WDFFPLEN                      5I 0 Overlay( QDFFFNAM : 5  )
 
    D  WDFFDEC                      1A  Overlay( QDFFFNAM : 7  )
 
    D  WDFFKBDT                      1A  Overlay( QDFFFNAM : 8  )
 
    D  WDFFFAOF                      5I 0 Overlay( QDFFFNAM : 11 )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Field Header
 
      *    p_QDFFFINF  = p_QDFFRINF + WDFFFOFS
 
      *-------------------------------------------------------------------
 
    D QDFFFINF        DS                  Based  ( p_QDFFFINF  ) qualified
 
    D  WDFFFLEN                      1A  Overlay( QDFFFINF : 1  )
 
    D  WDFFFIOA                      1A  Overlay( QDFFFINF : 3  )
 
    D  WDFFBFLG                      1A  Overlay( QDFFFINF : 4  )
 
    D  WDFFFBIT                      1A  Overlay( QDFFFINF : 5  )
 
        // pointer to QDFFFCON  or QDFFFNAM
 
    D  WDFFFTBE                      1A  Overlay( QDFFFINF : 7  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Field Dev Dept
 
      *    p_QDFFFDPD  =  p_QDFFFINF + WDFFFAOF named
 
      *    p_QDFFFDPD  =  p_QDFFFINF + WDFFFAOC constant
 
      *-------------------------------------------------------------------
 
    D QDFFFDPD        DS                  Based  ( p_QDFFFDPD  ) qualified
 
    D  WDFFFLGS                      1A  Overlay( QDFFFDPD : 1  )
 
    D  WDFFSA                        1A  Overlay( QDFFFDPD : 2  )
 
    D  WDFFXFDO                      5I 0 Overlay( QDFFFDPD : 3  )
 
    D  WDFFFDOC                      5I 0 Overlay( QDFFFDPD : 5  )
 
      // pointer
 
    D  WDFFFICE                      1A  Overlay( QDFFFDPD : 7  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Input-Capable Display Field-Level Device-Dep
 
      *    p_QDFFFDIC  = WDFFFICE
 
      *-------------------------------------------------------------------
 
    D QDFFFDIC        DS                  Based  ( p_QDFFFDIC  ) qualified
 
    D  WDFFFWFW                      2A  Overlay( QDFFFDIC : 1  )
 
    D  WDFFSSKW                      1A  Overlay( QDFFFDIC : 3  )
 
    D  WDFFCHKB                      1A  Overlay( QDFFFDIC : 4  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Field-Dependent Extension  -
 
      *    p_QDFFXFDP  =  p_QDFFFINF + WDFFXFDO
 
      *-------------------------------------------------------------------
 
    D QDFFXFDP        DS                  Based  ( p_QDFFXFDP  ) qualified
 
    D  WDFFKFLG                      2A  Overlay( QDFFXFDP : 1  )
 
    D  WDFFFLDINX                    5I 0 Overlay( QDFFXFDP : 3  )
 
    D  WDFFXLFLGS                    1A  Overlay( QDFFXFDP : 4  )
 
        //  this is a BIN 16
 
    D  WDFF_UCS2_                    2A  Overlay( QDFFXFDP : 6  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Keyword Category Displacement
 
      *  file      p_QDFFCOSA =  p_QDFFINFO + WDFFXDOC
 
      *  record    p_QDFFCOSA =  p_QDFFRINF + WDFFRDOC
 
      *  field    p_QDFFCOSA =  p_QDFFFINF + WDFFFDOC
 
      *-------------------------------------------------------------------
 
    D QDFFCOSA        DS                  Based  ( p_QDFFCOSA  ) qualified
 
    D  WDFFCCT                      5I 0 Overlay( QDFFCOSA : 1  )
 
      //  pointer
 
    D  WDFFCCOS                      1A  Overlay( QDFFCOSA : 3  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Keyword Category Displacement String Entry
 
      *    p_QDFFCCOA =  %addr(WDFFCCOS)
 
      *-------------------------------------------------------------------
 
    D QDFFCCOA        DS                  Based  ( p_QDFFCCOA  ) qualified
 
    D  WDFFCAID                      1A  Overlay( QDFFCCOA : 1  )
 
    D  WDFFCAOF                      5I 0 Overlay( QDFFCCOA : 2  )
 
 
 
      *-------------------------------------------------------------------
 
      *  - Subfile Control Record-
 
      *-------------------------------------------------------------------
 
 
 
    DQDFFSFHR        DS                  Based  (p_QDFFSFHR ) qualified
 
    D WDFFSFSZ                1      2B 0
 
    D WDFFSFPG                3      4B 0
 
    D WDFVED38                5      6
 
    D WDFFFSFT                7      8B 0
 
    D WDFSFR1U                9    10
 
    D  WDFFSFR1              9    10B 0
 
    D  WDFVED3900            9      9
 
    D  WDFFSFSR00            10    10
 
    D WDFSFR2U              11    12
 
    D  WDFFSFR2              11    12B 0
 
    D  WDFVED4000            11    11
 
    D  WDFFSFER00            12    12
 
    D WDFSFLNU              13    16
 
    D  WDFFSFLN              13    16
 
    D  WDFFSFH100            13    14B 0
 
    D  WDFFSFH200            15    16B 0
 
    D WDFFFSFF              17    18B 0
 
    D WDFVED41              19    24
 
 
 
    DQDFKFILK        DS                  Based  (p_QDFKFILK ) qualified
 
    D WDFFKFIL                      5I 0 Overlay( QDFKFILK : 1  )
 
    D WDFKFILE                      1A  Overlay( QDFKFILK : 3  )
 
 
 
    DQDFKFLPM        DS                  Based  (p_QDFKFLPM ) qualified
 
    D WDFKFLID                      1    Overlay( QDFKFLPM : 1  )
 
    D WDFKFLST                      5I 0 Overlay( QDFKFLPM : 2  )
 
    D WDFKFLRS                      5I 0 Overlay( QDFKFLPM : 4  )
 
    D WDFFKFLP                      5I 0 Overlay( QDFKFLPM : 6  )
 
    D WDFKFLEX                      1A  Overlay( QDFKFLPM : 8  )
 
 
 
    DQDFKFLPP        DS                  Based  (p_QDFKFLPP ) qualified
 
    D WDFKFLLN                      5I 0 Overlay( QDFKFLPP : 1  )
 
    D WDFKFLNM                      1A  Overlay( QDFKFLPP : 3  )
 
 
 
    DQDFKFLSZ        DS                  Based  (p_QDFKFLSZ ) qualified
 
    D WDFKFLML                1      2B 0
 
    D WDFVED57                3      6
 
 
 
    DQDFKICVP        DS                  Based  (p_QDFKICVP ) qualified
 
    D WDFKICVN                1      2B 0
 
    D WDFKICVK                3      4B 0
 
    D WDFKICVT                5      6B 0
 
 
 
    DQDFKHARD        DS                  Based  (p_QDFKHARD ) qualified
 
    D WDFKHRFM                1    10
 
    D WDFKHFIL              11    20
 
    D WDFKHLIB              21    30
 
 
 
    DQDFKHXPS        DS                  Based  (p_QDFKHXPS ) qualified
 
    D WDFKHXHG                1    10
 
    D WDFKHXHL              11    20
 
    D WDFKHXML              21    22B 0
 
 
 
    DQDFKHDOC        DS                  Based  (p_QDFKHDOC ) qualified
 
    D WDFKHDLA                1    10
 
    D WDFKHDDO              11    22
 
    D WDFKHDFL              23    24B 0
 
 
 
    DQDFKSIDX        DS                  Based  (p_QDFKSIDX ) qualified
 
    D WDFKSIOB                1    10
 
    D WDFKSILB              11    20
 
 
 
    DQDFKFALX        DS                  Based  (p_QDFKFALX ) qualified
 
    D WDFFKALT                1      2B 0
 
 
 
    DQDFKFALK        DS                  Based  (p_QDFKFALK ) qualified
 
    D WDFKANME                1    10
 
    D WDFKAINX              11    12B 0
 
 
 
    DQDFKESFL        DS                  Based  (p_QDFKESFL ) qualified
 
    D WDFKESCR                1    10
 
 
 
    DQDFKBODR        DS                  Based  (p_QDFKBODR ) qualified
 
    D WDFKCLOR                1      1
 
    D WDFKDATR                2      2
 
    D WDFKCHRS                3    10
 
 
 
    DQDFKCKKW        DS                  Based  (p_QDFKCKKW ) qualified
 
    D WDFFKCKS                1      2B 0
 
    D WDFKCKCM                3      3
 
 
 
    DQDFKCKKE        DS                  Based  (p_QDFKCKKE ) qualified
 
    D WDFKCKID                1      1
 
    D WDFKCKIN                2      3B 0
 
    D WDFKCKRS                4      5B 0
 
    D WDFKCKMA                6      9
 
 
 
    DQDFKOVRR        DS                  Based  (p_QDFKOVRR ) qualified
 
    D WDFFKOLS                1      2B 0
 
 
 
    DQDFKOVRE        DS                  Based  (p_QDFKOVRE ) qualified
 
    D WDFKOLAD                1      1
 
    D WDFKOLAN                2      3B 0
 
 
 
    DQDFKOVRP        DS                  Based  (p_QDFKOVRP ) qualified
 
    D WDFKOLID                1      1
 
    D WDFKOLIN                2      3B 0
 
 
 
    DQDFKOLER        DS                  Based  (p_QDFKOLER ) qualified
 
    D WDFFKOLE                1      2B 0
 
 
 
    DQDFKOLCL        DS                  Based  (p_QDFKOLCL ) qualified
 
    D WDFFKOLC                1      2B 0
 
    D WDFKOLCN                3      4B 0
 
 
 
    DQDFKMSRL        DS                  Based  (p_QDFKMSRL ) qualified
 
    D WDFFKMSS                      5I 0 Overlay( QDFKMSRL : 1 )
 
    D WDFKMSKW                      1A  Overlay( QDFKMSRL : 3 )
 
 
 
    DQDFKMSAP        DS                  Based  (p_QDFKMSAP ) qualified
 
    D WDFKMSAD                1      1
 
    D WDFKMSAN                2      3B 0
 
 
 
    DQDFKMSCP        DS                  Based  (p_QDFKMSCP ) qualified
 
    D WDFKMSID                1      1
 
    D WDFKMSIN                2      3B 0
 
 
 
    DQDFKMSK1        DS                  Based  (p_QDFKMSK1 ) qualified
 
    D WDFKMSLC                1      2B 0
 
    D WDFVED58                3      3
 
    D WDFKMSRW                4      5B 0
 
    D WDFKMSCL                6      7B 0
 
    D WDFKMSFA                8    11B 0
 
    D WDFKMSFB              12    15B 0
 
 
 
    DQDFKMSK2        DS                  Based  (p_QDFKMSK2 ) qualified
 
    D WDFKMSLN                1      2B 0
 
 
 
    DQDFKMSK3        DS                  Based  (p_QDFKMSK3 ) qualified
 
    D WDFKMSDM                1      2B 0
 
 
 
    DQDFMSCLN        DS                  Based  (p_QDFMSCLN ) qualified
 
    D WDFSCROU                1      2
 
    D  WDFMSCRO              1      2B 0
 
    D  WDFKRCLR              1      2B 0
 
    D WDFSCFOU                3      4
 
    D  WDFMSCFO              3      4B 0
 
    D  WDFKRCLC              3      4B 0
 
    D WDFSCLOU                5      6
 
    D  WDFMSCLO              5      6B 0
 
    D  WDFKCLWR              5      6B 0
 
    D WDFRCLWC                7      8B 0
 
    D WDFCTYPE                9      9
 
    D  WDFBITS32            10    10
 
 
 
    DQDFMBDSP        DS                  Based  (p_QDFMBDSP ) qualified
 
    D WDFBDRCN                1    10
 
    D WDFBDCFO              11    12B 0
 
    D WDFBDPIO              13    14B 0
 
 
 
    DQDFK0BPR        DS                  Based  (p_QDFK0BPR ) qualified
 
    D WDF0BPCT                1      2B 0
 
 
 
    DQDF0BXWP        DS                  Based  (p_QDF0BXWP ) qualified
 
    D WDF0BPID                1      1
 
    D WDF0BPIN                2      3B 0
 
    D WDF0BPLN                4      5B 0
 
 
 
    DQDFBGATR        DS                  Based  (p_QDFBGATR ) qualified
 
    D WDF0BCLR                1      1
 
    D WDFVED59                2      2
 
    D WDFK0BLT                3      3
 
    D WDFVED60                4      4
 
 
 
    DQDFBKPRM        DS                  Based  (p_QDFBKPRM ) qualified
 
    D WDFBKNAM                1      8
 
 
 
    DQDFKMRPR        DS                  Based  (p_QDFKMRPR ) qualified
 
    D WDFFKRPS                1      2B 0
 
 
 
    DQDFKMRWP        DS                  Based  (p_QDFKMRWP ) qualified
 
    D WDFKMPID                1      1
 
    D WDFKMPIN                2      3B 0
 
    D WDFKMPLN                4      5B 0
 
 
 
    DQDFKHSTR        DS                  Based  (p_QDFKHSTR ) qualified
 
    D WDFWDFKH                1      2B 0
 
 
 
    DQDFKHPRM        DS                  Based  (p_QDFKHPRM ) qualified
 
    D WDFKHOFS                1      2B 0
 
    D  WDFBITS33              3      4
 
    D WDFKHSRO                5      6B 0
 
    D WDFKHCRD                7      8B 0
 
    D WDFKHCBY                9    10B 0
 
    D WDFKHARO              11    12B 0
 
    D WDFKHCEX              13    14B 0
 
    D WDFVED62              15    17
 
 
 
    DQDFKHNMS        DS                  Based  (p_QDFKHNMS ) qualified
 
    D WDFKHRCD                1    10
 
    D WDFKHFLE              11    20
 
    D WDFKHRLB              21    30
 
 
 
    DQDFKHPS          DS                  Based  (p_QDFKHPS ) qualified
 
    D WDFKHPNN                1    10
 
    D WDFKHPLB              11    20
 
    D WDFKHMLN              21    22B 0
 
 
 
    DQDFKHRDC        DS                  Based  (p_QDFKHRDC ) qualified
 
    D WDFKHRLA                1    10
 
    D WDFKHRDO              11    22
 
    D WDFKHRFL              23    24B 0
 
 
 
    DQDFKHARA        DS                  Based  (p_QDFKHARA ) qualified
 
    D WDFKHFRO                1      1
 
    D WDFKHFCO                2      2
 
    D WDFKHTRO                3      3
 
    D WDFKHTCO                4      4
 
 
 
    DQDFKHARX        DS                  Based  (p_QDFKHARX ) qualified
 
    D  WDFBITS34              1      1
 
    D WDFHFLDI                2      3B 0
 
    D WDFHCHID                4      5
 
 
 
    DQDFKHSEQ        DS                  Based  (p_QDFKHSEQ ) qualified
 
    D WDFKHSGN                1    10
 
    D WDFFKHSS              11    12B 0
 
    D WDFKHSIF              13    14B 0
 
    D WDFKHSIL              15    16B 0
 
    D WDFKHSIN              17    18B 0
 
    D WDFKHSIP              19    20B 0
 
 
 
    DQDFKPRTR        DS                  Based  (p_QDFKPRTR ) qualified
 
    D WDFKRLRS                1      2B 0
 
    D WDFFKRLP                3      4B 0
 
 
 
    DQDFKPPRM        DS                  Based  (p_QDFKPPRM ) qualified
 
    D WDFKPLEN                1      2B 0
 
 
 
    DQDFKBRDR        DS                  Based  (p_QDFKBRDR ) qualified
 
    D WDFKCOLR                1      1
 
    D WDFKDSPA                2      2
 
    D WDFKCHAR                3    10
 
 
 
    DQDFKLINU        DS                  Based  (p_QDFKLINU ) qualified
 
    D WDFFKLIN                1      2B 0
 
    D WDFFKPOS                3      4B 0
 
    D WDFKLINW                5      6B 0
 
    D WDFKPOSW                7      8B 0
 
    D WDFVED66                9    10
 
 
 
    DQDFKWDTA        DS                  Based  (p_QDFKWDTA ) qualified
 
    D  WDFBITS35              1      2
 
    D WDFWNAMU                3    12
 
    D  WDFKWNAM              3    12
 
    D  WDFFKLIN00            3      4B 0
 
    D  WDFFKPOS00            5      6B 0
 
    D  WDFKLINW00            7      8B 0
 
    D  WDFKPOSW00            9    10B 0
 
    D  WDFVED6600            11    12
 
 
 
    DQDFOLORU        DS                  Based  (p_QDFOLORU ) qualified
 
    D WDFVED68                1      1
 
    D WDFCOLOR                2      2
 
 
 
    DQDFDSPAU        DS                  Based  (p_QDFDSPAU ) qualified
 
    D WDFVED69                1      1
 
    D WDFTDSPA                2      2
 
 
 
    DQDFLIGNU        DS                  Based  (p_QDFLIGNU ) qualified
 
    D WDFVED70                1      1
 
    D WDFALIGN                2      2
 
 
 
    DQDFDWTTL        DS                  Based  (p_QDFDWTTL ) qualified
 
    D WDFDWOVL                1      5
 
    D  WDFBITS36              6      6
 
    D WDFLRPFU                7      8
 
    D  WDFCLRPF              7      8B 0
 
    D  WDFVED6800            7      7
 
    D  WDFCOLOR00            8      8
 
    D WDFSPPFU                9    10
 
    D  WDFDSPPF              9    10B 0
 
    D  WDFVED6900            9      9
 
    D  WDFTDSPA00            10    10
 
    D WDFALGNU              11    12
 
    D  WDFTALGN              11    12B 0
 
    D  WDFVED7000            11    11
 
    D  WDFALIGN00            12    12
 
    D WDFTTXTO              13    14B 0
 
    D WDFTTXTL              15    16B 0
 
    D WDFVED71              17    26
 
 
 
    DQDFKMB          DS                  Based  (p_QDFKMB ) qualified
 
    D  WDFBITS37              1      1
 
    D WDFFIRST                2      2
 
    D WDFECOND                3      3
 
    D WDFMBAID                4      4
 
 
 
    DQDFKSCSF        DS                  Based  (p_QDFKSCSF ) qualified
 
    D WDFFKSCS                1      2B 0
 
 
 
    DQDFKSCCP        DS                  Based  (p_QDFKSCCP ) qualified
 
    D WDFKSCID                1      1
 
    D WDFKSCIN                2      3B 0
 
 
 
    DQDFKSCSM        DS                  Based  (p_QDFKSCSM ) qualified
 
    D WDFKSCRS                1      2B 0
 
    D WDFKSCTY                3      3
 
    D WDFKSCLN                4      5B 0
 
 
 
    DQDFKSCSI        DS                  Based  (p_QDFKSCSI ) qualified
 
    D WDFKSCMI                1      7
 
    D WDFKSCMF                8    17
 
    D WDFKSCML              18    27
 
    D WDFKSCDL              28    29B 0
 
    D WDFKSCMO              30    31B 0
 
 
 
    DQDFKSFLM        DS                  Based  (p_QDFKSFLM ) qualified
 
    D WDFKMORE                1    12
 
    D WDFKBOTT              13    24
 
 
 
    DQDFKSFLS        DS                  Based  (p_QDFKSFLS ) qualified
 
    D WDFNDSPM                1      1
 
    D WDFLMORE                2    13
 
    D WDFLBOTT              14    25
 
 
 
    DQDFSRRRN        DS                  Based  (p_QDFSRRRN ) qualified
 
    D WDFCSRNO                1      2B 0
 
 
 
    DQDFKMODE        DS                  Based  (p_QDFKMODE ) qualified
 
    D WDFSCMDO                1      2B 0
 
 
 
    DQDFKSASA        DS                  Based  (p_QDFKSASA ) qualified
 
    D WDFFKSAS                1      2B 0
 
 
 
    DQDFKSAPM        DS                  Based  (p_QDFKSAPM ) qualified
 
    D WDFKSAIA                1      1
 
    D WDFKSAII                2      3B 0
 
    D WDFKSAOA                4      4
 
 
 
    DQDFKFFWR        DS                  Based  (p_QDFKFFWR ) qualified
 
    D WDFFKFWS                1      2B 0
 
 
 
    DQDFKCHKP        DS                  Based  (p_QDFKCHKP ) qualified
 
    D WDFKFWID                1      1
 
    D WDFKFWIN                2      3B 0
 
    D WDFKFWOV                4      5
 
 
 
    DQDFKMFDK        DS                  Based  (p_QDFKMFDK ) qualified
 
    D WDFFKMFS                1      2B 0
 
    D WDFKMFNO                3      4B 0
 
    D WDFKMFEN                5      5A
 
 
 
      * p_QDFKMFDP = %ADDR(QDFKMFDK.WDFKMFEN)
 
    DQDFKMFDP        DS                  Based  (p_QDFKMFDP ) qualified
 
    D WDFKMFID                1      1
 
    D WDFKMFIN                2      3B 0
 
    D WDFKMFEX                4      4A
 
 
 
      * Response Indicator Structure (QDFKMFRS)
 
      * p_QDFKMFRS = %ADDR(QDFKMFDP.WDFKMFEX)
 
    DQDFKMFRS        DS                  Based  (p_QDFKMFRS ) qualified
 
    D WDFKMFRP                1      2B 0
 
    D WDFKMFEE                3      3A
 
 
 
      * ERRMSG and ERRMSGID Keyword Structure (QDFKMFEM)
 
      *  p_QDFKMFEM = %ADDR(QDFKMFRS.WDFKMFEE)
 
    DQDFKMFEM        DS                  Based  (p_QDFKMFEM ) qualified
 
    D WDFKMFTP                1      1
 
    D WDFKMFEL                2      3B 0
 
    D WDFKMFTX                4      4A
 
 
 
    DQDFKMFSI        DS                  Based  (p_QDFKMFSI ) qualified
 
    D WDFKMFMI                1      7
 
    D WDFKMFMF                8    17
 
    D WDFKMFML              18    27
 
    D WDFKMFDL              28    29B 0
 
    D WDFKMFMO              30    31B 0
 
 
 
    DQDFKMFMV        DS                  Based  (p_QDFKMFMV ) qualified
 
    D WDFKMFMM                1      1
 
    D WDFKMFMP                2      4
 
    D WDFKMFFL                5      6B 0
 
    D WDFKMFFV                7    16
 
    D WDFKMFLV              17    26
 
 
 
    DQDFKMFM3        DS                  Based  (p_QDFKMFM3 ) qualified
 
    D WDFFKMF1                1      3
 
    D WDFFKMF2                4      7
 
 
 
    DQDFKMFM4        DS                  Based  (p_QDFKMFM4 ) qualified
 
    D WDFKMFD4                1      1
 
 
 
    DQDFKDFLD        DS                  Based  (p_QDFKDFLD ) qualified
 
    D WDFKDFLO                1      2B 0
 
 
 
    DQDFK_DATTIMFmat  DS                  Based  (p_QDFK_DATTIMFmat) qualified
 
    D WDFK_DATTIM            1      2B 0
 
 
 
    DQDFK_DATTIM_Sep  DS                  Based  (p_QDFK_DATTIM_Sep ) qualified
 
    D WDFK_DATTIMSep          1      1A
 
 
 
    DQDFK_DATEP      DS                  Based  (p_QDFK_DATEP) qualified
 
      * 0  BIT(1)  WDFK_DATE_SYS  If on, the *SYS parameter is specified on th
 
      * 1  BIT(1)  WDFK_DATE_YY    If on, the *YY parameter is specified on the
 
      * 2  BIT(1)  WDFK_DATE_EDTCDEY  If on, the EDTCDE(Y) keyword was specifi
 
    D WDFK_DATE              1      1A
 
 
 
      *  Length of this structure is
 
      *  is WDFK_MAPVAL_C * WDFK_MAPVAL_L
 
      *      p_QDFK_MAPVAL = %ADDR(QDFKMFDP.WDFKMFEX)
 
      *    Number of MAPVAL keyword parameters.
 
      *    Length of each MAPVAL keyword parameter.
 
      *    MAPVAL parameter
 
    DQDFK_MAPVAL      DS                  Based  (p_QDFK_MAPVAL) qualified
 
    D WDFK_MAPVAL_C          1      2B 0
 
    D WDFK_MAPVAL_L          3      4B 0
 
    D WDFK_MAPVAL            1      1A
 
 
 
    DQDFKDTFT        DS                  Based  (p_QDFKDTFT ) qualified
 
    D WDFKDTFT00              1      2B 0
 
 
 
    DQDFKDTSP        DS                  Based  (p_QDFKDTSP ) qualified
 
    D WDFKDTSP00              1      1
 
 
 
    DQDFKDATP        DS                  Based  (p_QDFKDATP ) qualified
 
    D  WDFBITS56              1      1
 
 
 
    DQDFKMPVL        DS                  Based  (p_QDFKMPVL ) qualified
 
    D WDFPVLCT                1      2B 0
 
    D WDFPVLLN                3      4B 0
 
 
 
    DQDFKDFT          DS                  Based  (p_QDFKDFT ) qualified
 
    D  WDFFKDFS                      5I 0 Overlay( QDFKDFT  : 1  )
 
    D  WDFKDFPE                      1A  Overlay( QDFKDFT  : 3  )
 
 
 
    DQDFKDFPM        DS                  Based  (p_QDFKDFPM ) qualified
 
    D WDFKDFID                1      1
 
    D WDFKDFTY                2      2
 
    D WDFKDFIN                3      4B 0
 
    D WDFKDFLN                5      6B 0
 
 
 
    DQDFKDFMM        DS                  Based  (p_QDFKDFMM ) qualified
 
    D WDFKDFMI                1      7
 
    D WDFKDFMF                8    17
 
    D WDFKDFML              18    27
 
 
 
    DQDFFHTML00      DS                  Based  (p_QDFFHTML00 ) qualified
 
    D  WDFBITS57              1      1
 
    D WDFFHLEN                2      3B 0
 
    D WDFFHOFF                4      5B 0
 
    D WDFLTEXT                6      6
 
 
 
    DQDFKEDTR        DS                  Based  (p_QDFKEDTR ) qualified
 
    D WDFFKEDS                1      2B 0
 
    D WDFKEDKW                3      3A
 
    D xDFKEDID                4      4
 
    D xDFKEDSY                5      5
 
    D xDFKEDML                6      7B 0
 
    D xDFVED73                8      8
 
    D xDFKEDMS                9      9A
 
    D xDFKEDMSx              10    24A
 
 
 
    DQDFKEDTP        DS                  Based  (p_QDFKEDTP ) qualified
 
    D WDFKEDID                1      1
 
    D WDFKEDSY                2      2
 
    D WDFKEDML                3      4B 0
 
    D WDFVED73                5      5
 
    D WDFKEDMS                6      6A
 
    D WDFKEDMSx              6    40A
 
 
 
 
 
    DQDFKEDTMSK      DS                  Based  (p_QDFKEDTMSK)  qualified
 
    D WDFKEDMNUM                    5I 0 Overlay( QDFKEDTMSK : 1)
 
    D WDFKEDMSEG                    1A  Overlay( QDFKEDTMSK : 3)
 
 
 
 
 
    DQDFKEDTSEG      DS                  Based  (p_QDFKEDTSEG)  qualified
 
    D WDFKEDMPOS                    5I 0 Overlay( QDFKEDTSEG : 1)
 
    D WDFKEDMLEN                    5I 0 Overlay( QDFKEDTSEG : 3)
 
 
 
    DQDFKVAKW        DS                  Based  (p_QDFKVAKW ) qualified
 
    D WDFFKVAL                1      2B 0
 
 
 
    DQDFKVARL        DS                  Based  (p_QDFKVARL ) qualified
 
    D  WDFBITS38              1      1
 
    D  WDFBITS39              2      2
 
    D WDFVED76                3      3
 
    D WDFKVATP                4      4
 
    D WDFFKLAP                5      6B 0
 
    D WDFKLATP                7      8B 0
 
 
 
    DQDFKCKMI        DS                  Based  (p_QDFKCKMI ) qualified
 
    D WDFKCKMD                1      7
 
    D WDFKCKMF                8    17
 
    D WDFKCKML              18    27
 
    D WDFKCKDL              28    29B 0
 
    D WDFFKCKB              30    31B 0
 
 
 
    DQDFKFCPR        DS                  Based  (p_QDFKFCPR ) qualified
 
    D WDFFKFCS                1      2B 0
 
 
 
    DQDFKFC          DS                  Based  (p_QDFKFC ) qualified
 
    D WDFKFCID                1      1
 
    D WDFKFCIN                2      3B 0
 
    D WDFKFCLN                4      5B 0
 
 
 
    DQDFKCHC          DS                  Based  (p_QDFKCHC ) qualified
 
    D WDFCHCCT                1      2B 0
 
    D WDFCHCFN                3    12
 
    D WDFKCHCR              13    14B 0
 
    D WDFKCHCC              15    16B 0
 
    D WDFCHAR1              17    17
 
    D WDFCHAR2              18    18
 
    D WDFVED77              19    19
 
 
 
    DQDFDREXP        DS                  Based  (p_QDFDREXP ) qualified
 
    D WDFXPLEN                1      2B 0
 
    D WDFOWCOL                3      4B 0
 
    D WDFUTTER                5      6B 0
 
    D  WDFBITS40              7      8
 
    D WDFVED81                9    18
 
 
 
    DQDFKCHCE        DS                  Based  (p_QDFKCHCE ) qualified
 
    D WDFVED82                1      1
 
    D WDFKCLEN                2      3B 0
 
    D  WDFBITS41              4      4
 
    D WDFWDFKC                5      6
 
    D WDFINX26                7      8B 0
 
    D WDFCTXTO                9    10B 0
 
    D WDFCTXTL              11    12B 0
 
    D WDFCMSGO              13    14B 0
 
    D WDFCACCO              15    16B 0
 
    D WDFPRCDU              17    18
 
    D  WDFCPRCD              17    18B 0
 
    D  WDFBCAID              17    17
 
    D WDFCRTNO              19    20B 0
 
    D WDFCRTNL              21    22B 0
 
    D WDFCCTLO              23    24B 0
 
    D WDFCTLIO              25    26B 0
 
 
 
    DQDFKCTXT        DS                  Based  (p_QDFKCTXT ) qualified
 
    D WDFCMNEM                1      2B 0
 
 
 
    DQDFKCACC        DS                  Based  (p_QDFKCACC ) qualified
 
    D WDFACCSL                1      2B 0
 
    D WDFCACCL                3      4B 0
 
    D WDFACCFO                5      6B 0
 
 
 
    DQDFKCMSG        DS                  Based  (p_QDFKCMSG ) qualified
 
    D  WDFBITS42              1      1
 
    D WDFID26U                2      8
 
    D  WDFMID26              2      8
 
    D  WDFKMIDO              2      3B 0
 
    D WDFCMFLU                9    18
 
    D  WDFKCMFL              9    18
 
    D  WDFCMFLO              9    10B 0
 
    D WDFCMLBU              19    28
 
    D  WDFKCMLB              19    28
 
    D  WDFCMLBO              19    20B 0
 
 
 
    DQDFBSEPS        DS                  Based  (p_QDFBSEPS ) qualified
 
    D  WDFBITS43              1      1
 
    D WDFBSCOU                2      3
 
    D  WDFMBSCO              2      3B 0
 
    D  WDFBSCLR              2      2
 
    D WDFBSAOU                4      5
 
    D  WDFMBSAO              4      5B 0
 
    D  WDFBSATR              4      4
 
    D WDFSCHOU                6      7
 
    D  WDFBSCHO              6      7B 0
 
    D  WDFBSCHR              6      6
 
 
 
    DQDFKCHCX        DS                  Based  (p_QDFKCHCX ) qualified
 
    D WDFVED92                1      1
 
    D WDFHCCLR                2      2
 
    D WDFVED93                3      3
 
    D WDFHCATR                4      4
 
    D WDFVED94                5      5
 
 
 
    DQDFEFATR        DS                  Based  (p_QDFEFATR ) qualified
 
    D  WDFBITS44              1      1
 
    D WDFFACLR                2      2
 
    D WDFVED96                3      3
 
    D WDFFAATR                4      4
 
    D WDFVED97                5      5
 
 
 
    DQDFFLDCP        DS                  Based  (p_QDFFLDCP ) qualified
 
    D WDFLDNUM                1      2B 0
 
    D WDFVED98                3      3
 
 
 
    DQDFNTFLD        DS                  Based  (p_QDFNTFLD ) qualified
 
    D WDFLDNUM00              1      2B 0
 
    D WDFVED99                3      3
 
 
 
    DQDFDTMSK00      DS                  Based  (p_QDFDTMSK00 ) qualified
 
    D WDFDMNUM                1      2B 0
 
 
 
    DQDFDTSEG        DS                  Based  (p_QDFDTSEG ) qualified
 
    D WDFDMPOS                1      2B 0
 
    D WDFDMLEN                3      4B 0
 
 
 
    DQDFKSMSG        DS                  Based  (p_QDFKSMSG ) qualified
 
    D  WDFBITS45              1      1
 
    D WDFSMIDU                2      8
 
    D  WDFKSMID              2      8
 
    D  WDFSMIDO              2      3B 0
 
    D WDFSMFLU                9    18
 
    D  WDFKSMFL              9    18
 
    D  WDFSMFLO              9    10B 0
 
    D WDFSMLBU              19    28
 
    D  WDFKSMLB              19    28
 
    D  WDFSMLBO              19    20B 0
 
 
 
    DQDFKGRPR        DS                  Based  (p_QDFKGRPR ) qualified
 
    D WDFKPCNT                1      2B 0
 
 
 
    DQDFKGRWP        DS                  Based  (p_QDFKGRWP ) qualified
 
    D WDFKGPID                1      1
 
    D WDFKGPIN                2      3B 0
 
    D WDFKGPLN                4      5B 0
 
 
 
    DQDFRDATR        DS                  Based  (p_QDFRDATR ) qualified
 
    D WDFCLROU                1      2
 
    D  WDFGCLRO              1      2B 0
 
    D  WDFGCLOR              1      1
 
    D WDFLNTOU                3      4
 
    D  WDFGLNTO              3      4B 0
 
    D  WDFFKGLT              3      3
 
    D  WDFBITS46              5      5
 
 
 
    DQDFRDCLR        DS                  Based  (p_QDFRDCLR ) qualified
 
    D  WDFBITS47              1      1
 
    D WDFSROWU                2      3
 
    D  WDFCSROW              2      3B 0
 
    D  WDFGCSRO              2      3B 0
 
    D WDFSCOLU                4      5
 
    D  WDFCSCOL              4      5B 0
 
    D  WDFGCSCO              4      5B 0
 
    D WDFCDEPU                6      7
 
    D  WDFGCDEP              6      7B 0
 
    D  WDFGCDEO              6      7B 0
 
    D WDFCWIDU                8      9
 
    D  WDFGCWID              8      9B 0
 
    D  WDFGCWIO              8      9B 0
 
 
 
    DQDFRDBOX        DS                  Based  (p_QDFRDBOX ) qualified
 
    D  WDFBITS48              1      1
 
    D WDFGBTOB                2      2
 
    D WDFBHZOU                3      4
 
    D  WDFGBHZO              3      4B 0
 
    D  WDFKGHZV              3      4B 0
 
    D WDFBVTOU                5      6
 
    D  WDFGBVTO              5      6B 0
 
    D  WDFKGVTV              5      6B 0
 
    D WDFBCLOU                7      8
 
    D  WDFGBCLO              7      8B 0
 
    D  WDFGBCLR              7      7
 
    D WDFBLTOU                9    10
 
    D  WDFGBLTO              9    10B 0
 
    D  WDFGBLNT              9      9
 
    D WDFBCTLO              11    12B 0
 
 
 
    DQDFOXDFM        DS                  Based  (p_QDFOXDFM ) qualified
 
    D  WDFBITS49              1      1
 
    D WDFSROWU00              2      3
 
    D  WDFBSROW              2      3B 0
 
    D  WDFGBSRO              2      3B 0
 
    D WDFSCOLU00              4      5
 
    D  WDFBSCOL              4      5B 0
 
    D  WDFGBSCO              4      5B 0
 
    D WDFBDEPU                6      7
 
    D  WDFGBDEP              6      7B 0
 
    D  WDFGBDEO              6      7B 0
 
    D WDFBWIDU                8      9
 
    D  WDFGBWID              8      9B 0
 
    D  WDFGBWIO              8      9B 0
 
 
 
    DQDFRDLIN        DS                  Based  (p_QDFRDLIN ) qualified
 
    D  WDFBITS50              1      1
 
    D WDFLTYPL                2      2
 
    D WDFLINOU                3      4
 
    D  WDFGLINO              3      4B 0
 
    D  WDFGLINT              3      4B 0
 
    D WDFLRPOU                5      6
 
    D  WDFGLRPO              5      6B 0
 
    D  WDFGLRPT              5      6B 0
 
    D WDFLCLOU                7      8
 
    D  WDFGLCLO              7      8B 0
 
    D  WDFGLCLR              7      7
 
    D WDFLLTOU                9    10
 
    D  WDFGLLTO              9    10B 0
 
    D  WDFGLLNT              9      9
 
    D WDFLCTLO              11    12B 0
 
 
 
    DQDFINDFM        DS                  Based  (p_QDFINDFM ) qualified
 
    D  WDFBITS51              1      1
 
    D WDFSROWU01              2      3
 
    D  WDFLSROW              2      3B 0
 
    D  WDFGLSRO              2      3B 0
 
    D WDFSCOLU01              4      5
 
    D  WDFLSCOL              4      5B 0
 
    D  WDFGLSCO              4      5B 0
 
    D WDFLLENU                6      7
 
    D  WDFGLLEN              6      7B 0
 
    D  WDFGLLNO              6      7B 0
 
 
 
 
 
 
 
    DQDFWITBE        DS                  Based  (p_QDFWITBE ) qualified
 
    D WDFWINBR                1      1
 
    D WDFWIOBF                2      2
 
    D WDFWIIBF                3      3
 
    D WDFWITXT                4      5B 0
 
 
 
    DQDFWKWDA        DS                  Based  (p_QDFWKWDA ) qualified
 
    D WDFWKWDC                1      2B 0
 
 
 
    DQDFKWIDU        DS                  Based  (p_QDFKWIDU ) qualified
 
    D WDFED117                1      1
 
    D WDFWKWID                2      2
 
 
 
    DQDFWATTR        DS                  Based  (p_QDFWATTR ) qualified
 
    D WDFKTYPU                1      2
 
    D  WDFWKTYP              1      2B 0
 
    D  WDFED11700            1      1
 
    D  WDFWKWID00            2      2
 
    D WDFWKLEN                3      4B 0
 
 
 
    DQDFWATYP        DS                  Based  (p_QDFWATYP ) qualified
 
    D WDFWALEN                1      2B 0
 
    D WDFED118                3      3
 
    D WDFWPRMT                4      4
 
 
 
    DQDFWBTYP        DS                  Based  (p_QDFWBTYP ) qualified
 
    D WDFFWATS                1      2B 0
 
 
 
    DQDFWRSTR        DS                  Based  (p_QDFWRSTR ) qualified
 
    D  WDFBITS53              1      1
 
    D  WDFBITS54              2      2
 
    D WDFWRFEI                3      6B 0
 
    D WDFWRLBI                7    10B 0
 
    D WDFWRRFI              11    14B 0
 
    D WDFWRFDI              15    18B 0
 
 
 
 
 
    D SmlIntTyp      S              5I 0
 
    D IntTyp          S            10I 0
 
    D ChrTyp          S              1
 
    D QNamTyp        S            20A
 
    D NamTyp          S            10A
 
    D LglTyp          S              N
 
    D Buftyp          S          32000A
 
 
 
      *-------------------------------------------------------------------
 
      *  - Work fields-
 
      *-------------------------------------------------------------------
 
 
 
    D NoAPIError      C                  Const( *Zero )
 
 
 
    D QualDspF        S            20
 
 
 
 
 
    D RtvSizeInfo    DS
 
    D                                4
 
    D  RtvSize                      10I 0
 
 
 
    D Counter        S              5I 0
 
 
 
    D #NumFlds        S            10I 0
 
    D TotFlds        S            10I 0
 
    D RecordName      S            10A
 
 
 
 
 
    D FindStr        s            32A  varying
 
    D x              s            10I 0
 
    D c              s            10I 0
 
    D f              s            10I 0
 
    D k              s            10I 0
 
    D
 
    D xx              s            10I 0
 
    D xc              s            10I 0
 
    D xf              s            10I 0
 
    D xk              s            10I 0
 
    D
 
    D lx              s            10I 0
 
    D lc              s            10I 0
 
    D lf              s            10I 0
 
    D lk              s            10I 0
 
    D
 
    D rx              s            10I 0
 
    D rc              s            10I 0
 
    D rf              s            10I 0
 
    D rk              s            10I 0
 
    D
 
    D fx              s            10I 0
 
    D fc              s            10I 0
 
    D ff              s            10I 0
 
    D fk              s            10I 0
 
    D
 
    D cx              s            10I 0
 
    D cc              s            10I 0
 
    D cf              s            10I 0
 
    D ck              s            10I 0
 
    D
 
    D len            s            10I 0
 
    D FldIdx          s            10I 0
 
    D SizeIdx        s            10I 0
 
    D ScrnSize        s              1
 
    D SflCtl          s              N
 
 
 
    D RcvVarLen      S                  Like( IntTyp    )
 
    D Idx            S                  Like( IntTyp    )
 
 
 
    D APIErrDS        DS
 
    D  ApiErrLen                    10I 0 Inz( %Size( APIErrDS ) )
 
    D  BytesAvail                  10I 0 Inz( *Zero )
 
    D                                7    Inz( *Blanks )
 
    D                                1    Inz( X'00' )
 
    D                              256    Inz( *Blanks )
 
 
 
 
 
    D CONSTANT        C                  x'01'
 
    D DFT            C                  x'01'
 
    D Bit0            C                  X'80'
 
    D Bit1            C                  X'40'
 
    D Bit2            C                  X'20'
 
    D Bit3            C                  X'10'
 
    D Bit4            C                  X'08'
 
    D Bit5            C                  X'04'
 
    D Bit6            C                  X'02'
 
    D Bit7            C                  X'01'
 
      *  How to test for bits
 
      * If %Bitand(Hexval:Bit0) = Bit0;
 
      * Dsply 'Bit 0 is *On';
 
      * Else;
 
      * Dsply 'Bit 0 is *Off';
 
      * Endif;
 
 
 
 
 
    D KwdData        s          3564A  varying based(p_KwdData)
 
 
 
    D temp            s                  like(KwdData)
 
      *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
    D col            s              5I 0
 
    D row            s              5I 0
 
 
 
    D wBinDS          DS
 
    D  hx1                    1      1
 
    D  hx2                    2      2
 
    D  wBin                  1      2B 0
 
 
 
 
 
    C                  CallP    RtvDspFDesc(
 
    C                                          RtvSizeInfo :
 
    C                                          8          :
 
    C                                          'DSPF0100'  :
 
    C                                          QDspFil    :
 
    C                                          APIErrDS
 
    C                                        )
 
    C                  If        BytesAvail > 0
 
    C                  Return    *Off
 
    C                  EndIf
 
 
 
    C                  eval      p_QDFFBASE = %alloc(RtvSize)
 
 
 
      *-------------------------------------------------------------------
 
    C                  Reset                  APIErrDS
 
      *  Retrieve display file description ( QDFRTVFD ) API
 
    C                  CallP    RtvDspFDesc(
 
    C                                          QDFFBASE  :
 
    C                                          RtvSize    :
 
    C                                          'DSPF0100' :
 
    C                                          QDspFil    :
 
    C                                          APIErrDS
 
    C                                        )
 
    C                  If        BytesAvail > 0
 
    C                  Return    *Off
 
    C                  EndIf
 
    C
 
    C                  Eval      p_FldDtaDS  =  %addr(FldDta)
 
    C
 
    C
 
    C                  Eval      NumFlds = 1
 
    C                  Eval      %OCCUR(FldDtaDS) = NumFlds
 
        //  file header
 
    C                  Eval      p_QDFFINFO =  p_QDFFBASE + QDFFBASE.WDFFINFO
 
        //  file where used
 
    C                  Eval      p_QDFWFLEI =  p_QDFFINFO + QDFFINFO.WDFFWUOF
 
        //  file Dev Dep
 
    C                  Eval      p_QDFFDPDD =  p_QDFFINFO + QDFFINFO.WDFFXDOF
 
        //  rec where used (first)
 
    C                  Eval      p_QDFWRCDI =  p_QDFWFLEI + QDFWFLEI.WDFWXLEN
 
        //  name table
 
    C                  Eval      p_QDFFNTBL =  p_QDFWFLEI + QDFWFLEI.WDFWNTBO
 
        //  File Keywords
 
    C                  EXSR      FileKwds
 
 
 
        //  process record formats
 
    C                  for      xx = 0 to (QDFFBASE.WDFFRCS - 1)
 
 
 
    C                  if        xx <> 0
 
    C                  Eval      p_QDFWRCDI  = p_QDFWRCDI + QDFWRCDI.WDFWNXTR
 
    C                  Endif
 
        //  record format
 
    C                  eval      p_QDFARFTE = p_QDFFINFO + QDFFINFO.WDFFDFLO +
 
    C                                (%size(QDFARFTE) * xx)
 
 
 
    C                  eval      RecordName =    QDFARFTE.WDFARFNM
 
    C
 
 
 
    C                  if        %subst(RecordName:1:1) <> '*'
 
    C                  EXSR      ProcessRecFmt
 
    C                  endif
 
 
 
 
 
    C                  endfor
 
    C
 
 
 
    C                  DeAlloc                p_QDFFBASE
 
    C                  Return    *On
 
 
 
 
 
 
 
 
 
      *------------------------------------------------
 
      * Process a record format.
 
      *------------------------------------------------
 
    CSR  ProcessRecFmt begsr
 
 
 
 
 
          //  record header
 
    C                  eval      p_QDFFRINF  = p_QDFFINFO + QDFARFTE.WDFARFOF
 
          //  record dev dept
 
    C                  eval      p_QDFFRDPD  = p_QDFFRINF + QDFFRINF.WDFFRAOF
 
      *  SFLCTL
 
      * 12  C      BIN(31) WDFFRFLG    Miscellaneous record contents.
 
      * 12  C  0  BIT(1)  WDFFUDDS    If on, USRDFN keyword is specified.
 
      * 12  C  1  BIT(1)  WDFFSFL If on, SFL keyword is specified (next record
 
      * 12  C  2  BIT(1)  WDFFSFLC    If on, SFLCTL keyword is specified (prev
 
    C                  eval      SflCtl = *off
 
    C                  if        %bitand(QDFFRINF.WDFFRFLG1 : Bit2)  =  Bit2
 
    C                  eval      p_QDFFSFCR  = p_QDFFRINF + QDFFRINF.WDFFRAOF
 
    C                  eval      p_QDFFSFHR = %addr(QDFFSFCR.WDFFSFPM)
 
    C                  eval      SflCtl = *on
 
    C                  endif
 
 
 
    C                  for        SizeIdx  = 0 to QDFFBASE.WDFFSCR -1
 
    C                  eval      p_QDFFSCRA  = %addr( QDFFBASE.WDFFSCRS) +
 
    C                                %size(QDFFSCRA) * SizeIdx
 
          //    *DS3 = X'03'  *DS4  = X'04'
 
    C                  eval      ScrnSize =  QDFFSCRA.WDFFSCIA
 
    C                  endfor
 
 
 
          //  Row Col table
 
    C                  eval      p_QDFFRCTB =  p_QDFFRINF + QDFFRDPD.WDFFDRCO
 
    C
 
    C                  eval      TotFlds  =  QDFFRINF.WDFFFLD
 
          //  Record Keywords
 
    C                  EXSR      RcdKwds
 
    C
 
 
 
    C                  EXSR      ProcessRcdFld
 
 
 
    CSR                endsr
 
 
 
 
 
 
 
    CSR  ProcessRcdFld begsr
 
      *  - Field Where Used -
 
    C                  eval      p_QDFWFLDI = p_QDFWRCDI + QDFWRCDI.WDFWRLEN
 
    C                  eval      p_QDFFFITB = p_QDFFRINF + QDFFRINF.WDFFOFIT
 
    C                              +( QDFWFLDI.WDFWRRDX -1) * %len(QDFFFITB)
 
    C                  for      FldIdx = 0 to QDFFRINF.WDFFFLD -1
 
 
 
    C                  Exsr      GetFldInfo
 
 
 
    C                  Exsr      FieldKwds
 
 
 
      *    p_QDFWFLDI =  p_QDFWFLDI + WDFWFLDL  next
 
    C                  if        FldIdx < QDFFRINF.WDFFFLD -1
 
    C                  eval      p_QDFWFLDI =  p_QDFWFLDI +
 
    C                                  QDFWFLDI.WDFWFLDL
 
      * Field Indexing Table (QDFFFITB) for next Field
 
    C                  eval      p_QDFFFITB  = p_QDFFRINF + QDFFRINF.WDFFOFIT
 
    C                              +( QDFWFLDI.WDFWRRDX -1) * %len(QDFFFITB)
 
    C                  endif
 
 
 
    C                  Eval      #NumFlds  = NumFlds
 
    C                  Eval      NumFlds += 1
 
    C                  Eval      %OCCUR(FldDtaDS) = NumFlds
 
 
 
 
 
    C                  Clear                  #FmtNam
 
    C                  Clear                  #FldNam
 
    C                  Clear                  #FldDTUS
 
    C                  Clear                  #FldEdt
 
    C                  Clear                  #FldLen
 
    C                  Clear                  #FldPlen
 
    C                  Clear                  #FldDec
 
    C                  Clear                  #FldAtr
 
    C                  Clear                  #FldRow
 
    C                  Clear                  #FldCol
 
    C                  Clear                  #FldCom
 
    C
 
    C                  endfor
 
    C
 
    C
 
    C
 
    CSR                endsr
 
 
 
    CSR  GetFldInfo    begsr
 
      *
 
    C                  eval      #FmtNam  =    RecordName
 
 
 
      *  - Field Header
 
    C                  eval      p_QDFFFINF  = p_QDFFRINF + QDFFFITB.WDFFFOFS
 
    C                  if        QDFFFINF.WDFFFIOA = x'01'
 
    C                  eval      p_QDFFFCON =  %ADDR(QDFFFINF.WDFFFTBE)
 
    C                  eval      p_QDFFFDPD =  p_QDFFFINF + QDFFFCON.WDFFFAOC
 
    C                  else
 
      *  Variable
 
    C                  eval      p_QDFFFNAM =  %ADDR(QDFFFINF.WDFFFTBE)
 
    C                  eval      p_QDFFFDPD =  p_QDFFFINF + QDFFFNAM.WDFFFAOF
 
    C                  eval      p_QDFFFDIC =  %addr(QDFFFDPD.WDFFFICE)
 
    C                  endif
 
      *  Field Extension
 
    C                  eval      p_QDFFXFDP  = p_QDFFFINF + QDFFFDPD.WDFFXFDO
 
      *    Row Column
 
    C                  eval      p_QDFFRCTB =  p_QDFFRINF + QDFFRDPD.WDFFDRCO
 
    C                              + (QDFWFLDI.WDFWRRDX -1) *2
 
 
 
    C                  eval      p_QDFFRCTE  = %addr(QDFFRCTB.WDFFRC)
 
      *
 
    C                  eval      hx1 = x'00'
 
    C                  eval      hx2 = QDFFRCTE.WDFFSROW
 
    C                  eval      row = wBin
 
    C                  eval      hx1 = x'00'
 
    C                  eval      hx2 = QDFFRCTE.WDFFSCOL
 
    C                  eval      col = wBin
 
    C                  eval      #FldRow = row
 
    C                  eval      #FldCol = col
 
      *  date time flags
 
    C                  if        %bitand(QDFFFINF.WDFFBFLG : Bit0)  =  Bit0
 
    C                  eval      #FldCom = 'DATE'
 
    C                  eval      #FldDTUS    = 'D'
 
    C                  endif
 
    C                  if        %bitand(QDFFFINF.WDFFBFLG : Bit1)  =  Bit1
 
    C                  eval      #FldDTUS    = 'Y'
 
    C                  endif
 
    C                  if        %bitand(QDFFFINF.WDFFBFLG : Bit2)  =  Bit2
 
    C                  eval      #FldDTUS    = 'T'
 
    C                  endif
 
    C                  if        %bitand(QDFFFINF.WDFFFBIT : Bit4)  =  Bit4
 
    C                  eval      #FldDTUS    = 'U'
 
    C                  endif
 
    C                  if        %bitand(QDFFFINF.WDFFFBIT : Bit5)  =  Bit5
 
    C                  eval      #FldDTUS    = 'S'
 
    C                  endif
 
      *
 
      *  CONSTANTS
 
    C                  if        QDFFFINF.WDFFFIOA = x'01'
 
    C                  EXSR      ProcessCons
 
    C                  ELSE
 
      *    Field Name
 
    C                  eval      p_QDFFNTB =  %addr(QDFFNTBL.WDFFNMES) +
 
    C                                +  10 * (QDFWFLDI.WDFWNMEI -1)
 
      *
 
      *  QDFFFINF.WDFFFIOA
 
      *Field attribute.
 
      *X'01' indicates Constant (see structure QDFFFCON, Constant Field Header
 
      *X'02' indicates Output (O),
 
      *X'03' indicates Message (M), h (B),
 
      *X'04' indicates Input (I),  (P)
 
      *X'05' indicates Both (B),
 
      *X'06' indicates Hidden (H), and
 
      *X'07' indicates Program to System (P)
 
    C                  eval      #FldIO    = QDFFFINF.WDFFFIOA
 
      *  WDFFKBDT
 
      * Keyboard shift and data type.
 
      * X'00' indicates Alpha shift/character (A),
 
      * X'01' indicates Alpha only (X),
 
      * X'02' indicates Numeric shift (N),
 
      * X'03' indicates Numeric only (Y),
 
      * X'04' indicates Katakana (K),
 
      * X'05' indicates Digits only (D),
 
      * X'06' indicates Inhibit keyboard (I),
 
      * X'07' indicates Signed numeric/zoned (S),
 
      * X'08' indicates Binary (B), X'09' indicates Packed (P),
 
      * X'0A' indicates Floating (F),
 
      * X'0B' indicates DBCS (J),
 
      * X'0C' indicates Open (O), X'0D' indicates Either (E),
 
      * X'0E' indicates Numeric-only character (M),
 
      * X'0F' indicates Graphic (G),
 
      * X'10' indicates Date (L),
 
      * X'11' indicates Time (T), and
 
      * X'12' indicates Timestamp (Z)
 
 
 
    C                  eval      #FldAtr  = QDFFFNAM.WDFFKBDT
 
    C                  eval      #FldNam  = QDFFNTB.WDFFNAM
 
    C                  eval      #FldCom  = *blank
 
    C                  eval      #FldPlen  = QDFFFNAM.WDFFPLEN
 
    C                  eval      #FldDec  = QDFFFNAM.WDFFDEC
 
 
 
 
 
    C                  endif
 
 
 
 
 
    CSR                endsr
 
 
 
 
 
      *------------------------------------------------
 
      * This loops through all keyword categories
 
      *  for a constant field (text on the screen.)
 
      *------------------------------------------------
 
    CSR  ProcessCons  begsr
 
    C
 
    C*
 
    C                  if        (QDFFFDPD.WDFFFDOC > 0)
 
    C*
 
    C                  eval      p_QDFFCOSA = p_QDFFFINF +
 
    C                                          QDFFFDPD.WDFFFDOC
 
    C*
 
    C                  for        cc = 0 to (QDFFCOSA.WDFFCCT - 1)
 
    C*
 
    C                  eval      p_QDFFCCOA  = %addr(QDFFCOSA.WDFFCCOS)
 
    C                                + (cc * %size(QDFFCCOA))
 
 
 
    C                  if        (QDFFCCOA.WDFFCAID  = x'22')
 
    C                  eval      p_QDFKMFDK= p_QDFFFINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
    C                  exsr      ProcessCat22
 
    C                  endif
 
 
 
    C                  if        (QDFFCCOA.WDFFCAID  = x'23')
 
    C                  eval      p_QDFKDFT = p_QDFFFINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
    C                  exsr      ProcessCat23
 
    C                  endif
 
    C
 
    C                  if        (QDFFCCOA.WDFFCAID  = x'24')
 
    C                  eval      p_QDFKEDTR =  p_QDFFFINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
    C                  exsr      ProcessCat24
 
    C                  endif
 
 
 
    C                  endfor
 
    C
 
    C                  endif
 
    C
 
    CSR                endsr
 
 
 
 
 
 
 
      *------------------------------------------------
 
      * Process  File Keywords.
 
      *------------------------------------------------
 
    CSR  FileKwds      begsr
 
    C
 
    C                  if        (QDFFDPDD.WDFFXDOC > 0)
 
    C*
 
    C                  eval      p_QDFFCOSA = p_QDFFINFO +
 
    C                                          QDFFDPDD.WDFFXDOC
 
    C*
 
    C                  for        lc = 0 to (QDFFCOSA.WDFFCCT - 1)
 
    C*
 
    C                  eval      p_QDFFCCOA  = %addr(QDFFCOSA.WDFFCCOS)
 
    C                                + (lc * %size(QDFFCCOA))
 
 
 
    C                  eval      p_QDFKFILK = p_QDFFINFO +
 
    C                                            QDFFCCOA.WDFFCAOF
 
 
 
    C                  for      lk = 1 to QDFKFILK.WDFFKFIL
 
 
 
    C                  if        (lk=1)
 
    C                  eval      p_QDFKFLPM  = %addr(QDFKFILK.WDFKFILE)
 
    C                  else
 
    C                  eval      p_QDFKFLPM  = p_QDFKFLPM  +
 
    C                                        %size(QDFKFLPM )
 
    C                  endif
 
    C
 
    C                  eval      p_QDFKFLPP = %addr(QDFKFLPM.WDFKFLEX)
 
    C                  for      lx = 1  to QDFKFLPM.WDFFKFLP
 
    C
 
    C                  select
 
    C                  when      QDFKFLPM.WDFKFLID = x'02'
 
    C                  eval      p_QDFKFLSZ = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'04'
 
    C                  eval      p_QDFKICVP = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'05'
 
    C                  eval      p_QDFKHARD = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'06'
 
    C                  eval      p_QDFKHXPS = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'07'
 
    C                  eval      p_QDFKHDOC = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'08'
 
    C                  eval      p_QDFKSIDX = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'0A'
 
    C                  eval      p_QDFKFALX = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'0B'
 
    C                  eval      p_QDFKESFL = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  when      QDFKFLPM.WDFKFLID = x'0C'
 
    C                  eval      p_QDFKBODR = %addr(QDFKFLPP.WDFKFLNM)
 
    C                  endsl
 
 
 
 
 
    C                  eval      p_QDFKFLPP =
 
    C                            p_QDFKFLPP + (QDFKFLPP.WDFKFLLN)
 
    C                  endfor
 
 
 
    C                  endfor
 
 
 
    C
 
    C
 
    C                  endfor
 
    C
 
    C                  endif
 
    C
 
    CSR                endsr
 
 
 
      *------------------------------------------------
 
      * Process  Record Keywords.
 
      *------------------------------------------------
 
    CSR  RcdKwds      begsr
 
 
 
 
 
    C                  if        (QDFFRDPD.WDFFRDOC > 0)
 
    C*
 
    C                  eval      p_QDFFCOSA = p_QDFFRINF +
 
    C                                          QDFFRDPD.WDFFRDOC
 
 
 
    C                  for        rc = 0 to (QDFFCOSA.WDFFCCT - 1)
 
    C*
 
    C                  eval      p_QDFFCCOA  = %addr(QDFFCOSA.WDFFCCOS)
 
    C                                + (rc * %size(QDFFCCOA))
 
      * Miscellaneous record-level keywords (uses (QDFKMSAP))
 
      * no structures for  IDs X'01', X'02', X'03', X'04', X'05', X'06', X'07',
 
      * ID  Keyword ID  Keyword
 
      * X'01'  LOCK    X'09'  RMVWDW
 
      * X'02'  ALARM  X'0F'  DSPMOD
 
      * X'03'  BLINK  X'10'  CSRLOC
 
      * X'04'  LOGOUT  X'11'  INDARA
 
      * X'05'  ALWGPH  X'13'  SETOFF
 
      * X'06'  MSGALARM    X'15'  RTNCSRLOC
 
      * X'07'  RETLCKSTS  X'16'  MNUBARDSP
 
      * X'08'  USRRSTDSP
 
    C                  eval      p_QDFKMSRL = p_QDFFRINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
      * Command Key Keyword Structure (QDFKCKKW)  (uses (QDFKCKKE))
 
      * Use structure QDFKCKKE for category 2 keyword IDs X'01' through X'25' an
 
      * Use structure QDFKCKKE for category 2 keyword IDs X'01' through X'25' an
 
      * ID  Keyword ID  Keyword ID  Keyword
 
      * X'01'  CA/CF01 X'0E'  CA/CF14 X'1A'  ROLLDOWN
 
      * X'02'  CA/CF02 X'0F'  CA/CF15 X'1B'  PRINT
 
      * X'03'  CA/CF03 X'10'  CA/CF16 X'1C'  HOME
 
      * X'04'  CA/CF04 X'11'  CA/CF17 X'1D'  CLEAR
 
      * X'05'  CA/CF05 X'12'  CA/CF18 X'1E'  HELP
 
      * X'06'  CA/CF06 X'13'  CA/CF19 X'20'  HLPRTN
 
      * X'07'  CA/CF07 X'14'  CA/CF20 X'21'  VLDCMDKEY
 
      * X'08'  CA/CF08 X'15'  CA/CF21 X'22'  ALTHELP
 
      * X'09'  CA/CF09 X'16'  CA/CF22 X'23'  ALTPAGEUP
 
      * X'0A'  CA/CF10 X'17'  CA/CF23 X'24'  ALTPAGEDWN
 
      * X'0B'  CA/CF11 X'18'  CA/CF24 X'25'  MNUBARSW
 
      * X'0C'  CA/CF12 X'19'  ROLLUP  X'30'  MNUCNL
 
      * X'0D'  CA/CF13
 
    C                  eval      p_QDFKCKKW = p_QDFFRINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
 
 
    C                  for      rk = 1 to QDFKCKKW.WDFFKCKS
 
 
 
    C                  if        (rk=1)
 
    C                  eval      p_QDFKCKKE  = %addr(QDFKCKKW.WDFKCKCM)
 
    C                  else
 
    C                  eval      p_QDFKCKKE  = p_QDFKCKKE +
 
    C                                        %size(QDFKCKKE )
 
    C                  endif
 
    C
 
    C                  eval      p_QDFKFLPP = %addr(QDFKFLPM.WDFKFLEX)
 
    C                  for      rx = 1  to QDFKFLPM.WDFFKFLP
 
    C
 
    C*    this is unfinished
 
    C                  eval      p_QDFKFLPP =
 
    C                            p_QDFKFLPP + (QDFKFLPP.WDFKFLLN)
 
    C                  endfor
 
 
 
    C                  endfor
 
 
 
    C
 
    C
 
    C                  endfor
 
    C
 
    C                  endif
 
    C
 
    CSR                endsr
 
 
 
      *------------------------------------------------
 
      * Process  Record Keywords.
 
      *------------------------------------------------
 
    CSR  FieldKwds    begsr
 
    C*
 
    C                  if        (QDFFFDPD.WDFFFDOC > 0)
 
    C*
 
    C                  eval      p_QDFFCOSA = p_QDFFFINF +
 
    C                                          QDFFFDPD.WDFFFDOC
 
    C*
 
    C                  for        fc = 0 to (QDFFCOSA.WDFFCCT - 1)
 
    C*
 
    C                  eval      p_QDFFCCOA  = %addr(QDFFCOSA.WDFFCCOS)
 
    C                                + (fc * %size(QDFFCCOA))
 
 
 
    C                  if        (QDFFCCOA.WDFFCAID  = x'23')
 
    C                  eval      p_QDFKDFT = p_QDFFFINF +
 
    C                                            QDFFCCOA.WDFFCAOF
 
    C                  exsr      ProcessCat23
 
    C                  endif
 
    C
 
    C                  endfor
 
    C
 
    C                  endif
 
    C
 
    CSR                endsr
 
 
 
      *------------------------------------------------
 
      * This loops through all keywords that fall into
 
      *  category 22
 
      *------------------------------------------------
 
    CSR  ProcessCat22  begsr
 
 
 
    C                  for      ck = 1 to QDFKMFDK.WDFFKMFS
 
 
 
    C                  if        (ck=1)
 
    C                  eval      p_QDFKMFDP = %ADDR(QDFKMFDK.WDFKMFEN)
 
    C                  else
 
    C                  eval      p_QDFKMFDP  = p_QDFKMFDP  +
 
    C                                        %size(QDFKMFDP )
 
    C                  endif
 
 
 
    C                  select
 
    C                  when      QDFKMFDP.WDFKMFID  = x'10'
 
    C                  eval      p_QDFKMFMV = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  when      QDFKMFDP.WDFKMFID  = x'15'
 
    C                  eval      p_QDFKMFRS = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  eval      p_QDFKMFEM = %ADDR(QDFKMFRS.WDFKMFEE)
 
    C                  when      QDFKMFDP.WDFKMFID  = x'16'
 
    C                  eval      p_QDFKMFRS = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  eval      p_QDFKMFEM = %ADDR(QDFKMFRS.WDFKMFEE)
 
    C                  eval      p_QDFKMFSI = %ADDR(QDFKMFEM.WDFKMFTX)
 
    C                  when      QDFKMFDP.WDFKMFID  = x'17'
 
    C                  eval      p_QDFKDFLD = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  when      QDFKMFDP.WDFKMFID  = x'18'
 
    C                  eval      p_QDFK_DATTIMFmat  = %ADDR(QDFKMFDP.WDFKMFEX)
 
      * WDFK_DATTIM
 
      * Format used for a field with the date or time data type.
 
      * X'01' indicates *JOB,
 
      * X'02' indicates *MDY,
 
      * X'03' indicates *DMY,
 
      * X'04' indicates *YMD,
 
      * X'05' indicates *JUL,
 
      * X'06' indicates *ISO,
 
      * X'07' indicates *USA,
 
      * X'08' indicates *EUR,
 
      * X'09' indicates *JIS,
 
      * X'0A' indicates *H
 
    C                  when      QDFKMFDP.WDFKMFID  = x'19'
 
    C                  eval      p_QDFK_DATTIM_Sep = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  eval      QDFK_DATTIM_Sep.WDFK_DATTIMSep =
 
    C                              QDFK_DATTIM_Sep.WDFK_DATTIMSep
 
    C
 
    C                  when      QDFKMFDP.WDFKMFID  = x'1A'
 
    C                  eval      p_QDFK_DATEP = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  eval      QDFK_DATEP.WDFK_DATE = QDFK_DATEP.WDFK_DATE
 
      * 0  BIT(1)  WDFK_DATE_SYS  If on, the *SYS parameter is specified
 
      * 1  BIT(1)  WDFK_DATE_YY    If on, the *YY parameter is specified
 
      * 2  BIT(1)  WDFK_DATE_EDTCDEY  If on, the EDTCDE(Y) keyword was specify
 
    C*                  If        %Bitand(WDFK_DATE:Bit0) = Bit0
 
    C*                  If        %Bitand(WDFK_DATE:Bit1) = Bit1
 
    C*                  If        %Bitand(WDFK_DATE:Bit2) = Bit2
 
 
 
    C                  when      QDFKMFDP.WDFKMFID  = x'1B'
 
    C                  eval      p_QDFK_MAPVAL = %ADDR(QDFKMFDP.WDFKMFEX)
 
    C                  endsl
 
 
 
    C                  endfor
 
    C
 
    C
 
    C
 
    CSR                endsr
 
      *------------------------------------------------
 
      * This loops through all keywords that fall into
 
      *  category 23 (DFT, MSGCON, DFTVAL, HTML)
 
      *------------------------------------------------
 
    CSR  ProcessCat23  begsr
 
 
 
    C                  for      ck = 1 to QDFKDFT.WDFFKDFS
 
 
 
    C                  if        (ck=1)
 
    C                  eval      p_QDFKDFPM  = %addr(QDFKDFT.WDFKDFPE)
 
    C                  else
 
    C                  eval      p_QDFKDFPM  = p_QDFKDFPM  +
 
    C                                        %size(QDFKDFPM )
 
    C                  endif
 
 
 
    C                  if        (QDFKDFPM.WDFKDFID  = DFT)
 
 
 
    C                  eval      p_KwdData = p_QDFKDFPM  +
 
    C                                    %size(QDFKDFPM ) - 2
 
 
 
    C                  eval      Temp = KwdData
 
    C
 
 
 
    C                  eval      #FldLen = QDFKDFPM.WDFKDFLN
 
    C                  eval      #FldIO    = QDFFFINF.WDFFFIOA
 
    C                  eval      #FldCom = Temp
 
    C
 
    C                  endif
 
    C
 
    C                  endfor
 
    CSR                endsr
 
 
 
 
 
      *------------------------------------------------
 
      * This loops through all keywords that fall into
 
      *  category 24 (Date, Time)
 
      *------------------------------------------------
 
    CSR  ProcessCat24  begsr
 
 
 
    C                  for      ck = 1 to QDFKEDTR.WDFFKEDS
 
 
 
    C                  if        (ck=1)
 
    C                  eval      p_QDFKEDTP = %addr(QDFKEDTR.WDFKEDKW )
 
    C                  else
 
    C                  eval      p_QDFKEDTP  = p_QDFKEDTP  +
 
    C                                        %size(QDFKEDTP )
 
    C                  endif
 
    C
 
    C
 
      *    EDIT Keyword Structure (QDFKEDTP)
 
      *    Use this structure for category 24 keywords that
 
      *  have keyword IDs of X'01' and X'02'.
 
 
 
      *    Type    Variable Name  Field
 
      *    CHAR(1) WDFKEDID    Keyword ID.
 
      *    CHAR(1) WDFKEDSY    Zero suppress or fill character for the EDTCDE k
 
      *    BIN(15) WDFKEDML    Length of the edit mask.
 
      *    CHAR(1) *  Reserved.
 
      *    CHAR(*) WDFKEDMS    The edit mask for the EDTCDE and EDTWRD keywords
 
      *
 
 
 
    C                  eval      #FldEdt = %subst(QDFKEDTP.WDFKEDMSX : 1
 
    C                                              : QDFKEDTP.WDFKEDML)
 
 
 
    C                  eval      #FldLen  = QDFKEDTP.WDFKEDML
 
    C                  eval      #FldIO    = QDFFFINF.WDFFFIOA
 
 
 
 
 
    C                  endfor
 
    CSR                endsr
 
 
 
    P RtvFlds        E
 
 
 
</pre>
 
 
 
[[#top]]
 
 
 
===  DSMFD Driver  ===
 
 
 
To use this program do:-
 
 
 
CALL  DSMFD  ('urlib'  'urdspf')
 
 
 
It will present a list of Display Records to you that you can select to see how the display file looks on the screen.
 
 
 
 
 
<pre>
 
    h Option(*NODEBUGIO)
 
 
 
      //  CRTRPGMOD MODULE(urlib/DSMFD)
 
      //            SRCFILE(urlib/ursrcfile)
 
      //            SRCMBR(DSMFD) REPLACE(*YES)
 
 
 
 
 
      // CRTSRVPGM SRVPGM(urlib/DSPFINFO)
 
      //              MODULE(urlib  /DSPFINFO)
 
      //                    EXPORT(*ALL)
 
 
 
      // CRTPGM PGM(urlib/DSMFD) MODULE(urlib/DSMFD)
 
      // BNDSRVPGM((urlib/DSPFINFO *IMMED) )
 
 
 
      //  CALL  urlib/DSMFD ('*LIBL  ' 'CDISPRF  ')
 
 
 
 
 
    D DSMFD          PR
 
    D                              10
 
    D                              10
 
 
 
    D DSMFD          PI
 
    D  $Lib                        10
 
    D  $Fil                        10
 
 
 
    D  $FilQul        S            20
 
 
 
 
 
      /if defined(QSNAPI_H)
 
      /eof
 
      /endif
 
      /define QSNAPI_H
 
      *-------------------------------------------------------------
 
      * Simple data types
 
      *-------------------------------------------------------------
 
    D Q_Handle_T      s            10I 0 based(Template)
 
    D Qsn_Cmd_Buf_T  s                  like(Q_Handle_T) based(Template)
 
    D Qsn_Inp_Buf_T  s                  like(Q_Handle_T) based(Template)
 
    D Qsn_Env_T      s                  like(Q_Handle_T) based(Template)
 
    D QSN_FAIL        c                  -1
 
      *-------------------------------------------------------------
 
      * QsnCrtCmdBuf(): Create command buffer
 
      *-------------------------------------------------------------
 
    D QsnCrtCmdBuf    PR            10I 0 extproc('QsnCrtCmdBuf')
 
    D  InitSize                    10I 0 const
 
    D  IncrAmt                    10I 0 const options(*omit)
 
    D  MaxSize                    10I 0 const options(*omit)
 
    D  Handle                      10I 0 options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnCrtInpBuf(): Create Input Buffer
 
      *-------------------------------------------------------------
 
    D QsnCrtInpBuf    PR            10I 0 extproc('QsnCrtInpBuf')
 
    D  BufSize                    10I 0 const
 
    D  IncrAmt                    10I 0 const options(*omit)
 
    D  MaxSize                    10I 0 const options(*omit)
 
    D  Handle                      10I 0 options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnClrBuf(): Clear/Reset Buffer (any type)
 
      *-------------------------------------------------------------
 
    D QsnClrBuf      PR            10I 0 extproc('QsnClrBuf')
 
    D  BufHandle                  10I 0 const
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnDltBuf(): Delete buffer (any type)
 
      *-------------------------------------------------------------
 
    D QsnDltBuf      PR            10I 0 extproc('QsnDltBuf')
 
    D  BufHandle                  10I 0 const
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnClrScr():  Clear screen
 
      *-------------------------------------------------------------
 
    D QsnClrScr      PR            10I 0 extproc('QsnClrScr')
 
    D  mode                        1A  const options(*omit)
 
    D  cmdbuf                      10I 0 const options(*omit)
 
    D  LowEnvHandle                10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnWrtDta():  Write data to the display
 
      *-------------------------------------------------------------
 
    D QsnWrtDta      PR            10I 0 extproc('QsnWrtDta')
 
    D  Data                    32767A  const options(*varsize)
 
    D  DataLen                    10I 0 const
 
    D  FieldID                    10I 0 const options(*omit)
 
    D  Row                        10I 0 const options(*omit)
 
    D  Column                      10I 0 const options(*omit)
 
    D  StrMonoAttr                  1A  const options(*omit)
 
    D  EndMonoAttr                  1A  const options(*omit)
 
    D  StrColorAttr                1A  const options(*omit)
 
    D  EndColorAttr                1A  const options(*omit)
 
    D  CmdBufHandle                10I 0 const options(*omit)
 
    D  LowEnvHandle                10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnSetFld():  Add a field to the display
 
      *-------------------------------------------------------------
 
    D QsnSetFld      PR            10I 0 extproc('QsnSetFld')
 
    D  FieldID                    10I 0 const options(*omit)
 
    D  FieldLen                    10I 0 const options(*omit)
 
    D  Row                        10I 0 const options(*omit)
 
    D  Column                      10I 0 const options(*omit)
 
    D  FFW                          2A  const options(*omit)
 
    D  FCW                          2A  const dim(32767)
 
    D                                    options(*omit: *varsize)
 
    D  NumOfFCW                    10I 0 const options(*omit)
 
    D  MonoAttr                    1A  const options(*omit)
 
    D  ColorAttr                    1A  const options(*omit)
 
    D  CmdBufHandle                10I 0 const options(*omit)
 
    D  LowEnvHandle                10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnReadInp(): Read data and wait for AID key
 
      *-------------------------------------------------------------
 
    D QsnReadInp      PR            10I 0 extproc('QsnReadInp')
 
    D  CC1                          1A  const
 
    D  CC2                          1A  const
 
    D  DataBytes                  10I 0 options(*omit)
 
    D  InpBufHandle                10I 0 options(*omit)
 
    D  CmdBufHandle                10I 0 options(*omit)
 
    D  LowEnvHandle                10I 0 options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnPutBuf():      Send command output buffer to terminal
 
      *-------------------------------------------------------------
 
    D QsnPutBuf      PR            10I 0 extproc('QsnPutBuf')
 
    D  CmdBufHandle                10I 0 const
 
    D  LowEnvHandle                10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnPutGetBuf():  Send command output buffer to terminal
 
      *                  then wait for input buffer from terminal
 
      *-------------------------------------------------------------
 
    D QsnPutGetBuf    PR            10I 0 extproc('QsnPutGetBuf')
 
    D  CmdBufHandle                10I 0 const
 
    D  InpBufHandle                10I 0 const
 
    D  LowEnvHandle                10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnRtvDta(): Get pointer to input data in input buffer
 
      *-------------------------------------------------------------
 
    D QsnRtvDta      PR              *  extproc('QsnRtvDta')
 
    D  InpBufHandle                10I 0 const
 
    D  PtrToData                    *  const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      * QsnRtvDtaLen(): Get length of input data in input buffer
 
      *-------------------------------------------------------------
 
    D QsnRtvDtaLen    PR            10I 0 extproc('QsnRtvDtaLen')
 
    D  InpBufHandle                10I 0 const
 
    D  DataLen                    10I 0 const options(*omit)
 
    D  ErrorCode                32767A  options(*omit: *varsize)
 
      *-------------------------------------------------------------
 
      *
 
      *-------------------------------------------------------------
 
    D Qsn_Env_Desc_T...
 
    D                DS                  qualified based(Template)
 
    D  color_support                1A
 
    D  CDRA                          1A
 
    D  CDRA_3F                      1A
 
    D  DBCS_support                  1A
 
    D  coexist                      1A
 
    D  alt_help                      1A
 
    D  tgt_dev                      10A
 
    D  disp_file                    20A
 
    D  invite_active                1A
 
    D  prevent_ovrd                  1A
 
      *-------------------------------------------------------------
 
      *
 
      *-------------------------------------------------------------
 
    D Qsn_Env_Rtv_Desc_T...
 
    D                DS                  qualified based(Template)
 
    D  bytes_rtn                    10I 0
 
    D  bytes_avail                  10I 0
 
    D  color_support                1A
 
    D  CDRA                          1A
 
    D  CDRA_3F                      1A
 
    D  DBCS_support                  1A
 
    D  coexist                      1A
 
    D  alt_help                      1A
 
    D  tgt_dev                      10A
 
    D  dsp_file                    20A
 
    D  invite_active                1A
 
    D  prevent_ovrd                  1A
 
      *-------------------------------------------------------------
 
      * Constants used for creating/querying the environment
 
      *-------------------------------------------------------------
 
    D QSN_COLOR_NO...
 
    D                C                  '1'
 
    D QSN_COLOR_YES...
 
    D                C                  '2'
 
    D QSN_COLOR_SELECT...
 
    D                C                  '3'
 
    D QSN_CDRA_STD...
 
    D                C                  '1'
 
    D QSN_CDRA_CNVT...
 
    D                C                  '2'
 
    D QSN_DBCS_STD...
 
    D                C                  '1'
 
    D QSN_DBCS_ONLY...
 
    D                C                  '2'
 
    D QSN_DBCS_EITHER...
 
    D                C                  '3'
 
    D QSN_DBCS_MIXED...
 
    D                C                  '4'
 
    D QSN_COEXIST_YES...
 
    D                C                  '1'
 
    D QSN_COEXIST_NO...
 
    D                C                  '2'
 
    D QSN_ALTHELP_NO...
 
    D                C                  '1'
 
    D QSN_TGT_REQ...
 
    D                C                  '*REQUESTER'
 
    D QSN_INVITE_NO...
 
    D                C                  '1'
 
    D QSN_INVITE_YES...
 
    D                C                  '2'
 
    D QSN_PREVENT_OVERRIDE_NO...
 
    D                C                  '1'
 
    D QSN_PREVENT_OVERRIDE_YES...
 
    D                C                  '2'
 
    D QSN_SAME        C                  '0'
 
    D QSN_DSP03      C                  '3'
 
    D QSN_DSP04      C                  '4'
 
      *-------------------------------------------------------------
 
      * AID keys (function keys, et al)
 
      *-------------------------------------------------------------
 
    D Qsn_F1          C                  X'31'
 
    D Qsn_F2          C                  X'32'
 
    D Qsn_F3          C                  X'33'
 
    D Qsn_F4          C                  X'34'
 
    D Qsn_F5          C                  X'35'
 
    D Qsn_F6          C                  X'36'
 
    D Qsn_F7          C                  X'37'
 
    D Qsn_F8          C                  X'38'
 
    D Qsn_F9          C                  X'39'
 
    D Qsn_F10        C                  X'3A'
 
    D Qsn_F11        C                  X'3B'
 
    D Qsn_F12        C                  X'3C'
 
    D Qsn_F13        C                  X'B1'
 
    D Qsn_F14        C                  X'B2'
 
    D Qsn_F15        C                  X'B3'
 
    D Qsn_F16        C                  X'B4'
 
    D Qsn_F17        C                  X'B5'
 
    D Qsn_F18        C                  X'B6'
 
    D Qsn_F19        C                  X'B7'
 
    D Qsn_F20        C                  X'B8'
 
    D Qsn_F21        C                  X'B9'
 
    D Qsn_F22        C                  X'BA'
 
    D Qsn_F23        C                  X'BB'
 
    D Qsn_F24        C                  X'BC'
 
    D Qsn_SLP        C                  X'3F'
 
    D Qsn_FET        C                  X'50'
 
    D Qsn_PA1        C                  X'6C'
 
    D Qsn_PA2        C                  X'6E'
 
    D Qsn_PA3        C                  X'6B'
 
    D Qsn_Clear      C                  X'BD'
 
    D Qsn_Enter      C                  X'F1'
 
    D Qsn_Help        C                  X'F3'
 
    D Qsn_RollDown    C                  X'F4'
 
    D Qsn_RollUp      C                  X'F5'
 
    D Qsn_PageUp      C                  X'F4'
 
    D Qsn_PageDown    C                  X'F5'
 
    D Qsn_Print      C                  X'F6'
 
    D Qsn_RecBS      C                  X'F8'
 
    DQsn5250QY        C                  '1'
 
    DQsn5250QN        C                  '2'
 
    DQsn5250QF        C                  '3'
 
      *-------------------------------------------------------------
 
      * Control Characters ( CC1 & CC2 )
 
      *-------------------------------------------------------------
 
    D QSN_CC1_NULL...
 
    D                C                  X'00'
 
    D QSN_CC1_LOCKBD...
 
    D                C                  X'20'
 
    D QSN_CC1_MDTNBY...
 
    D                C                  X'40'
 
    D QSN_CC1_MDTALL...
 
    D                C                  X'60'
 
    D QSN_CC1_CLRMOD...
 
    D                C                  X'80'
 
    D QSN_CC1_MDTNBY_CLRALL...
 
    D                C                  X'A0'
 
    D QSN_CC1_MDTNBY_CLRMOD...
 
    D                C                  X'C0'
 
    D QSN_CC1_MDTALL_CLRALL...
 
    D                C                  X'E0'
 
    D QSN_CC2_NULL...
 
    D                C                  X'00'
 
    D QSN_CC2_NO_IC...
 
    D                C                  X'40'
 
    D QSN_CC2_RST_CSR_BL...
 
    D                C                  X'20'
 
    D QSN_CC2_SET_CSR_BL...
 
    D                C                  X'10'
 
    D QSN_CC2_UNLOCKBD...
 
    D                C                  X'08'
 
    D QSN_CC2_ALARM...
 
    D                C                  X'04'
 
    D QSN_CC2_MSG_OFF...
 
    D                C                  X'02'
 
    D QSN_CC2_MSG_ON...
 
    D                C                  X'01'
 
      *-------------------------------------------------------------
 
      *  Screen Attributes
 
      *-------------------------------------------------------------
 
    D QSN_NO_SA...
 
    D                C                  X'00'
 
    D QSN_SA_NORM...
 
    D                C                  X'20'
 
    D QSN_SA_CS...
 
    D                C                  X'30'
 
    D QSN_SA_BL...
 
    D                C                  X'28'
 
    D QSN_SA_UL...
 
    D                C                  X'24'
 
    D QSN_SA_HI...
 
    D                C                  X'22'
 
    D QSN_SA_RI...
 
    D                C                  X'21'
 
    D QSN_SA_ND...
 
    D                C                  X'27'
 
    D QSN_SA_GRN...
 
    D                C                  X'20'
 
    D QSN_SA_GRN_RI...
 
    D                C                  X'21'
 
    D QSN_SA_WHT...
 
    D                C                  X'22'
 
    D QSN_SA_WHT_RI...
 
    D                C                  X'23'
 
    D QSN_SA_GRN_UL...
 
    D                C                  X'24'
 
    D QSN_SA_GRN_UL_RI...
 
    D                C                  X'25'
 
    D QSN_SA_WHT_UL...
 
    D                C                  X'26'
 
    D QSN_SA_RED...
 
    D                C                  X'28'
 
    D QSN_SA_RED_RI...
 
    D                C                  X'29'
 
    D QSN_SA_RED_BL...
 
    D                C                  X'2A'
 
    D QSN_SA_RED_RI_BL...
 
    D                C                  X'2B'
 
    D QSN_SA_RED_UL...
 
    D                C                  X'2C'
 
    D QSN_SA_RED_UL_RI...
 
    D                C                  X'2D'
 
    D QSN_SA_RED_UL_BL...
 
    D                C                  X'2E'
 
    D QSN_SA_ND_2F...
 
    D                C                  X'2F'
 
    D QSN_SA_TRQ_CS...
 
    D                C                  X'30'
 
    D QSN_SA_TRQ_CS_RI...
 
    D                C                  X'31'
 
    D QSN_SA_YLW_CS...
 
    D                C                  X'32'
 
    D QSN_SA_YLW_CS_RI...
 
    D                C                  X'33'
 
    D QSN_SA_TRQ_UL...
 
    D                C                  X'34'
 
    D QSN_SA_TRQ_UL_RI...
 
    D                C                  X'35'
 
    D QSN_SA_YLW_UL...
 
    D                C                  X'36'
 
    D QSN_SA_ND_37...
 
    D                C                  X'37'
 
    D QSN_SA_PNK...
 
    D                C                  X'38'
 
    D QSN_SA_PNK_RI...
 
    D                C                  X'39'
 
    D QSN_SA_BLU...
 
    D                C                  X'3A'
 
    D QSN_SA_BLU_RI...
 
    D                C                  X'3B'
 
    D QSN_SA_PNK_UL...
 
    D                C                  X'3C'
 
    D QSN_SA_PNK_UL_RI...
 
    D                C                  X'3D'
 
    D QSN_SA_BLU_UL...
 
    D                C                  X'3E'
 
    D QSN_SA_ND_3F...
 
    D                C                  X'3F'
 
      *-------------------------------------------------------------
 
      * Ideographic shift-in and shift-out
 
      *-------------------------------------------------------------
 
    D QSN_SO          C                  X'0E'
 
    D QSN_SI          C                  X'0F'
 
      *-------------------------------------------------------------
 
      *  Field Format Words
 
      *-------------------------------------------------------------
 
    D QSN_NO_FFW      C                  X'0000'
 
    D QSN_FFW_BYPASS  C                  X'6000'
 
    D QSN_FFW_DUP    C                  X'5000'
 
    D QSN_FFW_MDT    C                  X'4800'
 
    D QSN_FFW_ALPHA_SHIFT...
 
    D                C                  X'4000'
 
    D QSN_FFW_ALPHA_ONLY...
 
    D                C                  X'4100'
 
    D QSN_FFW_NUM_SHIFT...
 
    D                C                  X'4200'
 
    D QSN_FFW_NUM_ONLY...
 
    D                C                  X'4300'
 
    D QSN_FFW_KATA...
 
    D                C                  X'4400'
 
    D QSN_FFW_DIGIT_ONLY...
 
    D                C                  X'4500'
 
    D QSN_FFW_IO...
 
    D                C                  X'4600'
 
    D QSN_FFW_SIGNED_NUMERIC...
 
    D                C                  X'4700'
 
    D QSN_FFW_AUTO_ENTER...
 
    D                C                  X'4080'
 
    D QSN_FFW_FER...
 
    D                C                  X'4040'
 
    D QSN_FFW_AUTO_FER...
 
    D                C                  X'4040'
 
    D QSN_FFW_MONOCASE...
 
    D                C                  X'4020'
 
    D QSN_FFW_AUTO_MONOCASE...
 
    D                C                  X'4020'
 
    D QSN_FFW_ME...
 
    D                C                  X'4008'
 
    D QSN_FFW_NOADJUST...
 
    D                C                  X'4000'
 
    D QSN_FFW_RA_ZERO...
 
    D                C                  X'4005'
 
    D QSN_FFW_RA_BLANK...
 
    D                C                  X'4006'
 
    D QSN_FFW_MF...
 
    D                C                  X'4007'
 
    D QSN_FCW_RESEQ...
 
    D                C                  X'8000'
 
    D QSN_FCW_MSR...
 
    D                C                  X'8101'
 
    D QSN_FCW_SLP...
 
    D                C                  X'8102'
 
    D QSN_FCW_MSR_SLP...
 
    D                C                  X'8103'
 
    D QSN_FCW_SLP_SA...
 
    D                C                  X'8106'
 
    D QSN_FCW_DBCS_ONLY...
 
    D                C                  X'8200'
 
    D QSN_FCW_DBCS_PURE...
 
    D                C                  X'8220'
 
    D QSN_FCW_DBCS_EITHER...
 
    D                C                  X'8240'
 
    D QSN_FCW_DBCS_OPEN...
 
    D                C                  X'8280'
 
    D QSN_FCW_DBCS_OPEN_CO...
 
    D                C                  X'82C0'
 
    D QSN_FCW_TRANSPARENT...
 
    D                C                  X'8400'
 
    D QSN_FCW_FET...
 
    D                C                  X'8501'
 
    D QSN_FCW_CONT_FIRST...
 
    D                C                  X'8601'
 
    D QSN_FCW_CONT_LAST...
 
    D                C                  X'8602'
 
    D QSN_FCW_CONT_MIDDLE...
 
    D                C                  X'8603'
 
    D QSN_FCW_CP...
 
    D                C                  X'8800'
 
    D QSN_FCW_HL...
 
    D                C                  X'8900'
 
    D QSN_FCW_PDS...
 
    D                C                  X'8A00'
 
    D QSN_FCW_MOD11...
 
    D                C                  X'B140'
 
    D QSN_FCW_MOD10...
 
    D                C                  X'B1A0'
 
    D QSN_READ_INP...
 
    D                C                  X'42'
 
    D QSN_READ_MDT...
 
    D                C                  X'52'
 
    D QSN_READ_IMM...
 
    D                C                  X'72'
 
    D QSN_READ_MDT_ALT...
 
    D                C                  X'82'
 
      /if defined(TO_BE_CONVERTED_LATER)
 
      *
 
      * Structure definitions.
 
      *
 
    DQsnEnvExtI      DS
 
      * Data structure for QsnCrtEnv API.
 
    D  QsnEEDta                      *
 
    D  QsnEEChg                      *  procptr
 
    D  QsnEEDlt                      *  procptr
 
    DQsnEnvWM        DS
 
      * Data structures for QsnSetEnvWinMod API.
 
    D  QsnEWAtrC                    1A
 
    D  QsnEWULR                    10I 0
 
    D  QsnEWULC                    10I 0
 
    D  QsnEWNumR                    10I 0
 
    D  QsnEWNumC                    10I 0
 
    DQsnREnvWM        DS
 
      * Data structures for QsnRtvEnvWinMod API.
 
    D  QsnREWRet                    10I 0
 
    D  QsnREWAvl                    10I 0
 
    D  QsnREWMode                    1A
 
    D  QsnREWAtr                    1A
 
    D  QsnREWULR                    10I 0
 
    D  QsnREWULC                    10I 0
 
    D  QsnREWNumR                  10I 0
 
    D  QsnREWNumC                  10I 0
 
    DQsnQ5250        DS
 
      * Data structure for QsnQry5250 API.
 
    D  QsnQ5Ret                    10I 0
 
    D  QsnQ5Avl                    10I 0
 
    D  QsnQ5Stat                    1A
 
    D  QsnQ5Wkstn                    4B 0
 
    D  QsnQ5CLvl                    3A
 
    D  QsnQ5R1                      16A
 
    D  QsnQ5WType                    1A
 
    D  QsnQ5MType                    4A
 
    D  QsnQ5Model                    3A
 
    D  QsnQ5KbdID                    1A
 
    D  QsnQ5EKbd                    1A
 
    D  QsnQ5PcKbd                    1A
 
    D  QsnQ5SNum                    4A
 
    D  QsnQ5MaxIn                    4B 0
 
    D  QsnQ5WSCSp                    2A
 
    D  QsnQ5R2                      1A
 
    D  QsnQ5WSCB1                    1A
 
    D  QsnQ5WSCB2                    1A
 
    D  QsnQ5WSCB3                    1A
 
    D  QsnQ5WSCB4                    1A
 
    D  QsnQ5WSCB5                    1A
 
    D  QsnQ5R3                      5A
 
    D  QsnQ5Prt                      1A
 
    D  QsnQ5R4                      1A
 
    D  QsnQ5GrdBf                    1A
 
    D  QsnQ5R5                      9A
 
      *Note: this may be expanded in the future
 
    DQsnReadInf      DS
 
      * Data structure for QsnRtvReadInf API.
 
    D  QsnRIRet                    10I 0
 
    D  QsnRIAvl                    10I 0
 
    D  QsnRIR1                      8A
 
    D  QsnRIDta                      *
 
    D  QsnRIFDta                      *
 
    D  QsnRIDtaL                    10I 0
 
    D  QsnRIFDtaL                  10I 0
 
    D  QsnRINumF                    10I 0
 
    D  ReadLen                      10I 0
 
    D  QsnRIRow                    10I 0
 
    D  QsnRICol                    10I 0
 
    D  QsnRIAID                      1A
 
    D  QsnRIR2                      7A
 
    DQsnFldInf        DS
 
      * Data structure for QsnRtvFldInf API.
 
    D  QsnFIRet                    10I 0
 
    D  QsnFIAvl                    10I 0
 
    D  QsnFIType                    1A
 
    D  QsnFIRow                    10I 0
 
    D  QsnFICol                    10I 0
 
    D  QsnFIFDtaL                  10I 0
 
    D  QsnFIR1                      11A
 
    D  QsnFIDta                      *
 
    DQsnWinExtI      DS
 
      * Data structure for QsnCrtWin API
 
    D  QsnWEDta                      *
 
    D  QsnWEChg                      *  procptr
 
    D  QsnWEDlt                      *  procptr
 
    D  QsnWECoord                    *  procptr
 
    D  QsnWEDraw                      *  procptr
 
    D  QsnWECur                      *  procptr
 
    DQsnWinD          DS
 
      * Data structures for QsnCrtWin and QsnChgWin APIs.
 
    D  QsnWTopR                    10I 0
 
    D  QsnWLeftC                    10I 0
 
    D  QsnWNumR                    10I 0
 
    D  QsnWNumC                    10I 0
 
    D  QsnWMinR                    10I 0
 
    D  QsnWMinC                    10I 0
 
    D  QsnWMaxR                    10I 0
 
    D  QsnWMaxC                    10I 0
 
    D  QsnWFS                        1A
 
    D  QsnWAtrM1                    1A
 
    D  QsnWAtrM2                    1A
 
    D  QsnWAtrM3                    1A
 
    D  QsnWAtrC1                    1A
 
    D  QsnWAtrC2                    1A
 
    D  QsnWAtrC3                    1A
 
    D  QsnWShowB                    1A
 
    D  QsnWShowBA                    1A
 
    D  QsnWShowLA                    1A
 
    D  QsnWShowRA                    1A
 
    D  QsnWMsgL                      1A
 
    D  QsnWULCh                      1A
 
    D  QsnWTopCh                    1A
 
    D  QsnWURCh                      1A
 
    D  QsnWLCh                      1A
 
    D  QsnWRCh                      1A
 
    D  QsnWLLCh                      1A
 
    D  QsnWBotCh                    1A
 
    D  QsnWLRCh                      1A
 
    D  QsnWGUI                      1A
 
    D  QsnWFlg1                      1A
 
    D  QsnWFlg2                      1A
 
    D  QsnWR1                        1A
 
    D  QsnWBdrF                      1A
 
    D  QsnWTtlF                      1A
 
    D  QsnWTAtrM                    1A
 
    D  QsnWTAtrC                    1A
 
    D  QsnWR2                        1A
 
    D  QsnWR3                        3A
 
    D  QsnWTtlO                    10I 0
 
    D  QsnWTtlL                    10I 0
 
    D  QsnWR4                      10I 0
 
    DQsnRWinD        DS
 
      * Data structure for QsnRtvWinD API.
 
    D  QsnRWRet                    10I 0
 
    D  QsnRWAvl                    10I 0
 
    D  QsnRWTopR                    10I 0
 
    D  QsnRWLeftC                  10I 0
 
    D  QsnRWNumR                    10I 0
 
    D  QsnRWNumC                    10I 0
 
    D  QsnRWMinR                    10I 0
 
    D  QsnRWMinC                    10I 0
 
    D  QsnRWMaxR                    10I 0
 
    D  QsnRWMaxC                    10I 0
 
    D  QsnRWFS                      1A
 
    D  QsnRWAtrM1                    1A
 
    D  QsnRWAtrM2                    1A
 
    D  QsnRWAtrM3                    1A
 
    D  QsnRWAtrC1                    1A
 
    D  QsnRWAtrC2                    1A
 
    D  QsnRWAtrC3                    1A
 
    D  QsnRWShwB                    1A
 
    D  QsnRWShwBA                    1A
 
    D  QsnRWShwLA                    1A
 
    D  QsnRWShwRA                    1A
 
    D  QsnRWMsgL                    1A
 
    D  QsnRWULCh                    1A
 
    D  QsnRWTopCh                    1A
 
    D  QsnRWURCh                    1A
 
    D  QsnRWLCh                      1A
 
    D  QsnRWRCh                      1A
 
    D  QsnRWLLCh                    1A
 
    D  QsnRWBotCh                    1A
 
    D  QsnRWLRCh                    1A
 
    D  QsnRWGUI                      1A
 
    D  QsnRWFlg1                    1A
 
    D  QsnRWFlg2                    1A
 
    D  QsnRWR1                      1A
 
    D  QsnRWBdrF                    1A
 
    D  QsnRWTtlF                    1A
 
    D  QsnRWTAtrM                    1A
 
    D  QsnRWTAtrC                    1A
 
    D  QsnRWR2                      1A
 
    D  QsnRWR3                      3A
 
    D  QsnRWTtlO                    10I 0
 
    D  QsnRWTtlL                    10I 0
 
    D  QsnRWR4                      10I 0
 
    DQsnSsnExtI      DS
 
      * Data structure for QsnCrtSsn API
 
    D  QsnSEDta                      *
 
    D  QsnSEChg                      *  procptr
 
    D  QsnSEDlt                      *  procptr
 
    D  QsnSECoord                    *  procptr
 
    D  QsnSEDraw                      *  procptr
 
    D  QsnSECur                      *  procptr
 
    DQsnSsnD          DS
 
      * Data structure for QsnCrtSsn and QsnChgSsn APIs
 
    D  QsnSActn                      *  procptr Dim(24)
 
    D  QsnSTRow                    10I 0
 
    D  QsnSLCol                    10I 0
 
    D  QsnSNRows                    10I 0
 
    D  QsnSNCols                    10I 0
 
    D  QsnSRollA                    10I 0
 
    D  QsnSShftA                    10I 0
 
    D  QsnSISize                    10I 0
 
    D  QsnSMSize                    10I 0
 
    D  QsnSIncr                    10I 0
 
    D  QsnSIRows                    10I 0
 
    D  QsnSR1                        1A
 
    D  QsnSWrap                      1A
 
    D  QsnSR2                        1A
 
    D  QsnEBCDIC                    1A
 
    D  QsnSEcho                      1A
 
    D  QsnSLDsp                      1A
 
    D  QsnSCDsp                      1A
 
    D  QsnSShowC                    1A
 
    D  QsnSCmdAM                    1A
 
    D  QsnSCmdAC                    1A
 
    D  QsnSInLAM                    1A
 
    D  QsnSInLAC                    1A
 
    D  QsnSPmtO                    10I 0
 
    D  QsnSPmtL                    10I 0
 
    D  QsnSCmdO1                    10I 0
 
    D  QsnSCmdL1                    10I 0
 
    D  QsnSCmdO2                    10I 0
 
    D  QsnSCmdL2                    10I 0
 
    D  QsnSR4                      20A
 
    DQsnRSsnD        DS
 
      * Data structure for QsnRtvSsnD APIs
 
    D  QsnRSRet                    10I 0
 
    D  QsnRSAvl                    10I 0
 
    D  QsnRSR1                      8A
 
    D  QsnRSActn                      *  procptr Dim(24)
 
    D  QsnRSTRow                    10I 0
 
    D  QsnRSLCol                    10I 0
 
    D  QsnRSNRows                  10I 0
 
    D  QsnRSNCols                  10I 0
 
    D  QsnRSRollA                  10I 0
 
    D  QsnRSShftA                  10I 0
 
    D  QsnRSISize                  10I 0
 
    D  QsnRSMSize                  10I 0
 
    D  QsnRSIncr                    10I 0
 
    D  QsnRSIRows                  10I 0
 
    D  QsnRSR2                      1A
 
    D  QsnRSWrap                    1A
 
    D  QsnRSR3                      1A
 
    D  QsnREBCDIC                    1A
 
    D  QsnRSEcho                    1A
 
    D  QsnRSLDsp                    1A
 
    D  QsnRSCDsp                    1A
 
    D  QsnRSShowC                    1A
 
    D  QsnRSCmdAM                    1A
 
    D  QsnRSCmdAC                    1A
 
    D  QsnRSInLAM                    1A
 
    D  QsnRSInLAC                    1A
 
    D  QsnRSPmtO                    10I 0
 
    D  QsnRSPmtL                    10I 0
 
    D  QsnRSCmdO1                  10I 0
 
    D  QsnRSCmdL1                  10I 0
 
    D  QsnRSCmdO2                  10I 0
 
    D  QsnRSCmdL2                  10I 0
 
    D  QsnRSR5                      20A
 
      /endif
 
 
 
    d $SelFmts        pr
 
    d                              10A  Dim(100)
 
    d                              10I 0
 
    d                              100A
 
 
 
 
 
    d $PutRecords    Pr
 
 
 
 
 
    d $PutRecord      Pr
 
    d  Record                      10A  const
 
    d  Add                          1A  const
 
    d  ReadScr                      1A  const
 
 
 
 
 
    d Lines          s            78A  dim(24)
 
    d length          s            10i 0
 
    d Q              s              1    inz('''')
 
 
 
 
 
 
 
    D APIErrorDS      DS
 
    D                              10I 0 Inz( %Size( APIErrorDS ) )
 
    D  BytesAvail                  10I 0 Inz( *Zero )
 
    D  MsgID                        7    Inz( *Blanks )
 
    D                                1    Inz( X'00' )
 
    D  MsgDta                      256    Inz( *Blanks )
 
 
 
      *
 
    d InputData      ds                  qualified
 
    d                                    based(p_InputData)
 
    d  Row                          3U 0
 
    d  Col                          3U 0
 
    d  AID                          1A
 
    d  Field                      500A
 
 
 
 
 
      *
 
      *
 
    d  dataout        ds          256    qualified inz
 
    d    F3                          n  overlay(dataout:1)
 
    d    Choice                      1    overlay(dataout:*next)
 
      **---------------------------------------------------------------
 
 
 
    D FldDtaDS        DS                  occurs(6000)
 
 
 
    D  #FmtNam                      10A
 
    D  #FldNam                      10A
 
    D  #FldLen                      5I 0
 
    D  #FldPlen                      5I 0
 
    D  #FldDec                      1
 
    D  #FldIO                        1
 
    D  #FldAtr                      1
 
    D  #FldDTUS                      1
 
    D  #FldEdt                      20A
 
    D  #FldRow                      10I 0
 
    D  #FldCol                      10I 0
 
    D  #FldCom                    1000A  varying
 
 
 
    D  SavFmt        s            10A
 
    D  #FFW          s              2A
 
    D  #FLEN          s              5I 0
 
    d screenatr      s              1
 
    d ssize          s              4  0
 
    d #GotFlds        s            10i 0
 
 
 
    D RTVFLDS        PR              N
 
    D  $FilQul                      20    Value
 
    D  $NumFlds                    10I 0
 
    D  $FldDtaDS                          Like(FldDtaDS)
 
 
 
 
 
    d #Fmts          s            10A  Dim(100)
 
    d fx              s            10I 0
 
    d Ans            s            100A
 
 
 
    d z              s            10I 0
 
    d z1              s            10I 0
 
    d zx              s            10I 0
 
 
 
 
 
 
 
 
 
    d main            PR
 
 
 
 
 
      /free
 
        *INLR = *ON;
 
        main();
 
        return;
 
 
 
      /end-free
 
 
 
      //###################################################//
 
 
 
    P main            b
 
 
 
    d main            PI
 
 
 
 
 
      /free
 
 
 
 
 
          $FilQul = $Fil + $lib;
 
          clear  FldDtaDs ;
 
          %occur(FlddtaDS) = 1;
 
          *IN10 = RTVFLDS ($FilQul : #GotFlds    : FldDtaDS);
 
 
 
          $SelFmts(#Fmts : fx : Ans);
 
 
 
        zx = 0;
 
        for z = 1 to 50;
 
          if  %subst(Ans : z*2 -1 : 2) <> *blank;
 
          zx += 1;
 
          endif;
 
        endfor;
 
 
 
        if zx > 0;
 
        for z = 1 to 50;
 
        if  %subst(Ans : z*2 -1 : 2) <> *blank;
 
          z1  += 1;
 
          select;
 
          when  z1 = 1 and z1 = zx;
 
          $PutRecord(#Fmts(z) : '0':'1');
 
          when  z1 = 1 ;
 
          $PutRecord(#Fmts(z) : '0':'0');
 
          when  z1 = zx;
 
          $PutRecord(#Fmts(z) : '1':'1');
 
          other;
 
          $PutRecord(#Fmts(z) : '1':'0');
 
        endsl;
 
        endif;
 
 
 
        endfor;
 
        endif;
 
 
 
 
 
 
 
 
 
          return;
 
 
 
      /end-free
 
 
 
    p    main        e
 
 
 
 
 
      *--------------------------------------------------------
 
      *  $SelFmts( ):    Show Screen1 (Remote files via FTP)
 
      *
 
      *--------------------------------------------------------
 
    p $SelFmts        B
 
 
 
    d $SelFmts        PI
 
    d #Fmts                        10A  Dim(100)
 
    d fx                            10I 0
 
    d Ans                          100A
 
 
 
 
 
    d cmdbuf          s                  like(Qsn_Cmd_Buf_T)
 
    d inpbuf          s                  like(Qsn_Inp_Buf_T)
 
    d prompt          s            70A  varying
 
    d NRF            s            50    inz('** No Records Found **')
 
    d skipthis        s              n
 
    d len            s            10I 0
 
    d data            s            132A  varying
 
    d x              s            10I 0
 
    d Row            s              3I 0
 
    d Col            s              3I 0
 
    d Answer          s            500A  varying
 
      *
 
 
 
    D                DS
 
    D SFmts                        14    DIM(100)
 
    D SFmtx                        10    OVERLAY(Sfmts:5)
 
 
 
 
 
    d  RowFmt        ds
 
    d  srowfmt              1    14
 
    d  srow                  1      4
 
    d  sfmt                  5    14
 
    d  srowb                1      4B 0
 
      *
 
    d InputData      ds                  qualified
 
    d                                    based(p_InputData)
 
    d  Row                          3U 0
 
    d  Col                          3U 0
 
    d  AID                          1A
 
    d  Field                      500A
 
      /free
 
 
 
          // ----------------------------------------------
 
          //  Create Input/Output buffers and clear them
 
          // ----------------------------------------------
 
          cmdbuf = QsnCrtCmdBuf(100: 50: 0: *OMIT: *OMIT);
 
          inpbuf = QsnCrtInpBuf(200: 50: 0: *OMIT: *OMIT);
 
          QsnClrBuf( cmdbuf : *omit );
 
          QsnClrBuf( inpbuf : *omit );
 
          // ----------------------------------------------
 
          // Add the "Clear Screen" command to the output
 
          //  so that the terminal starts with an empty
 
          //  screen.
 
          // ----------------------------------------------
 
          QsnClrScr( *omit : cmdbuf : *omit : *omit );
 
          // ----------------------------------------------
 
          //  Put a screen title in the output buffer
 
          // ----------------------------------------------
 
          data = 'Select Records Formats to Display .';
 
          QsnWrtDta( data
 
                  : %len(data)
 
                  : *omit
 
                  : 1
 
                  : 40 - (%len(data)/2)  // center
 
                  : QSN_SA_HI
 
                  : QSN_SA_HI
 
                  : QSN_SA_WHT
 
                  : QSN_SA_WHT
 
                  : cmdbuf
 
                  : *omit
 
                  : *omit
 
                  );
 
          // ----------------------------------------------
 
          // Put the records on rows 3+ of the output buf
 
          // ----------------------------------------------
 
          row = 3;
 
          col = -9;
 
          fx = 0;
 
          #Fmts = *blank;
 
 
 
      //  Sort the formats with input fields into screen order
 
      //  This is to help alleviate the requirement
 
      //  that input fields need to be in the proper order in the buffer
 
        for x = 1 to #Gotflds;
 
            %occur(FlddtaDS) = x;
 
 
 
            If #FmtNam <>  SavFmt or x = #GotFlds ;
 
            SavFmt = #FmtNam;
 
            fx += 1;
 
            sFmt    = #Fmtnam;
 
            sRowb    = 0;
 
                if  #FldIO = x'02' or  #FldIO = x'04' or
 
                    #FldIO = x'05' ;
 
              sRowb    = #Fldrow;
 
              endif;
 
 
 
            sFmts(fx) = srowfmt;
 
 
 
            Endif;
 
 
 
            If #FmtNam = SavFmt;
 
              If sRowb    < #Fldrow  and
 
              #FldIO = x'02' or  #FldIO = x'04' or #FldIO = x'05';
 
              sRowb    = #Fldrow;
 
              sFmts(fx) = srowfmt;
 
              Endif;
 
            Endif;
 
 
 
        endfor;
 
 
 
        sorta sFmts;
 
 
 
 
 
          fx  = 0 ;
 
        for x = 1 to 100;
 
 
 
            If SFmtx(x) <> *blank ;
 
 
 
            fx += 1;
 
            #Fmts(fx) = sFmtx(x);
 
 
 
            col += 14;
 
            if col >= 69;
 
            col = 5;
 
            row +=1;
 
            Endif;
 
 
 
          //    temp fix
 
            if row < 24 ;
 
            QsnWrtDta( sFmtx(x)
 
                      : 10
 
                      : *omit
 
                      : row
 
                      : col
 
                      : QSN_SA_NORM
 
                      : QSN_SA_NORM
 
                      : QSN_SA_GRN
 
                      : QSN_SA_GRN
 
                      : cmdbuf
 
                      : *omit
 
                      : *omit
 
                      );
 
 
 
            QsnSetFld( *omit
 
                    : 2
 
                    : row
 
                    : col -3
 
                    : QSN_FFW_ALPHA_SHIFT
 
                    : *omit
 
                    : 0
 
                    : QSN_SA_UL
 
                    : QSN_SA_GRN_UL
 
                    : cmdbuf
 
                    : *omit
 
                    : *omit );
 
                  endif;
 
 
 
 
 
            endif;
 
          endfor;
 
          // ----------------------------------------------
 
          //  Let the user know how to exit  (color blue)
 
          // ----------------------------------------------
 
          QsnWrtDta( 'F3=Exit'
 
                  : %len('F3=Exit')
 
                  : *omit
 
                  : 23
 
                  : 2
 
                  : QSN_SA_HI
 
                  : QSN_SA_NORM
 
                  : QSN_SA_BLU
 
                  : QSN_SA_GRN
 
                  : cmdbuf
 
                  : *omit
 
                  : *omit
 
                  );
 
          // ----------------------------------------------
 
          // put the "unlock keyboard" command into the
 
          // output buffer
 
          // ----------------------------------------------
 
          QsnReadInp( QSN_CC1_MDTALL_CLRALL
 
                    : QSN_CC2_UNLOCKBD
 
                    : *omit
 
                    : *omit
 
                    : cmdbuf
 
                    : *omit
 
                    : *omit );
 
          // ----------------------------------------------
 
          // send the output buffer to the terminal, and
 
          //  wait for input from the user
 
          // ----------------------------------------------
 
          QsnPutGetBuf( cmdbuf: inpbuf: *omit: *omit);
 
          // ----------------------------------------------
 
          //  Get a pointer to the input data, and the
 
          //  length of the input data.
 
          // ----------------------------------------------
 
          p_InputData = QsnRtvDta( inpbuf: *omit: *omit );
 
          Len = QsnRtvDtaLen(inpbuf: *omit: *omit)
 
                - %size(InputData.ROW)
 
                - %size(InputData.COL)
 
                - %size(InputData.AID);
 
          // ----------------------------------------------
 
          //  Copy the answer from the buffer
 
          // ----------------------------------------------
 
          ans = *blank;
 
          if (Len > 0);
 
            Answer = %trimr( %subst( InputData.field: 1: len) );
 
            ans  = Answer;
 
 
 
          endif;
 
          // ----------------------------------------------
 
          //  Clean up the buffers, and return to caller
 
          // ----------------------------------------------
 
          QsnDltBuf(cmdbuf: *omit);
 
          QsnDltBuf(inpbuf: *omit);
 
          %subst(dataout:1:1) = '0';
 
          if (InputData.AID = QSN_F3);
 
          %subst(dataout:1:1) = '1';
 
          endif;
 
 
 
          // return Variable
 
          return ;
 
 
 
      /end-free
 
    P                E
 
 
 
 
 
 
 
 
 
 
 
 
 
      *--------------------------------------------------------
 
      *  $PutRecord():    Send a record to  Screen
 
      *
 
      *--------------------------------------------------------
 
    p $PutRecord      B
 
 
 
    d $PutRecord      PI
 
    d  Record                      10A  const
 
    d  Add                          1A  const
 
    d  ReadScr                      1A  const
 
 
 
    d cmdbuf          s                  like(Qsn_Cmd_Buf_T)
 
    d inpbuf          s                  like(Qsn_Inp_Buf_T)
 
    d prompt          s            70A  varying
 
 
 
    d skipthis        s              n
 
    d len            s            10I 0
 
 
 
    d x              s            10I 0
 
    d Row            s              3U 0
 
 
 
    d y              s            10I 0
 
    d yx              s            10I 0
 
      *
 
 
 
    D                DS
 
    D SFldss                        12    DIM(6000)
 
    D SOcurs                        10I 0  OVERLAY(SFldss:9)
 
 
 
 
 
    d  RowCol        ds
 
    d  sfld                  1    12
 
    d  srow                  1      4
 
    d  scol                  5      8
 
    d  socur                9    12
 
    d  srowb                1      4B 0
 
    d  scolb                5      8B 0
 
    d  socurb                9    12B 0
 
 
 
 
 
 
 
      /free
 
 
 
          // ----------------------------------------------
 
          //  Create Input/Output buffers and clear them
 
          // ----------------------------------------------
 
          cmdbuf = QsnCrtCmdBuf(100: 50: 0: *OMIT: *OMIT);
 
          inpbuf = QsnCrtInpBuf(200: 50: 0: *OMIT: *OMIT);
 
          QsnClrBuf( cmdbuf : *omit );
 
          QsnClrBuf( inpbuf : *omit );
 
 
 
 
 
          if  add = '0';
 
          // ----------------------------------------------
 
          // Add the "Clear Screen" command to the output
 
          //  so that the terminal starts with an empty
 
          //  screen.
 
          // ----------------------------------------------
 
          QsnClrScr( *omit : cmdbuf : *omit : *omit );
 
          endif;
 
 
 
 
 
          exsr  ShowFile;
 
 
 
          if Readscr = '0';
 
          // ----------------------------------------------
 
          // send the output buffer to the terminal,
 
          // ----------------------------------------------
 
          QsnPutBuf( cmdbuf:  *omit: *omit);
 
          else;
 
 
 
          // ----------------------------------------------
 
          // put the "unlock keyboard" command into the
 
          // output buffer
 
          // ----------------------------------------------
 
          QsnReadInp( QSN_CC1_MDTALL_CLRALL
 
                    : QSN_CC2_UNLOCKBD
 
                    : *omit
 
                    : *omit
 
                    : cmdbuf
 
                    : *omit
 
                    : *omit );
 
          // ----------------------------------------------
 
          // send the output buffer to the terminal, and
 
          //  wait for input from the user
 
          // ----------------------------------------------
 
          QsnPutGetBuf( cmdbuf: inpbuf: *omit: *omit);
 
          // ----------------------------------------------
 
          //  Get a pointer to the input data, and the
 
          //  length of the input data.
 
          // ----------------------------------------------
 
          p_InputData = QsnRtvDta( inpbuf: *omit: *omit );
 
          Len = QsnRtvDtaLen(inpbuf: *omit: *omit)
 
                - %size(InputData.ROW)
 
                - %size(InputData.COL)
 
                - %size(InputData.AID);
 
          endif;
 
 
 
 
 
          QsnDltBuf(cmdbuf: *omit);
 
          QsnDltBuf(inpbuf: *omit);
 
 
 
 
 
 
 
          return ;
 
 
 
 
 
 
 
 
 
        begsr  ShowFile;
 
 
 
 
 
          //  For the record sort the occurances into row col sequence
 
          //  then process the occurs in the sorted sequence.
 
 
 
          clear  SFldss;
 
          yx = 0;
 
 
 
          for y = 1 to #Gotflds;
 
            %occur(FlddtaDS) = y;
 
            If  #FmtNam  = record;
 
 
 
            srowb  = #FldRow;
 
            scolb  = #FldCol;
 
            socurb = y;
 
            yx  += 1;
 
            Sfldss(yx)  = sfld;
 
 
 
            Endif;
 
 
 
          endfor;
 
 
 
          sorta  Sfldss;
 
 
 
            for y = 1 to 6000;
 
 
 
            if SFldss(y)  = *blank;
 
            iter;
 
            endif;
 
 
 
            %occur(FlddtaDS) = SOcurs(y);
 
 
 
          // ----------------------------------------------
 
          //  Put a field in the output buffer
 
          // ----------------------------------------------
 
          //  data = 'Select File to download and process.';
 
          //  Construct the fields to paint the screen
 
          //
 
          //*Field attribute.
 
          //*X'01' indicates Constant (see structure QDFFFCON,
 
          //*X'02' indicates Output (O),
 
          //*X'03' indicates Message (M), h (B),
 
          //*X'04' indicates Input (I),  (P)
 
          //*X'05' indicates Both (B),
 
          //*X'06' indicates Hidden (H), and
 
          //*X'07' indicates Program to System (P)
 
 
 
        If  #FmtNam  = record;
 
 
 
        select;
 
          when      #FldIO = x'01';
 
 
 
          Select;
 
          when      #FldDTUS    = 'D';
 
            #Fldlen = 8;
 
            #FldCom = 'dd/mm/yy';
 
          when      #FldDTUS    = 'Y';
 
            #Fldlen =  8;
 
            #FldCom = 'dd/mm/yy';
 
          when      #FldDTUS    = 'T';
 
            #Fldlen =  8;
 
            #FldCom = 'hh:mm:ss';
 
          when      #FldDTUS    = 'U';
 
            #Fldlen = 10;
 
            #FldCom = 'User_Name';
 
          when      #FldDTUS    = 'S';
 
            #Fldlen =  10;
 
            #FldCom = 'Sys_Name';
 
          endsl;
 
 
 
            QsnWrtDta( %trim(#FldCom)
 
                    : #FldLen
 
                    : *omit
 
                    : #FldRow
 
                    : #FldCol +1
 
                    : QSN_SA_HI
 
                    : QSN_SA_HI
 
                    : QSN_SA_WHT
 
                    : QSN_SA_WHT
 
                    : cmdbuf
 
                    : *omit
 
                    : *omit
 
                    );
 
 
 
          when      #FldIO = x'02' or
 
                    #FldIO = x'04' or
 
                    #FldIO = x'05' ;
 
 
 
 
 
          //* Keyboard shift and data type.
 
          //* X'00' indicates Alpha shift/character (A),
 
          //* X'01' indicates Alpha only (X),
 
          //* X'02' indicates Numeric shift (N),
 
          //* X'03' indicates Numeric only (Y),
 
          //* X'04' indicates Katakana (K),
 
          //* X'05' indicates Digits only (D),
 
          //* X'06' indicates Inhibit keyboard (I),
 
          //* X'07' indicates Signed numeric/zoned (S),
 
          //* X'08' indicates Binary (B),
 
          //* X'09' indicates Packed (P),
 
          //* X'0A' indicates Floating (F),
 
          //* X'0B' indicates DBCS (J),
 
          //* X'0C' indicates Open (O), X'0D' indicates Either (E),
 
          //* X'0E' indicates Numeric-only character (M),
 
          //* X'0F' indicates Graphic (G),
 
          //* X'10' indicates Date (L),
 
          //* X'11' indicates Time (T), and
 
          //* X'12' indicates Timestamp (Z)
 
 
 
            select;
 
            when #FLDIO  = x'02';
 
                  #FFW    =  QSN_NO_FFW;
 
            when #Fldatr = x'00';
 
                  #FFW    =  QSN_FFW_ALPHA_SHIFT;
 
            when #Fldatr = x'01';
 
                  #FFW    =  QSN_FFW_ALPHA_ONLY;
 
            when #Fldatr = x'02';
 
                  #FFW    =  QSN_FFW_NUM_SHIFT;
 
            when #Fldatr = x'03';
 
                  #FFW    =  QSN_FFW_NUM_ONLY;
 
            when #Fldatr = x'04';
 
                  #FFW    =  QSN_FFW_KATA;
 
            when #Fldatr = x'05';
 
                  #FFW    =  QSN_FFW_DIGIT_ONLY;
 
            when #Fldatr = x'06';
 
                  #FFW    =  QSN_FFW_IO;
 
            when #Fldatr = x'07';
 
                  #FFW    =  QSN_FFW_SIGNED_NUMERIC;
 
            endsl;
 
 
 
 
 
 
 
            select;
 
            when #FldLen <> 0  ;
 
                  #FLen  =  #FldLen;
 
            when #FldPLen <> 0  ;
 
                  #FLen  =  #FldPLen;
 
            endsl;
 
 
 
            QsnSetFld( *omit
 
                    : #FLen
 
                    : #FldRow
 
                    : #FldCol + 1
 
                    : #FFW
 
                    : *omit
 
                    : 0
 
                    : QSN_SA_UL
 
                    : QSN_SA_GRN_UL
 
                    : cmdbuf
 
                    : *omit
 
                    : *omit );
 
 
 
            endsl;
 
 
 
            endif;
 
 
 
            endfor;
 
 
 
 
 
 
 
 
 
            endsr;
 
 
 
 
 
      /end-free
 
    P                E
 
 
 
 
 
 
 
 
 
</pre>
 
 
 
 
 
 
 
[[#top]]
 

Latest revision as of 19:38, 10 February 2020