Si vous voulez connaître le label monté sur votre dérouleur, la méthode la plus simple est la suivante :

PGM                                                        
         DCL &DTA *CHAR 6                                           
             CHKTAP     DEV(TAP01)                         
             RCVMSG     MSGTYPE(*ANY) MSGDTA(&DTA)    

/* pour tester */       
              SNDUSRMSG  MSG('LE LABEL EST :' *BCAT &DTA  ) +
             MSGTYPE(*INFO)                                
ENDPGM