Daten

BAR$DATEN (RPGLE)



  X * DATEN BEGSR BAR$DATEN 45  
  X * GETCOOKIE BEGSR BAR$DATEN 82  
  X * GETQUERY BEGSR BAR$DATEN 49  
  X * GETCONTENT BEGSR BAR$DATEN 197  
  X * GETVALUES BEGSR BAR$DATEN 50  
  X * SETVALUES BEGSR BAR$DATEN 18  
  X  
  X * MULTIPARTPARM PLIST BAR$DATEN 8  
  X  
  X * STRNUM EXSR BAR$NUM    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * *MAIN* EXSR BAR$MAIN    
  X  
C     DATEN BEGSR                
C *     --------------------------------------
C *     Übergebene Werte einlesen
C *     --------------------------------------
C       CLEAR   SIDALL            
C       CLEAR   DEBUGALL            
C       CLEAR   SUCHEALL            
C       CLEAR   SCHMALALL            
C       CLEAR   SPRACHEALL            
C       CLEAR   BENUTZERALL            
C       CLEAR   KENNWORTALL            
C       CLEAR   FORMDATADS            
C       CLEAR   FILETYPE            
C       CLEAR   FILEPTR            
C       CLEAR   FILELEN            
C       CLEAR   FILEX            
C          
C     *IN31 IFEQ *OFF              
C *     --------------------------------------
C *     Übergebene Werte einlesen
C *     --------------------------------------
C       EXSR GETCOOKIE              
C       EXSR GETQUERY              
C       EXSR GETCONTENT              
C          
C *     --------------------------------------
C *     Werte setzen
C *     --------------------------------------
C       EXSR SETVALUES              
C       ENDIF                
C *     --------------------------------------
C *     Werte anpassen
C *     --------------------------------------
C     CHARX1:CHARX2 XLATE SID SID            
C     CHARX1:CHARX2 XLATE DEBUG DEBUG            
C     CHARX1:CHARX2 XLATE SPRACHE SPRACHE            
C          
C *     --------------------------------------
C *     Interne Kennworte löschen
C *     --------------------------------------
C       CLEAR   PWD            
C       CLEAR   PWD1            
C       CLEAR   PWD2            
C       CLEAR   PWD3            
C       ENDSR                
C          
  X * DATEN EXSR BAR$DATEN    
  X  
C     GETCOOKIE BEGSR                
C       CLEAR   SIDCOOKIE            
C       CLEAR   DEBUGCOOKIE            
C       CLEAR   SPRACHECOOKIE            
C *     --------------------------------------
C *     Übergebene Werte aus COOKIE einlesen
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         HTTPCOOKIE:
C         HTTPCOOKIELEN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C *     --------------------------------------
C *     Übergebene Werte aus COOKIE einlesen
C *     --------------------------------------
C     ENVLEN SUBST(P) ENVRCV ENVRCV            
C     ' ' CHECK ENVRCV POS            
C          
C *     --------------------------------------
C *     Element ermitteln
C *     --------------------------------------
C     POS DOWGE 1              
C     '=' SCAN ENVRCV:POS POS2     — 77 78  
C     ';' SCAN ENVRCV:POS POS3     — 77 78  
C   N78 1 ADD ENVLEN POS3            
C          
C     POS2 IFLT POS3              
C *     --------------------------------------
C *     Elementname ermitteln
C *     --------------------------------------
C     POS2 IFGE POS              
C     POS2 SUB POS LEN     78 — —  
C   78 LEN SUBST(P) ENVRCV:POS ELEMENT            
C   78 LOWER:UPPER XLATE ELEMENT ELEMENT            
C   N78   CLEAR   ELEMENT            
C          
C       ADD 1 POS2            
C *     --------------------------------------
C *     Wert ermitteln
C *     --------------------------------------
C     POS3 IFGE POS2              
C     POS3 SUB POS2 LEN     78 — —  
C   78 LEN SUBST(P) ENVRCV:POS2 VALUE            
C   N78   CLEAR   VALUE            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Wert übernehmen
C *     --------------------------------------
C       SELECT    
C     'SID' WHENEQ ELEMENT              
C       MOVEL(P) VALUE SID            
C     'DEBUG' WHENEQ ELEMENT              
C       MOVEL(P) VALUE DEBUG            
C     'SPRACHE' WHENEQ ELEMENT              
C       MOVEL(P) VALUE SPRACHE            
C       ENDSL                
C       ENDIF                
C       CLEAR   POS            
C       ADD 1 POS3            
C *     --------------------------------------
C *     Nächstes Element suchen
C *     --------------------------------------
C     POS3 IFLT ENVLEN              
C     POS3 ANDLT ENVRCVLEN              
C     ' ' CHECK ENVRCV:POS3 POS            
C       ENDIF                
C       ENDDO                
C *     --------------------------------------
C *     Werte sichern
C *     --------------------------------------
C       EXSR GETVALUES              
C          
C *     --------------------------------------
C *     Werte sichern
C *     --------------------------------------
C       MOVEL(P) SID SIDCOOKIE            
C       MOVEL(P) DEBUG DEBUGCOOKIE            
C       MOVEL(P) SPRACHE SPRACHECOOKIE            
C       ENDIF                
C       ENDSR                
C          
  X * DATEN EXSR BAR$DATEN    
  X  
