Marke (SRTSEQ) Definition (Subroutinen)

LABELL3 (LF)



A                              
A *COPYRIGHT JÜRGEN REULE 2017-2023
A                              
A                             UNIQUE
A                              
A         R   LABELF               PFILE(LABELP)
A                              
A         K   LASRCMBR                
A         K   LASEQLINE                
A         K   LALABEL                
A                              
A         O   LATYPE               COMP(NE 'D')
A         O   LASEQLINE               COMP(EQ  0 )
A         O   LAOPCODE               COMP(NE 'BEGSR')
A                              
A **          SRTSEQ(*LANGIDSHR)

46 ms | Contact | Information | Aibo-Bar © 2005-2024