PGM1 TITLE 'The First Heading'
PGM1 CSECT
USING PGM1,12 Assign the base register
TITLE 'The Next Heading'
LR 12,15 Load the base address
&VARSYM SETC 'Value from Variable Symbol'
TITLE 'The &VARSYM'
BR 14 Return
END
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet am 2026-11-04)
¤
*© Formatika GbR, Deutschland