C     GETQUERY BEGSR                
C       CLEAR   SIDQUERY            
C       CLEAR   DEBUGQUERY            
C       CLEAR   SPRACHEQUERY            
C *     --------------------------------------
C *     Übergebene Werte aus QUERY einlesen
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         QUERYSTRING:
C         QUERYSTRINGLEN:QUSEC)
C          
C *     --------------------------------------
C *     Formulardaten umsetzen
C *     --------------------------------------
C       CALLP(E) UTF8X ( ENVRCV:
C         ENVRCVLEN:ENVLEN:'<':'%')
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       CLEAR   FORMDATADS            
C       CLEAR   FILETYPE            
C       CLEAR   FILEPTR            
C       CLEAR   FILELEN            
C       CLEAR   FILEX            
C          
C *     --------------------------------------
C *     Formulardaten sind am Stück
C *     --------------------------------------
C       CALLP(E) CVTDB ( FILEDS:
C         ENVRCV:
C         ENVLEN:
C         FORMDATADS:
C         FORMDATADSLEN:
C         FORMDATADSLENX:
C         RSPCDE:QUSEC)
C          
C *     --------------------------------------
C *     Werte sichern
C *     --------------------------------------
C       EXSR GETVALUES              
C          
C *     --------------------------------------
C *     Werte sichern
C *     --------------------------------------
C       MOVEL(P) SID SIDQUERY            
C       MOVEL(P) DEBUG DEBUGQUERY            
C       MOVEL(P) SPRACHE SPRACHEQUERY            
C       ENDIF                
C       ENDSR                
C          
  X * DATEN EXSR BAR$DATEN    
  X  
