worksofliam
commented
3 days ago @Yann400 can you provide samples I can test with?
Open Yann400 opened 3 days ago
worksofliam
commented
3 days ago @Yann400 can you provide samples I can test with?
Yann400
commented
2 days ago 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)`
đđ» Preview screen for DSPF is 80 columns wide, it produces a troncated view for 132 columns screen (DS4)
Could you detect csreen size (DS3, DS4) and adjust screen preview accordingly? Thanks for your time!
Yann.
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|||||