Bar

BAR$ (RPGLE)



H  
H *COPYRIGHT JÜRGEN REULE 2010-2024
H  
H BNDDIR('QC2LE':'BAR$')
H DATFMT(*ISO) TIMFMT(*ISO)
H DFTACTGRP(*NO) ACTGRP('QILE')
H COPYRIGHT('COPYRIGHT JÜRGEN REULE 2010-2024')
H  
F NAVIP U F       E       K   DISK   USROPN
F TEXTP U F   A   E       K   DISK   USROPN
F LABELP U F   A   E       K   DISK   USROPN
F SMILYP U F   A   E       K   DISK   USROPN
F TITELP U F   A   E       K   DISK   USROPN
F AGENTP U F   A   E       K   DISK   USROPN
F RUBRIKP U F   A   E       K   DISK   USROPN
F ARTIKELP U F   A   E       K   DISK   USROPN
F ANFRAGEP U F   A   E       K   DISK   USROPN
F GELESENP U F   A   E       K   DISK   USROPN
F MANDANTP U F   A   E       K   DISK   USROPN
F ANTWORTP U F   A   E       K   DISK   USROPN
F MITGLIEDP U F   A   E       K   DISK   USROPN
F                              
F BENUTZERL U F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             BENUTZERF)
F                             PREFIX(BE:2)
F                              
F BENUTZERLN U F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             BENUTZERFN)
F                             PREFIX(B$:2)
F                              
F BENUTZERLS U F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             BENUTZERFS)
F                             PREFIX(B$:2)
F                              
F FILEP I F       E       K   DISK   USROPN
F LINKP I F       E       K   DISK   USROPN
F FARBEP I F       E       K   DISK   USROPN
F                              
F NAVIL1 I F       E       K   DISK   USROPN
F                             RENAME(NAVIF:NAVIF1)
F NAVIL2 I F       E       K   DISK   USROPN
F                             RENAME(NAVIF:NAVIF2)
F NAVIL3 I F       E       K   DISK   USROPN
F                             RENAME(NAVIF:NAVIF3)
F NAVILN I F       E       K   DISK   USROPN
F                             RENAME(NAVIF:NAVIFN)
F TEXTL1 I F       E       K   DISK   USROPN
F                             RENAME(TEXTF:TEXTF1)
F MIMEL2 I F       E       K   DISK   USROPN
F                             RENAME(MIMEF:MIMEF2)
F MIMEL3 I F       E       K   DISK   USROPN
F                             RENAME(MIMEF:MIMEF3)
F MIMEL4 I F       E       K   DISK   USROPN
F                             RENAME(MIMEF:MIMEF4)
F TITELL1 I F       E       K   DISK   USROPN
F                             RENAME(TITELF:TITELF1)
F LABELL2 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF2)
F LABELL3 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF3)
F LABELL4 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF4)
F LABELL5 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF5)
F LABELL6 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF6)
F LABELL9 I F       E       K   DISK   USROPN
F                             RENAME(LABELF:LABELF9)
F AGENTL1 I F       E       K   DISK   USROPN
F                             RENAME(AGENTF:AGENTF1)
F AGENTL2 I F       E       K   DISK   USROPN
F                             RENAME(AGENTF:AGENTF2)
F SMILYL1 I F       E       K   DISK   USROPN
F                             RENAME(SMILYF:SMILYF1)
F SMILYL2 I F       E       K   DISK   USROPN
F                             RENAME(SMILYF:SMILYF2)
F SMILYLN I F       E       K   DISK   USROPN
F                             RENAME(SMILYF:SMILYFN)
F RUBRIKL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             RUBRIKF:
F                             RUBRIKF1)
F RUBRIKL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             RUBRIKF:
F                             RUBRIKF2)
F RUBRIKLN I F       E       K   DISK   USROPN
F                             RENAME(
F                             RUBRIKF:
F                             RUBRIKFN)
F SPRACHEL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             SPRACHEF:
F                             SPRACHEF2)
F SPRACHELN I F       E       K   DISK   USROPN
F                             RENAME(
F                             SPRACHEF:
F                             SPRACHEFN)
F ARTIKELL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELF1)
F ARTIKELL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELF2)
F ARTIKELL3 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELF3)
F ARTIKELL4 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELF4)
F ARTIKELL5 I F       E       K   DISK   USROPN
F ARTIKELL6 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELF6)
F ARTIKELLN I F       E       K   DISK   USROPN
F ARTIKELLO I F       E       K   DISK   USROPN PREFIX(A$:2)
F ARTIKELLP I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFP)
F ARTIKELLQ I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFQ)
F ARTIKELLR I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFR)
F ARTIKELLS I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFS)
F ARTIKELLT I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFT)
F                             PREFIX(A$:2)
F ARTIKELLU I F       E       K   DISK   USROPN
F                             RENAME(
F                             ARTIKELF:
F                             ARTIKELFU)
F                             PREFIX(A$:2)
F ANFRAGEL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ANFRAGEF:
F                             ANFRAGEF2)
F ANFRAGEL3 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ANFRAGEF:
F                             ANFRAGEF3)
F ANFRAGEL4 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ANFRAGEF:
F                             ANFRAGEF4)
F GELESENL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             GELESENF:
F                             GELESENF1)
F GELESENL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             GELESENF:
F                             GELESENF2)
F MANDANTL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             MANDANTF:
F                             MANDANTF2)
F ANTWORTL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ANTWORTF:
F                             ANTWORTF1)
F ANTWORTL2 I F       E       K   DISK   USROPN
F                             RENAME(
F                             ANTWORTF:
F                             ANTWORTF2)
F MITGLIEDL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             MITGLIEDF1)
F MITGLIEDL3 I F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             MITGLIEDF3)
F MITGLIEDLN I F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             MITGLIEDFN)
F BENUTZERL1 I F       E       K   DISK   USROPN
F                             RENAME(
F                             MITGLIEDF:
F                             BENUTZERF1)
F                             PREFIX(BE:2)
F                              
F SOURCE I F       E       K   DISK   USROPN
F                             RENAME(CGI:SOURCEX)
F                              
D LINKDS E   DS           INZ EXTNAME(LINKP)
D TEXTDS E   DS           INZ EXTNAME(TEXTP)
D NAVIDS E   DS           INZ EXTNAME(NAVIP)
D MIMEDS E   DS           INZ EXTNAME(MIMEP)
D LABELDS E   DS           INZ EXTNAME(LABELP)
D AGENTDS E   DS           INZ EXTNAME(AGENTP)
D SMILYDS E   DS           INZ EXTNAME(SMILYP)
D TITELDS E   DS           INZ EXTNAME(TITELP)
D RUBRIKDS E   DS           INZ EXTNAME(RUBRIKP)
D OBJEKTDS E   DS           INZ EXTNAME(OBJEKTP)
D SPRACHEDS E   DS           INZ EXTNAME(SPRACHEP)
D ARTIKELDS E   DS           INZ EXTNAME(ARTIKELP)
D ANFRAGEDS E   DS           INZ EXTNAME(ANFRAGEP)
D MANDANTDS E   DS           INZ EXTNAME(MANDANTP)
D ANTWORTDS E   DS           INZ EXTNAME(ANTWORTP)
D FORMDATADS E   DS           INZ EXTNAME(FORMDATAP)
D MITGLIEDDS E   DS           INZ EXTNAME(MITGLIEDP)
D BENUTZERDS E   DS           INZ EXTNAME(BENUTZERL)
D                     PREFIX(BE:2)
D                    
D TEXTSAVE E   DS           INZ EXTNAME(TEXTP)
D                     PREFIX(T1:2)
D NAVISAVE E   DS           INZ EXTNAME(NAVIP)
D                     PREFIX(N1:2)
D NAVISAVE2 E   DS           INZ EXTNAME(NAVIP)
D                     PREFIX(N2:2)
D LABELSAVE E   DS           INZ EXTNAME(LABELP)
D                     PREFIX(L1:2)
D AGENTSAVE E   DS           INZ EXTNAME(AGENTP)
D                     PREFIX(A2:2)
D SMILYSAVE E   DS           INZ EXTNAME(SMILYP)
D                     PREFIX(S9:2)
D TITELSAVE E   DS           INZ EXTNAME(TITELP)
D                     PREFIX(T2:2)
D RUBRIKSAVE E   DS           INZ EXTNAME(RUBRIKP)
D                     PREFIX(R1:2)
D ARTIKELSAVE E   DS           INZ EXTNAME(ARTIKELP)
D                     PREFIX(A1:2)
D ANTWORTSAVE E   DS           INZ EXTNAME(ANTWORTP)
D                     PREFIX(W1:2)
D MITGLIEDSAVE E   DS           INZ EXTNAME(MITGLIEDP)
D                     PREFIX(M1:2)
D                    
D /COPY SOURCE,BAR$VAR
D /COPY SOURCE,BAR$VARS
D /COPY SOURCE,BAR$PROC
D /COPY SOURCE,BAR$CONST1
D /COPY SOURCE,BAR$CONST2
D /COPY SOURCE,BAR$CONST3
D /COPY SOURCE,BAR$CONST4
D /COPY SOURCE,BAR$CONST5
D /COPY SOURCE,BAR$CONST6
D                    
D /COPY SOURCE,BAR$MAIN

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