C     GETCONTENT BEGSR                
C *     --------------------------------------
C *     Methode ermitteln GET/POST/...
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         REQUESTMETHOD:
C         REQUESTMETHODLN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C       EVAL METHOD2    = %SUBST(ENVRCV:1:ENVLEN)
C          
C     METHOD2 IFEQ PUT              
C     METHOD2 OREQ POST              
C     METHOD2 OREQ DELETE              
C *     --------------------------------------
C *     Übergebene Werte aus CONTENT einlesen
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         CONTENTLENGTH:
C         CONTENTLENGTHLN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C *     --------------------------------------
C *     Länge in numerisch umsetzen
C *     --------------------------------------
C     ENVLEN SUBST(P) ENVRCV STR            
C       EXSR STRNUM              
C     NUM IFGE 1              
C     *ZERO ADD NUM DATALEN            
C       CLEAR   FORMDATADS            
C       CLEAR   FILETYPE            
C       CLEAR   FILEPTR            
C       CLEAR   FILELEN            
C       CLEAR   FILEX            
C          
C *     --------------------------------------
C *     Speicherbereich reservieren
C *     --------------------------------------
C       ALLOC DATALEN DATAPTR     — 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Formulardaten einlesen
C *     --------------------------------------
C       CALLP(E) STIN ( DATABUF:
C         DATALEN:
C         DATALEN:QUSEC)
C          
C *     --------------------------------------
C *     Ermitteln wie die Daten kodiert sind
C *     --------------------------------------
C       CALLP(E) GETENV ( ENVRCV:
C         ENVRCVLEN:ENVLEN:
C         CONTENTTYPE:
C         CONTENTTYPELEN:QUSEC)
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C     ENVLEN SUBST(P) ENVRCV FORMTYPE            
C     ENVLEN SUBST(P) ENVRCV DATATYPE            
C     ';' SCAN DATATYPE POS     — 77 78  
C     *IN78 IFEQ *ON              
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) DATATYPE DATATYPE            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C          
C       SELECT    
C     DATATYPE WHENEQ URLENCODED              
C *     --------------------------------------
C *     Formulardaten übertragen
C *     --------------------------------------
C     *ZERO ADD DATALEN ENVLEN            
C     ENVLEN IFGE 1              
C     DATALEN SUBST DATABUF ENVRCV            
C       CALLP(E) UTF8X ( ENVRCV:
C         ENVRCVLEN:ENVLEN:'<':'%')
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C *     --------------------------------------
C *     Formulardaten sind am Stück
C *     --------------------------------------
C       CALLP(E) CVTDB ( FILEDS:
C         ENVRCV:
C         ENVLEN:
C         FORMDATADS:
C         FORMDATADSLEN:
C         FORMDATADSLENX:
C         RSPCDE:QUSEC)
C       ENDIF                
C       ENDIF                
C     DATATYPE WHENEQ MULTIPART              
C *     --------------------------------------
C *     Formulardaten sind einzeln
C *     --------------------------------------
C       CALL 'MULTIPART' MULTIPARTPARM     — 77 —  
C          
C     DATATYPE WHENEQ MIMEXML              
C *     --------------------------------------
C *     Formulardaten sind XML
C *     --------------------------------------
C          
C     DATATYPE WHENEQ MIMERSS              
C *     --------------------------------------
C *     Formulardaten sind RSS
C *     --------------------------------------
C          
C     DATATYPE WHENEQ MIMEATOM              
C *     --------------------------------------
C *     Formulardaten sind ATOM
C *     --------------------------------------
C          
C     DATALEN IFGE 1              
C     DATALEN ANDLE DATABUFLEN              
C *     --------------------------------------
C *     Daten in EBCDIC umsetzen
C *     --------------------------------------
C       CALLP(E) QTQCVRT ( ASCII:0:
C         DATABUF:DATALEN:
C         EBCDIC:0:0:DATALEN:
C         DATABUF:RCVLEN:
C         DUMMY:FB)
C          
C       MOVEL(P) DATETIME TITEL            
C       EVAL TEXT       = %SUBST(DATABUF:1:DATALEN)
C       ENDIF                
C          
C     DATATYPE WHENEQ MIMEOSDX              
C *     --------------------------------------
C *     Formulardaten sind OSDX
C *     --------------------------------------
C          
C     DATATYPE WHENEQ MIMECSS              
C     DATATYPE OREQ MIMEHTML              
C     DATATYPE OREQ MIMEPLIST              
C *     --------------------------------------
C *     Formulardaten sind CSS/HTML/PLIST
C *     --------------------------------------
C          
C       OTHER                
C *     --------------------------------------
C *     Datentyp übernehmen
C *     --------------------------------------
C       MOVEL(P) DATATYPE FILETYPE            
C          
C *     --------------------------------------
C *     Beginn und Länge der Daten
C *     --------------------------------------
C       MOVE DATAPTR FILEPTR            
C     *ZERO ADD DATALEN FILELEN            
C       CLEAR   FILEX            
C          
C       ENDSL                
C *     --------------------------------------
C *     Dateityp ermitteln
C *     --------------------------------------
C     *BLANKS IFNE FILETYPE              
C     UPPER:LOWER XLATE FILETYPE FILETYPE            
C     MIMEOCTET IFNE FILETYPE              
C       OPEN MIMEL2       — 77 —  
C     FILETYPE SETLL MIMEL2       — 77 —  
C   N77 FILETYPE READE MIMEL2       — 77 77  
C   N77   MOVEL(P) MIFILEX FILEX            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Falls Dateityp nicht ermittelt
C *     --------------------------------------
C     *BLANKS IFEQ FILEX              
C     FILELEN IFGE 2              
C       SELECT    
C     FILEBUF2A WHENEQ ZIPS              
C       MOVEL(P) ZIP FILEX            
C     FILEBUF2A WHENEQ JPGS              
C       MOVEL(P) JPG FILEX            
C     FILEBUF2A WHENEQ ICOS              
C       MOVEL(P) ICO FILEX            
C     FILEBUF2A WHENEQ TTFS              
C       MOVEL(P) TTF FILEX            
C     FILEBUF2A WHENEQ WOFFS              
C       MOVEL(P) WOFF FILEX            
C       ENDSL                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Werte sichern
C *     --------------------------------------
C       EXSR GETVALUES              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * GETCONTENT CALL BAR$DATEN    
  X  
