Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

DSPf preview sized for 80 columns #2357

Open
Yann400 opened this issue Nov 20, 2024 · 2 comments
Open

DSPf preview sized for 80 columns #2357

Yann400 opened this issue Nov 20, 2024 · 2 comments
Assignees
@worksofliam
Labels
enhancement New feature or request

Comments

@Yann400
Copy link

Yann400 commented Nov 20, 2024

👉🏻 Preview screen for DSPF is 80 columns wide, it produces a troncated view for 132 columns screen (DS4)
DS4_preview_DSPF

Could you detect csreen size (DS3, DS4) and adjust screen preview accordingly?
Thanks for your time!

Yann.

Context Version
Code for IBM i version 2.13.5
Visual Studio Code version 1.71.2
Operating System win32_x64

Attachement automatique du débogage de nœud (debug-auto-launch): 1.0.0
Authentification GitHub (github-authentication): 0.0.2
COBOL (cobol): 8.10.6
Code Coverage for IBM i (code-coverage-ibmi): 0.1.7
Code for IBM i Walkthroughs (vscode-ibmi-walkthroughs): 0.5.0
Compte Microsoft (microsoft-authentication): 0.0.1
Configuration de l'édition (configuration-editing): 1.0.0
Conflit de fusion (merge-conflict): 1.0.0
Création d’extension (extension-editing): 1.0.0
Dart (dart-code): 3.60.1
Db2 for IBM i (vscode-db2i): 1.5.2

Remote system
Setting Value
IBM i OS V7R4M0
Tech Refresh 8
CCSID Origin 65535
Runtime CCSID 65535
Default CCSID 297
SQL Enabled
Source dates Disabled

Enabled features

/usr/bin /QSYS.lib/ILEDITOR.lib /QSYS.LIB /QIBM/ProdData/IBMiDebugService/bin /QOpenSys/QIBM/ProdData/JavaVM/jdk80
attr GETNEWLIBL.PGM QZDFMDB2.PGM startDebugService.sh 64bit
iconv
ls
setccsid
tar
@worksofliam
Copy link
Contributor

@Yann400 can you provide samples I can test with?

@worksofliam worksofliam added the info-needed More information is requied from the issuer label Nov 20, 2024
@Yann400
Copy link
Author

Yann400 commented Nov 21, 2024 •
edited
Loading

Hello Liam first thanks a lot for your great work!

It is nothing big, just fitting the black screen accordingly to DS3 or DS4 (DSPSIZ) ? Please find 3 formats below.

Btw, it would be great to propose a feature thats has never been available in SDA: displaying push buttons visuals (format ECRBSH or ECRBSC). but this one is rather a feature request.

