pgm

   dcl   &AID         *char    1
   dcl   &ErrCod      *char    8
   dcl   &RtnVal      *char    2

   dcl   &hCmdBuf     *char    4

   dcl   &Data        *char  128
   dcl   &DataL       *char    4
   dcl   &FldId       *char    4
   dcl   &Row         *char    4
   dcl   &Column      *char    4
   dcl   &StrMAtr     *char    1
   dcl   &EndMAtr     *char    1
   dcl   &StrColAtr   *char    1
   dcl   &EndColAtr   *char    1

   dcl   &hCmdBuf     *char    4

   dcl   &MajStruct   *char   32

   dcl   &szMaj       *char    2
   dcl   &MajCls      *char    1
   dcl   &MajTyp      *char    1
   dcl   &MajF1       *char    1
   dcl   &MajF2       *char    1
   dcl   &MajResv     *char    1
   dcl   &MajWinRow   *char    1
   dcl   &MajWinCol   *char    1

   dcl   &MinStruct   *char   32

   dcl   &szMin       *char    1
   dcl   &MinTyp      *char    1
   dcl   &MinF1       *char    1
   dcl   &MinMA       *char    1
   dcl   &MinCA       *char    1
   dcl   &MinUL       *char    1
   dcl   &MinTop      *char    1
   dcl   &MinUR       *char    1
   dcl   &MinL        *char    1
   dcl   &MinR        *char    1
   dcl   &MinLL       *char    1
   dcl   &MinBot      *char    1
   dcl   &MinLR       *char    1
   dcl   &MinResv     *char    1


   callprc 'QsnCrtCmdBuf'   ( +
             /* 300 */        x'0000012C'  +
             /*  20 */        x'00000014'  +
                              x'00000000'  +
                              *omit        +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &hCmdBuf )  +
                            )

   chgvar            &szMaj       x'0009'
   chgvar            &MajCls      x'D9'
   chgvar            &MajTyp      x'51'
   chgvar            &MajF1       x'80'
   chgvar            &MajF2       x'00'
   chgvar            &MajResv     x'00'
   chgvar            &MajWinRow   x'0A'
   chgvar            &MajWinCol   x'0A'
   chgvar            &MajStruct ( +
                                  &szMaj       *cat +
                                  &MajCls      *cat +
                                  &MajTyp      *cat +
                                  &MajF1       *cat +
                                  &MajF2       *cat +
                                  &MajResv     *cat +
                                  &MajWinRow   *cat +
                                  &MajWinCol        +
                                )

   callprc 'QsnWrtSFMaj'    ( +
                              &MajStruct   +
                              x'00000009'  +
                              x'00000000'  +
                              x'00000009'  +
                              x'00000016'  +
                              &hCmdBuf     +
                              x'00000000'  +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   chgvar            &szMin       x'0D'
   chgvar            &MinTyp      x'01'
   chgvar            &MinF1       x'00'
   chgvar            &MinMA       x'21'
   chgvar            &MinCA       x'39'
   chgvar            &MinUL       '+'
   chgvar            &MinTop      '*'
   chgvar            &MinUR       '+'
   chgvar            &MinL        '-'
   chgvar            &MinR        '|'
   chgvar            &MinLL       '+'
   chgvar            &MinBot      '*'
   chgvar            &MinLR       '+'
   chgvar            &MinStruct ( +
                                  &szMin       *cat +
                                  &MinTyp      *cat +
                                  &MinF1       *cat +
                                  &MinMA       *cat +
                                  &MinCA       *cat +
                                  &MinUL       *cat +
                                  &MinTop      *cat +
                                  &MinUR       *cat +
                                  &MinL        *cat +
                                  &MinR        *cat +
                                  &MinLL       *cat +
                                  &MinBot      *cat +
                                  &MinLR            +
                                )

   callprc 'QsnWrtSFMin'    ( +
                              &MinStruct   +
                              x'0000000D'  +
                              &hCmdBuf     +
                              x'00000000'  +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   chgvar            &szMin       x'0B'
   chgvar            &MinTyp      x'10'
   chgvar            &MinF1       x'00'
   chgvar            &MinMA       x'2A'
   chgvar            &MinCA       x'28'
   chgvar            &MinResv     '+'
   chgvar            &MinStruct ( +
                                  &szMin       *cat +
                                  &MinTyp      *cat +
                                  &MinF1       *cat +
                                  &MinMA       *cat +
                                  &MinCA       *cat +
                                  &MinResv     *cat +
                                  'Title'           +
                                )

   callprc 'QsnWrtSFMin'    ( +
                              &MinStruct   +
                              x'00000006'  +
                              &hCmdBuf     +
                              x'00000000'  +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )



   chgvar            &Data         'Title'
   chgvar      %bin( &DataL )    ( 5  )
   chgvar      %bin( &FldId )    ( 0  )
   chgvar      %bin( &Row   )    ( 0  )
   chgvar      %bin( &Column )   ( 0  )
   chgvar            &StrMAtr      x'00'
   chgvar            &EndMAtr      x'00'
   chgvar            &StrColAtr    x'00'
   chgvar            &EndColAtr    x'00'

   callprc 'QsnWrtDta'      ( +
                              &Data        +
                              &DataL       +
                              &FldId       +
                              &Row         +
                              &Column      +
                              x'00'        +
                              x'00'        +
                              x'00'        +
                              x'00'        +
                              &hCmdBuf     +
                              x'00000000'  +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   callprc 'QsnPutBuf'      ( +
                              &hCmdBuf     +
                              x'00000000'  +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   callprc 'QsnBeep'        ( +
                              *omit        +
                              *omit        +
                              *omit        +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )
   callprc 'QsnGetAID'      ( +
                              &AID         +
                              x'00000000'  +
                              x'00000000'  +
                            ) +
                      rtnval( +
                              &RtnVal       +
                            )


   return

endpgm