C     MULTIPARTPARM PLIST                
C       PARM   DATAPTR            
C       PARM   DATALEN            
C       PARM   FORMTYPE            
C       PARM   FORMDATADS            
C       PARM   FILETYPE            
C       PARM   FILEPTR            
C       PARM   FILELEN            
C          
  X * GETCOOKIE EXSR BAR$DATEN    
  X * GETQUERY EXSR BAR$DATEN    
  X * GETCONTENT EXSR BAR$DATEN    
  X  
C     GETVALUES BEGSR                
C *     --------------------------------------
C *     CONTEXT nehmen falls vorhanden
C *     --------------------------------------
C     *BLANKS IFNE CONTEXT              
C       MOVEL(P) CONTEXT SID            
C       ENDIF                
C *     --------------------------------------
C *     SID sichern
C *     --------------------------------------
C     *BLANKS IFNE SID              
C       MOVEL(P) SID SIDALL            
C       ENDIF                
C *     --------------------------------------
C *     DEBUG sichern
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C       MOVEL(P) DEBUG DEBUGALL            
C       ENDIF                
C *     --------------------------------------
C *     SUCHE sichern
C *     --------------------------------------
C     *BLANKS IFNE SUCHE              
C       MOVEL(P) SUCHE SUCHEALL            
C       ENDIF                
C *     --------------------------------------
C *     SCHMAL sichern
C *     --------------------------------------
C     *BLANKS IFNE SCHMAL              
C       MOVEL(P) SCHMAL SCHMALALL            
C       ENDIF                
C *     --------------------------------------
C *     SPRACHE sichern
C *     --------------------------------------
C     *BLANKS IFNE SPRACHE              
C       MOVEL(P) SPRACHE SPRACHEALL            
C       ENDIF                
C *     --------------------------------------
C *     BENUTZER sichern
C *     --------------------------------------
C     *BLANKS IFNE BENUTZER              
C       MOVEL(P) BENUTZER BENUTZERALL            
C       ENDIF                
C *     --------------------------------------
C *     KENNWORT sichern
C *     --------------------------------------
C     *BLANKS IFNE KENNWORT              
C       MOVEL(P) KENNWORT KENNWORTALL            
C       ENDIF                
C       ENDSR                
C          
  X * DATEN EXSR BAR$DATEN    
  X  
C     SETVALUES BEGSR                
C *     --------------------------------------
C *     Werte setzen
C *     --------------------------------------
C       MOVEL(P) SIDALL SID            
C       MOVEL(P) DEBUGALL DEBUG            
C       MOVEL(P) SUCHEALL SUCHE            
C       MOVEL(P) SCHMALALL SCHMAL            
C       MOVEL(P) SPRACHEALL SPRACHE            
C       MOVEL(P) BENUTZERALL BENUTZER            
C       MOVEL(P) KENNWORTALL KENNWORT            
C          
C *     --------------------------------------
C *     Suche vorbereiten
C *     --------------------------------------
C     ' ' CHECKR SUCHE SUCHLEN            
C       CALLP(E) CVTCS(TOLOWER:SUCHE:SUCH:SUCHLEN:QUSEC)
C       ENDSR                

487 ms | Kontakt | Information | Aibo-Bar © 2005-2024