D*
     DPOMGF            DS
     D DSMFL                         10    INZ('SAMSG     ')
     D DSMLB                         10    INZ('*LIBL     ')
     D*
     DPIERR            DS
     D DSBYP                          9B 0 INZ(116)
     D DSBYT                          9B 0 INZ(0)
     D DSERR                          7
     D DSER#                          1
     D DSERD                        100
     D*
     D POMGL           S              9B 0
     D POPGC           S              9B 0
     D PONTYP          S              9B 0
     D POSTC           S              9B 0
     D*
     D PIKYB           S              4
     D PIPGMQ          S             10
     D*
     D POCLR           S             10
     D POKYB           S              4
     D POMSG           S             78
     D POMID           S              7
     D POMTP           S             10
     D POTPQ           S             10
     D POTYP           S             10                                         :
     D POSTN           S             10