* Set up MYSYMBP as in previous examples.
⋮
MVC MYLIST(MYSLIST_LEN),MYSLIST Initialize execute form
LINKX EP=ASASYMBM,MF=(E,MYSYMBP),SF=(E,MYLIST) call service
⋮
MYSLIST LINKX SF=L Initialized list form
MYSLIST_LEN EQU *-MYSLIST Length of list form
DYNAREA DSECT
MYLIST LINKX SF=L List form in dynamic area
DS 0F
MYSYMBP DS CL(SYMBP_LEN) SYMBP area
ASASYMBP , Mapping of SYMBP area