Have a great day!

 `A                                      DSPSIZ(*DS4)
 A                                      REF(*LIBL/REPCHRO)
 A*--------------------------------------------------------------*
 A* GESTION DES BS EN COURS                                      *
 A*--------------------------------------------------------------*
 A          R ECRBSH
 A            FLTAVAL       15A  P
 A            FLTVALD       15A  P
 A            FLTANNU       15A  P
 A            FLTOUTE       15A  P
 A            PGMRPG    R        O  1  2COLOR(GRN)
 A                                  1 40'Demande de Bons de Sortie'
 A                                      DSPATR(HI)
 A                                      COLOR(WHT)
 A                                  1121DATE
 A                                      EDTCDE(Y)
 A                                      COLOR(BLU)
 A  20                              2 44'Tous les Bons' COLOR(YLW)
 A  21                              2 45'Bons encours'  COLOR(YLW)
 A  22                              2 46'Bons livrés' COLOR(YLW)
 A  23                              2 42'Bons refusés ou annulés' COLOR(YLW)
  *
 A                                  2121TIME
 A                                      COLOR(BLU)
 A            PROFIL        35A     2  2                  COLOR(WHT)
 A                                  3  2'Matricule:'
 A            DCODEMP        6D  O  3 13COLOR(WHT)
 A                                  4  2'Vues:'
 A            M3             2Y 0I  4  8PSHBTNFLD((*NUMCOL 4) (*GUTTER 1))
 A                                      CHCAVAIL((*COLOR YLW))
 A                                      PSHBTNCHC(1 &FLTAVAL)
 A                                      PSHBTNCHC(2 &FLTVALD)
 A                                      PSHBTNCHC(3 &FLTANNU)
 A                                      PSHBTNCHC(4 &FLTOUTE)

 A                                  6  2'Options:'
 A                                  6 11'2=Modifier'
 A                                      COLOR(BLU)
 A                                  6 24'4=Annuler'
 A                                      COLOR(BLU)
 A                                  6 36'5=Visualiser'
 A                                      COLOR(BLU)
 A***�  49                              6 51'S=Servir' COLOR(BLU)
  *
 A  50                              7  6'FILTRE' DSPATR(RI) COLOR(TRQ)
 A            SBONSOR       11D  B  8  6
 A                                      COLOR(YLW)
 A  50                                  DSPATR(RI)
 A  51                              7 18'FILTRE' DSPATR(RI) COLOR(WHT)
 A            SCODEMP        6D  B  8 18
 A                                      COLOR(YLW)
 A  51                                  DSPATR(RI)
 A  52                              7 25'FILTRE' DSPATR(RI) COLOR(TRQ)
 A            SSECTRA        3  0B  8 25EDTCDE(4)
 A                                      COLOR(YLW)
 A  52                                  DSPATR(RI)
 A  53                              7 79'FILTRE' DSPATR(RI) COLOR(TRQ)
 A            SLANCEM        6D  B  8 79
 A                                      COLOR(YLW)
 A  53                                  DSPATR(RI)
 A                                  9  2'OPT' DSPATR(UL)
 A                                      COLOR(WHT)
 A                                  9  6'N° BS'
 A                                      COLOR(TRQ) DSPATR(UL)
 A                                  9 18'MATR.'
 A                                      COLOR(WHT) DSPATR(UL)
 A                                  9 25'SEC'
 A                                      COLOR(TRQ) DSPATR(UL)
 A                                  9 29'ARTICLE'
 A                                      COLOR(WHT) DSPATR(UL)
 A                                  8 64'QTE.' COLOR(TRQ) DSPATR(UL)
 A                                  8106'% LIVR.'
 A                                      COLOR(WHT) DSPATR(UL)
 A                                  9 64'DEMAND.' COLOR(TRQ) DSPATR(UL)
 A
 A                                  8 72'QTE.' COLOR(WHT) DSPATR(UL)
 A                                  9 72'LIVREE' COLOR(WHT) DSPATR(UL)
 A                                  9 79'FA' COLOR(TRQ) DSPATR(UL)
 A
 A                                  9 87'LIGNES'
 A                                      COLOR(WHT) DSPATR(UL)
 A                                  9 94'DT.DEM.'
 A                                      COLOR(TRQ) DSPATR(UL)
 A                                  9106'DT.LIVR.'
 A                                      COLOR(WHT) DSPATR(UL)
 A                                  9118'STATUT'
 A                                      COLOR(TRQ) DSPATR(UL)
 A*--------------------------------------------------------------*
 A          R ECRBSF                    SFL
 A            ECODART        6  0H
 A            EINDEX         8  0H
 A            ELIGNE         3  0H
 A            ENOSEL         1   H
 A            ENOMEMP       25   H
 A            OPT            1A  B 10  3CHECK(AB)
 A                                      COLOR(GRN)
 A  99                                  DSPATR(RI)
 A  13                                  DSPATR(ND)
 A  13                                  DSPATR(PR)
 A                                      VALUES('2' '4' '5' 'S')
 A            EBONSOR       11  0O 10  6EDTCDE(4)
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A            EMATDEM        6D  O 10 18
 A  24                                            COLOR(WHT)
 A  25                                            COLOR(BLU)
 A  26                                            COLOR(PNK)
 A            ESECTIO        3  0O 10 25EDTCDE(4)
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A            ELIBELL       35   O 10 29
 A  24                                            COLOR(WHT)
 A  25                                            COLOR(BLU)
 A            EQTEDEM        6D  O 10 65
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A            EQTESOR        6  0O 10 72EDTCDE(4)
 A  24                                            COLOR(WHT)
 A  25                                            COLOR(BLU)
 A            ELANCEM        6D  O 10 79
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A            ELIGNES        3  0O 10 89EDTCDE(4)
 A  24                                            COLOR(WHT)
 A  25                                            COLOR(BLU)
 A            EDATDEM        8   O 10 94
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A            EDATSOR        8   O 10106
 A  24                                            COLOR(WHT)
 A  25                                            COLOR(BLU)
 A            ESTATUT        7   O 10118
 A  24                                            COLOR(TRQ)
 A  25                                            COLOR(BLU)
 A*--------------------------------------------------------------*
 A          R ECRBSC                    SFLCTL(ECRBSF)
 A                                      SFLSIZ(0014)
 A                                      SFLPAG(0013)
 A                                      OVERLAY
 A  10                                  SFLDSP
 A  10                                  SFLDSPCTL
 A  09                                  SFLDLT
 A N10                                  SFLCLR
 A  11                                  SFLEND(*SCRBAR *SCRBAR)
 A            C0             4S 0H      SFLRCDNBR(CURSOR)
 A            VTXT001       18A  P
 A            VTXT003       18A  P
 A            VTXT005       18A  P
 A            VTXT006       18A  P
 A            VTXT008       18A  P
 A            MSG           80A  O 24  2DSPATR(HI)
 A                                      COLOR(WHT)
 A            PCUR           1A  I 26  1DSPATR(ND)
 A            M2             2Y 0I 26  3PSHBTNFLD((*NUMCOL 5) (*GUTTER 1))
 A                                      PSHBTNCHC(1 &VTXT003 CF03)
 A                                      PSHBTNCHC(2 &VTXT005 CF05)
 A                                      PSHBTNCHC(3 &VTXT006 CF06)
 A                                      PSHBTNCHC(4 &VTXT008 CF08)
 A                                      PSHBTNCHC(5 &VTXT001 CF01)`

@worksofliam worksofliam added enhancement New feature or request and removed info-needed More information is requied from the issuer labels Nov 21, 2024
@worksofliam worksofliam self-assigned this Nov 21, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees

@worksofliam worksofliam

Labels
enhancement New feature or request
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
2 participants
@worksofliam @Yann400