Sample code that invokes the Get Literal subroutine: la r1,dump_title bas r14,IPCS_Get_Literal la r15,message Output for Title value l r1,X_ESSY+(ESSYDLE-essy) Get length of buffer ahi r1,-1 Decrement for EX ex r1,DDI$ltm Move value to print line ... ddi$ltm mvc 0(*-*,r15),IGL_Buffer ** Executed ** ... Dump_Title DC AL1(5-1),C'TITLE' EJECT *********************************************************************** * * Get symbol literal value * * Input: R1 has address of name of equate/storage (String) * Output: IGL_Buffer has literal value * * *********************************************************************** SPACE , IPCS_Get_Literal ds 0h bakr r14,0 L R2,X_ABDPL Locate ABDPL LA R3,X_ESSY USING ESSY,R3 mvc 0(ESSYLRL,r3),IGL_essy mvc essyast(2),=AL2(ZZZASTLI) Literal slr r15,r15 ic r15,0(r1) Get length (-1 already) ex r15,IGL$MoveName Get symbol name ex r15,IGL$MoveD Get symbol name L R15,ADPLSERV-ABDPL(R2) Locate IPCS service routine DROP R3 CALL (15),((2),=AL4(ADPLSGTS),(3)),MF=(E,PARMLIST) LTR R15,R15 JZ IGL$accn st r15,double2 bras R14,Initialize_Line Clear output area mvc 0(27,r15),=c'Get Symbol IPCS service RC=' LA R15,27(R15) L R1,double2 cvd r1,double unpk 0(4,r15),double+4(4) oi 3(r15),c'0' bras R14,Print_Line Print Message l r15,double2 restore return code j IGL$X IGL$accn DS 0H LA R4,X_XSSP USING Xssp,R4 mvc 0(#XSSPL,r4),IGL_xssp oi XSSPPFL1,XSSPNOMS la r15,X_ESSY st r15,xsspesr la r15,IGL_Buffer mvi 0(r15),c' ' mvc 1(l'IGL_Buffer-1,r15),0(r15) st r15,xsspbuf mvc xsspcode(2),=AL2(xsspaccn) Literal L R15,ADPLSERV-ABDPL(R2) Locate IPCS service routine DROP R4 CALL (15),((2),=AL4(ADPLSSYM),(4)),MF=(E,PARMLIST) LTR R15,R15 JZ IGL$accnx st r15,double2 bras R14,Initialize_Line Clear output area mvc 0(19,r15),=c'ACCN for Symbol RC=' LA R15,19(R15) L R1,double2 cvd r1,double unpk 0(4,r15),double+4(4) oi 3(r15),c'0' bras R14,Print_Line Print Message l r15,double2 Restore Return code J IGL$x IGL$accnx DS 0H IGL$X DS 0H PR , * IGL$MoveName mvc ESSYSYM-essy(*-*,r3),1(r1) IGL$MoveD mvc ESSYdtd-essy(*-*,r3),1(r1) * IGL_ESSY BLSRESSY DSECT=NO IGL_XSSP BLSRXSSP DSECT=NO ... Variables X_ABDPL DS F ..Address of ABDPL on entry X_ESSYREM DS cl80' ' ..Remark is up to 80 bytes X_ESSY BLSRESSY DSECT=NO X_XSSP BLSRXSSP DSECT=NO DS 0H IPCS_Get_Literal: IGL_Buffer DS XL256 ..Output Buffer