Marke (SRTSEQ)

LABELP (PF)



A                              
A *COPYRIGHT JÜRGEN REULE 2017-2023
A                              
A         R   LABELF                
A                              
A             LASRCMBR   10 A         COLHDG('Quelle')
A             LASUBR   14 A         COLHDG('Subroutine')
A             LAOPCODE   10 A         COLHDG('Befehl')
A             LALABEL   14 A         COLHDG('Marke')
A             LATYPE   1 A         COLHDG('Typ')
A             LALINES   6 S         COLHDG('Zeilen')
A             LASEQLINE   6 S         COLHDG('Zeile')
A             LASRCSEQ   6 S 2       COLHDG('Sequenz')
A                              
A         K   LASRCMBR                
A         K   LASEQLINE                
A         K   LASUBR                
A         K   LALABEL                
A         K   LATYPE                
A         K   LAOPCODE                
A                              
A **          SRTSEQ(*LANGIDSHR)

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