Skip to content

Instantly share code, notes, and snippets.

@BirgittaHauser

BirgittaHauser/CONDSPATR.rpgle

Created September 25, 2025 15:23
Show Gist options
  • Save BirgittaHauser/15e50a9deb48c354cd43b30344a57c93 to your computer and use it in GitHub Desktop.
Save BirgittaHauser/15e50a9deb48c354cd43b30344a57c93 to your computer and use it in GitHub Desktop.
Download ZIP
Display Attributes - Hex for DisplayFiles
Raw
CONDSPATR.rpgle
//******************************************************************************************
// Display File - Display Attributes Hex
//********************************************************************************************
/IF NOT DEFINED(DSColorHex)
/DEFINE DSColorHex
DCL-DS DSColorHex Qualified; //Display-Attributes
DSColAll;
DSColHexFree Overlay(DSColAll);
DDSGRN VarChar(10) Overlay(DSColHexFree) inz('GRN'); //DDS Attr. Green
Grn Char(1) Overlay(DSColHexFree: *Next) inz(X'20'); //Hex Value Green
DDSGrnRi VarChar(10) Overlay(DSColHexFree: *Next) inz('GRNRI'); //DDS Attr. Green Reverse Intense
GrnRI Char(1) Overlay(DSColHexFree: *Next) inz(X'21'); //Hex Value Green Reverse Intense
DDSWht VarChar(10) Overlay(DSColHexFree: *Next) inz('WHT'); //DDS Attr. Green White
Wht Char(1) Overlay(DSColHexFree: *Next) inz(X'22'); //Hex Value White
DDSWhtRi VarChar(10) Overlay(DSColHexFree: *Next) inz('WHTRI'); //DDS Attr. White Reverse Intense
WhtRI Char(1) Overlay(DSColHexFree: *Next) inz(X'23'); //Hex Value White Reverse Intense
DDSGrnUL VarChar(10) Overlay(DSColHexFree: *Next) inz('GRNUL'); //DDS Attr. Green Underline
GrnUL Char(1) Overlay(DSColHexFree: *Next) inz(X'24'); //Hex Value Green Unerline
DDSGrnUlRi VarChar(10) Overlay(DSColHexFree: *Next) inz('GRNULRI'); //DDS Attr. Green Underline Rev.Int.
GrnUlRi Char(1) Overlay(DSColHexFree: *Next) inz(X'25'); //Hex Value Green Underline Rev.Int.
DDSWhtUl VarChar(10) Overlay(DSColHexFree: *Next) inz('WHTUL'); //DDS Attr. White Underline
WhtUL Char(1) Overlay(DSColHexFree: *Next) inz(X'26'); //Hex Value White Underline
DDSNd VarChar(10) Overlay(DSColHexFree: *Next) inz('ND'); //DDS Attr. Not Display
ND Char(1) Overlay(DSColHexFree: *Next) inz(X'27'); //Hex Value Not Display
DDSRed VarChar(10) Overlay(DSColHexFree: *Next) inz('RED'); //DDS Attr. Red
Red Char(1) Overlay(DSColHexFree: *Next) inz(X'28'); //Hex Value Red
DDSRedRI VarChar(10) Overlay(DSColHexFree: *Next) inz('REDRI'); //DDS Attr. Red Reverse Intense
RedRI Char(1) Overlay(DSColHexFree: *Next) inz(X'29'); //Hex Value Red Reverse Intense
DDSRedBL VarChar(10) Overlay(DSColHexFree: *Next) inz('REDBL'); //DDS Attr. Red Blink
RedBL Char(1) Overlay(DSColHexFree: *Next) inz(X'2A'); //Hex Value Red Blink
DDSRedBLRI VarChar(10) Overlay(DSColHexFree: *Next) inz('REDBLRI'); //DDS Attr. Red Blink Rev.Int.
RedBLRI Char(1) Overlay(DSColHexFree: *Next) inz(X'2B'); //Hex Value Red Blink Rev.Int.
DDSRedUL VarChar(10) Overlay(DSColHexFree: *Next) inz('REDUL'); //DDS Attr. Red Underline
RedUL Char(1) Overlay(DSColHexFree: *Next) inz(X'2C'); //Hex Value Red Underline
DDSRedULRI VarChar(10) Overlay(DSColHexFree: *Next) inz('REDULRI'); //DDS Attr. Red Underline Rev.Int.
RedULRI Char(1) Overlay(DSColHexFree: *Next) inz(X'2D'); //Hex Value Red Underline Rev.Int.
DDSRedBLUL VarChar(10) Overlay(DSColHexFree: *Next) inz('REDBLUL'); //DDS Attr. Red Blink Underline
RedBLUL Char(1) Overlay(DSColHexFree: *Next) inz(X'2E'); //Hex Value Red Blink Underline
DDSNotDsp VarChar(10) Overlay(DSColHexFree: *Next) inz('NOTDSP'); //DDS Attr. Not Display
NotDsp Char(1) Overlay(DSColHexFree: *Next) inz(X'2F'); //Hex Value Not Display
DDSTrq VarChar(10) Overlay(DSColHexFree: *Next) inz('TRQ'); //DDS Attr. Turquois
Trq Char(1) Overlay(DSColHexFree: *Next) inz(X'30'); //Hex Value Turquois
DDSTrqRI VarChar(10) Overlay(DSColHexFree: *Next) inz('TRQRI'); //DDS Attr. Turquois Rev.Int.
TrqRI Char(1) Overlay(DSColHexFree: *Next) inz(X'31'); //Hex Value Turquois Rev.Int.
DDSYlw VarChar(10) Overlay(DSColHexFree: *Next) inz('YLW'); //DDS Attr. Yellow
Ylw Char(1) Overlay(DSColHexFree: *Next) inz(X'32'); //Hex Value Yellow
DDSYlwRI VarChar(10) Overlay(DSColHexFree: *Next) inz('YLWRI'); //DDS Attr. Yellow Reverse Intense
YlwRI Char(1) Overlay(DSColHexFree: *Next) inz(X'33'); //Hex Value Yellow Reverse Intense
DDSTrqUl VarChar(10) Overlay(DSColHexFree: *Next) inz('TRQUL'); //DDS Attr. Turquois underline
TrqUL Char(1) Overlay(DSColHexFree: *Next) inz(X'34'); //Hex Value Turquois Underline
DDSTrqUlRi VarChar(10) Overlay(DSColHexFree: *Next) inz('TRQULRI'); //DDS Attr. Turquois Underline Rev.Int.
TrqULRI Char(1) Overlay(DSColHexFree: *Next) inz(X'35'); //Hex Value Turquois Underline Rev.Int.
DDSYlwUL VarChar(10) Overlay(DSColHexFree: *Next) inz('YLWUL'); //DDS Attr. Yellow Underline
YlwUL Char(1) Overlay(DSColHexFree: *Next) inz(X'36'); //Hex Value Yellow Underline
DDSYlwULRI VarChar(10) Overlay(DSColHexFree: *Next) inz('YLWULRI'); //DDS Attr. Yellow Underline Rev.Int.
YlwULRI Char(1) Overlay(DSColHexFree: *Next) inz(X'37'); //Hex Value Yellow Underline Rev.Int.
DDSColNd VarChar(10) Overlay(DSColHexFree: *Next) inz('COLND'); //DDS Attr. Color Not Dspl.
ColND Char(1) Overlay(DSColHexFree: *Next) inz(X'38'); //Hex Value Color Not Dspl.
DDSPnk VarChar(10) Overlay(DSColHexFree: *Next) inz('PNK'); //DDS Attr. Pink
Pnk Char(1) Overlay(DSColHexFree: *Next) inz(X'39'); //Hex Value Pink
DDSPnkRI VarChar(10) Overlay(DSColHexFree: *Next) inz('PNKRI'); //DDS Attr. Pink Reverse Intense
PnkRI Char(1) Overlay(DSColHexFree: *Next) inz(X'3A'); //Hex Value Pink Reverse Intense
DDSBlu VarChar(10) Overlay(DSColHexFree: *Next) inz('BLU'); //DDS Attr. Blue
Blu Char(1) Overlay(DSColHexFree: *Next) inz(X'3B'); //Hex Value Blue
DDSPnkUl VarChar(10) Overlay(DSColHexFree: *Next) inz('PNKUL'); //DDS Attr. Pink Underline
PnkUL Char(1) Overlay(DSColHexFree: *Next) inz(X'3C'); //Hex Value Pink Underline
DDSPnkUlRi VarChar(10) Overlay(DSColHexFree: *Next) inz('PNKULRI'); //DDS Attr. Pink Underline Rev.Int.
PnkULRO Char(1) Overlay(DSColHexFree: *Next) inz(X'3D'); //Hex Value Pink Underline Rev.Int.
DDSBluUl VarChar(10) Overlay(DSColHexFree: *Next) inz('BLUUL'); //DDS Attr. Blue Underline
BluUL Char(1) Overlay(DSColHexFree: *Next) inz(X'3E'); //Hex Value Blue Underline
DDSColNotDsp
VarChar(10) Overlay(DSColHexFree: *Next) inz('COLNOTDSP'); //DDS Attr. Color not display
ColNotDsp Char(1) Overlay(DSColHexFree: *Next) inz(X'3F'); //Hex Value Color not display
ArrColHexFree Dim(32) Overlay(DSColHexFree); //Array Not Protected
ArrColFree VarChar(10) Overlay(ArrColHexFree); //Array DDS Attr. Not Protected
ArrHexFree Char(1) Overlay(ArrColHexFree: *Next); //Array Hex Values Not Protected
DSColHexProt Overlay(DSColAll: *Next);
DDSPrGrn VarChar(10) Overlay(DSColHexProt) inz('PRGRN'); //DDS Attr. Prot. Green
PrGrn Char(1) Overlay(DSColHexProt: *Next) inz(X'A0'); //Hex Value Prot. Green
DDSPrGrnRI VarChar(10) Overlay(DSColHexProt: *Next) inz('PRGRNRI'); //DDS Attr. Prot. Green Reverse Intense
PrGrnRI Char(1) Overlay(DSColHexProt: *Next) inz(X'A1'); //Hex Value Prot. Green Reverse Intense
DDSPrWht VarChar(10) Overlay(DSColHexProt: *Next) inz('PRWHT'); //DDS Attr. Prot. White
PrWht Char(1) Overlay(DSColHexProt: *Next) inz(X'A2'); //Hex Value Prot. White
DDSPrWhtRi VarChar(10) Overlay(DSColHexProt: *Next) inz('PRWHTRI'); //DDS Attr. Prot. White Reverse Intense
PrWhtRI Char(1) Overlay(DSColHexProt: *Next) inz(X'A3'); //Hex Value Prot. White Reverse Intense
DDSPrGrnUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRGRNUL'); //DDS Attr. Prot. Green Underline
PrGrnUL Char(1) Overlay(DSColHexProt: *Next) inz(X'A4'); //Hex Value Prot. Green Unerline
DDSPrGrnUlRi
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRGRNULRI');//DDS Attr. Prot. Green Underline Rev.In
PrGrnULRI Char(1) Overlay(DSColHexProt: *Next) inz(X'A5'); //Hex Value Prot. Green Underline Rev.In
DDSPrWhtUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRWHTUL'); //DDS Attr. Prot. White Underline
PrWhtUL Char(1) Overlay(DSColHexProt: *Next) inz(X'A6'); //Hex Value Prot. White Underline
DDSPrNd VarChar(10) Overlay(DSColHexProt: *Next) inz('PRND'); //DDS Attr. Prot. Not Display
PrND Char(1) Overlay(DSColHexProt: *Next) inz(X'A7'); //Hex Value Prot. Not Display
DDSPrRed VarChar(10) Overlay(DSColHexProt: *Next) inz('PRRED'); //DDS Attr. Prot. Red
PrRed Char(1) Overlay(DSColHexProt: *Next) inz(X'A8'); //Hex Value Prot. Red
DDSPrRedRI VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDRI'); //DDS Attr. Prot. Red Reverse Intense
PrRedRI Char(1) Overlay(DSColHexProt: *Next) inz(X'A9'); //Hex Value Prot. Red Reverse Intense
DDSPrRedBl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDBL'); //DDS Attr. Prot. Red Blink
PrRedBL Char(1) Overlay(DSColHexProt: *Next) inz(X'AA'); //Hex Value Prot. Red Blink
DDSPrRedBlRi
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDBLRI');//DDS Attr. Prot. Red Blink Rev.Int.
PrRedBLRI Char(1) Overlay(DSColHexProt: *Next) inz(X'AB'); //Hex Value Prot. Red Blink Rev.Int.
DDSPrRedUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDUL'); //DDS Attr. Prot. Red Underline
PrRedUL Char(1) Overlay(DSColHexProt: *Next) inz(X'AC'); //Hex Value Prot. Red Underline
DDSPrRedUlRI
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDULRI');//DDS Attr. Prot. Red Underline Rev.Int.
PrRedULRI Char(1) Overlay(DSColHexProt: *Next) inz(X'AD'); //Hex Value Prot. Red Underline Rev.Int
DDSPrRedUlBl
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRREDULBL');//DDS Attr. Prot. Red Underline Blink
PrRedULBL Char(1) Overlay(DSColHexProt: *Next) inz(X'AE'); //Hex Value Prot. Red Underline Blink
DDSPrNotDsp
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRNotDsp'); //DDS Attr. Prot. not Display
PrNotDsp Char(1) Overlay(DSColHexProt: *Next) inz(X'AF'); //Hex Value Prot. not Display
DDSPrTrq VarChar(10) Overlay(DSColHexProt: *Next) inz('PRTRQ'); //DDS Attr. Prot. Turquois
PrTrq Char(1) Overlay(DSColHexProt: *Next) inz(X'B0'); //Hex Value Prot. Turquois
DDSPrTrqRi VarChar(10) Overlay(DSColHexProt: *Next) inz('PRTRQRI'); //DDS Attr. Prot. Turquois Rev.Int.
PrTrqRI Char(1) Overlay(DSColHexProt: *Next) inz(X'B1'); //Hex Value Prot. Turquois Rev.Int.
DDSPrYlw VarChar(10) Overlay(DSColHexProt: *Next) inz('PRYLW'); //DDS Attr. Prot. Yellow
PrYlw Char(1) Overlay(DSColHexProt: *Next) inz(X'B2'); //Hex Value Prot. Yellow
DDSPrYlwRi VarChar(10) Overlay(DSColHexProt: *Next) inz('PRYLWRI'); //DDS Attr. Prot. Yellow Reverse Intense
PrYlwRI Char(1) Overlay(DSColHexProt: *Next) inz(X'B3'); //Hex Value Prot. Yellow Reverse Intense
DDSPrTrqUL VarChar(10) Overlay(DSColHexProt: *Next) inz('PRTRQUL'); //DDS Attr. Prot. Turquois underline
PrTrqUL Char(1) Overlay(DSColHexProt: *Next) inz(X'B4'); //Hex Value Prot. Turquois Underline
DDSPrTrqUlRi
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRTRQULRI');//DDS Attr. Prot. Turquois underline
PrTrqULRI Char(1) Overlay(DSColHexProt: *Next) inz(X'B5'); //Hex Value Prot. Turquois Underline
DDSPrYlwUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRYLWUL'); //DDS Attr. Prot. Turquois Underline Rev
PrYlwUK Char(1) Overlay(DSColHexProt: *Next) inz(X'B6'); //Hex Value Prot. Turquois Underline Rev
DDSPrColNd VarChar(10) Overlay(DSColHexProt: *Next) inz('PRCOLND'); //DDS Attr. Prot. Yellow Underline
PrColND Char(1) Overlay(DSColHexProt: *Next) inz(X'B7'); //Hex Value Prot. Yellow Underline
DDSPrPnk VarChar(10) Overlay(DSColHexProt: *Next) inz('PRPNK'); //DDS Attr. Prot. Yellow Underline Rev.I
PrPnk Char(1) Overlay(DSColHexProt: *Next) inz(X'B8'); //Hex Value Prot. Yellow Underline Rev.I
DDSPrPnkRi VarChar(10) Overlay(DSColHexProt: *Next) inz('PRPNKRI'); //DDS Attr. Prot. Color Not Dspl.
PrPnkRI Char(1) Overlay(DSColHexProt: *Next) inz(X'B9'); //Hex Value Prot. Color Not Dspl.
DDSPrBlu VarChar(10) Overlay(DSColHexProt: *Next) inz('PRBLU'); //DDS Attr. Prot. Pink
PrBlu Char(1) Overlay(DSColHexProt: *Next) inz(X'BA'); //Hex Value Prot. Pink
DDSPrBluRi VarChar(10) Overlay(DSColHexProt: *Next) inz('PRBLURI'); //DDS Attr. Prot. Pink Reverse Intense
PrBluRI Char(1) Overlay(DSColHexProt: *Next) inz(X'BB'); //Hex Value Prot. Pink Reverse Intense
DDSPrPnkUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRPNKUL'); //DDS Attr. Prot. Blue
PrPnkUL Char(1) Overlay(DSColHexProt: *Next) inz(X'BC'); //Hex Value Prot. Blue
DDSPrPnkUlRI
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRPNKULRI');//DDS Attr. Prot. Pink Underline
PrPnkULRI Char(1) Overlay(DSColHexProt: *Next) inz(X'BD'); //Hex Value Prot. Pink Underline
DDSPrBluUl VarChar(10) Overlay(DSColHexProt: *Next) inz('PRBLUUL'); //DDS Attr. Prot. Blue Underline
PrBluUL Char(1) Overlay(DSColHexProt: *Next) inz(X'BE'); //Hex Value Prot. Blue Underline
DDSPrColNotD
VarChar(10) Overlay(DSColHexProt: *Next) inz('PRCOLNOTD');//DDS Attr. Prot. Color not Displayed
PrColNotD Char(1) Overlay(DSColHexProt: *Next) inz(X'BF'); //Hex Value Prot. Color not Displayed
ArrColHexProt Dim(32) Overlay(DSColHexProt); //Array DDS + Hex Protect
ArrColProt VarChar(10) Overlay(ArrColHexProt); //Array DDS Attributes Protect
ArrHexProt Char(1) Overlay(ArrColHexProt: *Next); //Array DDS Values Protect
ArrColorHex Dim(64) Overlay(DSColAll); //Array ALL DDS + Hext Not Protected/Prot
ArrColor VarChar(10) Overlay(ArrColorHex); //Array ALL DDS Attributes Not Protect/Pr
ArrHex Char(1) Overlay(ArrColorHex: *Next); //Array ALL Hex Values Not Protected/
End-DS;
/ENDIF
/IF NOT DEFINED(DSDspAttrHex)
/DEFINE DSDSpAttrHex
DCL-DS DSDspAttrDDS Qualified; //Other/special Display Attributes
DSDDS;
ND VarChar(10) Overlay(DSDDS) Inz('ND'); //Not Display
PR VarChar(10) Overlay(DSDDS: *Next) Inz('PR'); //Protect
RI VarChar(10) Overlay(DSDDS: *Next) Inz('RI'); //Reverse Intense
UL VarChar(10) Overlay(DSDDS: *Next) Inz('UL'); //Underline
BL VarChar(10) Overlay(DSDDS: *Next) Inz('BL'); //Blink
ArrDDS VarChar(10) Dim(5) Overlay(DSDDS);
End-DS;
/ENDIF
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment