Suchen:

Wie gerne wüsste ich, wieviele BSOD ich mir insgesamt erspart habe:

WIN 3.xx --> NT --> XP --> 8 --> 10 --> Linux Mint (anstehend) -> Ruhestand (unvermeidlich)

Und, dass ich das noch erleben...

Prüfe auch mal, ob die
DS POST1 über
K Key1
K Key2
K Key3
unsauber ist oder fehlt.

Hallo Kollegen,

habe demnächst wieder Kapazitäten frei:


RPG in allen Sprachvarianten von RPG II bis SQL RPGLE /free sowie CLP und CLLE
Schnittstellen und Migrationen, WebSphere MQ (früher...

Ich würde auch mal durch die 7 Programme gehen und prüfen, welcher Read/Chain durch Read(N) und Chain(N) ersetzt werden kann...

Wenn ich das richtig in Erinnerung habe, kann das DDS Schlüsselwort RTNCSRLOC() auch einen Feldnamen zurückgeben.

Prompte mal den CPYFRMIMPF mit F4 + F9. Ist da eine Felddefinitionsdatei (Parameter FLDDFNFILE) angegeben?

Man kann eine Grafik auch binär in base64 einbinden:

https://ekiwi.de/index.php/600/bilder-mit-base64-kodierung-mit-css-in-html-verwenden/

Aha ;-)

Hier geht es um den Zusammenhang: Wenn IBM eine Technologie erläutert und deren Anwendung eingehend beschreibt und dazu offen anbietet, wie kann es dann Urheberrechtsansprüche Dritter...

Hab' mal meine PDFs gescannt:

Im RedBook "Who Knew You Could Do That with RPG IV? A Sorcerer’s Guide to System Access and More" (SG24-5402-00 vom Februar 2000) wird das Verfahren ausführlich...

Die "Suche nach einem Beispiel für AS/400 Prototyp von QRCVDTAQ" in ChatGPT bringt gleich zwei Beispiele, RPG IV und Free.

Vielleicht ist Manfred noch zu erreichen...

Er war mal in diesem Forum und hatte einen Lehrauftrag an der Hochschule Darmstadt.
...

Danke Baldur,

jetzt wird langsam ein Lösungsweg daraus.

Die "direkte Bearbeitung des Spool Files mittels eines Programms" kann ja via DDS in eine neue SPLF ausgegeben werden.

ChatGPT meint dazu:

Ja, es ist möglich, Formatierungen wie Fettdruck oder Unterstreichung in einem IBM AS400 Spool File (SPLF) zu initiieren, indem man spezielle Steuerzeichen oder Hexwerte...

Wieviele O-Zeilen habt Ihr denn noch?

Habe hierzu Anfang der 90er ein Tool "CVTOSPEC" geschrieben, welches O-Zeilen interpretiert, deaktiviert und als PRTF neu in QDDSSRC schreibt. Beide Quellen...

O-Zeilen?

Geht mit bedingten, zusätzlichen EXCPTs auf einzelne Felder ohne Vorschub, z.B.

O E 00 ULINN
O ORGFLD ...

DSPMSGD CPF2972 - Fehler beim schreiben...

LIBL? Overrides? Berechtigungen?

PDM?

Falls ja: F18 Standardwerte, letzte Zeile Gesamtanzeigenmodus = N

Und rückwärts, für Calls in S/36 RPG II, gab es seit etwa 1988 ein "RPG zweieinhalb" von Grünbichler…

Habe Deine Frage mal nach ChatGPT kopiert, da kam u.a. noch dieser Tipp:

"Überprüfen Sie den Wert des Systemwerts QRETSVRSEC. Wenn er auf 1 gesetzt ist, prüft der Server den Servernamen anhand der...

Und ich dachte Du grübelst noch, ob er nur das UNIQUE meinte :-)

Ändere die DDS und führe anschließend einen CHGPF unter Angabe der Quelle aus.

(selbst wenn es mit SQL ginge, der nächste der mit CHGPF daherkommt würde es Dir wieder weghauen ;- )

Nachtrag:...

Auch wenn's nicht mehr zeitgemäß erscheint, beim CALL von A nach B darf ein PARM auch eine DS sein...

Noch dürfen wir das ja. Bis wir dann, rechtzeitig zum Ruhestand, durch die KI ersetzt werden. Nur, wer wird dann unser Hochgefühl des Mehr- oder Besser-Wissenden kompensieren?
</Satire>

Wenn's nur diese kleine, einmalige Aufgabe ist: zweimal %SCANRPL

Falls hinter dieser Frage etwas größeres steht, sollten wir das wissen (EBCDIC/ASCII, Base64 & Co. ;- )

Mannomann, was haben wir uns früher gequält um halbwegs brauchbares "Marketing-Sprech" zu produzieren...

Heute, einfache Frage an ChatGPT:

Wie verhält sich Total Cost of Ownership der IBM i...

Hab' die Frage mal an ChatGPT gerichtet, weil's mich auch interessiert ;-)

Frage:

Gibt es irgendwo offizielle Informationen, wie weit IBMi (AS400) bzw. RPG verbreitet ist? Mich interessiert:...

ChatGPT sagt ja, rät jedoch ab...

"Die IBM i (AS400) 5250 sendet bei Passwordfeldern das Farbattribut 27, kann man das in Sternchen übersetzen?"

Ja, das ist möglich! Wenn Sie das Farbattribut...

ChatGPT ist doch jetzt das neue Handbuch ;-)

"Can you explain DSPATR(*UCASE) please"

Sure! DSPATR(*UCASE) is a display attribute in IBM i (AS400) that is used to display a field in uppercase...

Musste einfach nachfragen...

"What would this combination of DSPATR with a user-defined format or edit code look like? Can I have an example?"

Yes, you can use the DSPATR attribute in...

ChatGPT weiß mehr:

"can IBM i (AS400) send asterisks instead of Blanks with DSPATR(ND)?"

Yes, it is possible for IBM i (AS400) to send asterisks instead of blanks with DSPATR(ND).

DSPATR(ND)...

Ist im DSPF zu SLNO(*VAR) auch CLRL(*NO) definiert?

Passt schon...

Baldur meinte übrigens dieses "vorher": http://newsolutions.de/forum-systemi-as400-i5-iseries/threads/22350-Aus-ILE-Programm-direkt-in-IFS-schreiben?p=110402#post110402

Nunja, *public ist nicht so mein Freund ;- )

Falls Du beim nächsten Audit etwas glänzen möchtest, definiere für jede Schnittstelle ein eigenes USRPRF ohne interaktive Anmeldung.

Danach: CHGAUT OBJ(&LNK) USER(&ABHOLER) DTAAUT(*RWX) OBJAUT(*ALL)

Neuer Stoff für Dunning & Kruger ;- )

Nicht via Copy & Paste. Das war/ist das zeilenweise Kopieren aus geteiltem Bildschirm (F15).

Nebenbei bemerkt: hier ist nicht das ";" durch "_" zu ersetzen sondern "& AMP;" durch "&" ...

Geruhsame Festtage, bleibt gesund!

Da hast Du recht, hinter dem Datum geht das nicht (hatte ich übersehen).

Da bleibt nur SQL oder View.

zu: REUSEDLT ist *NO, RECNO geht leider nicht auf LF.

Bin mir da nicht sicher (kommt davon wenn man unvollständig aus dem Gedächtnis abschreibt ;- )

Die F-Zeile geht auf (zusätzliche) IF, ohne...

Wenn die Datei auf REUSEDLT(*YES) steht oder regelmäßig reorganisiert wird, ändern sich auch die RRN.

Ansonsten könnte der Zusatz RECNO(RRN) in der F-Zeile helfen.

Aus meiner Erfahrung (seit den Office/400 Schulungen in den frühen 90ern) ist es nicht die Shift-Taste die stört (Eselsbrücke Gross-/Kleinschreibung) sondern das Kopfrechnen mit +12 ;- )

In den...

RPLUNPRT?
http://newsolutions.de/forum-systemi-as400-i5-iseries/threads/21794-qrcode-mit-lf-(oder-cr-oder-cr-lf)

Erhol Dich gut, lieber Baldur - und komm gesund zurück!

Durchforste mal die QGPL oder eigene Bibliotheken in der SYSLIBL - ich kann mir schwer vorstellen dass da keiner jemals eine Releasewechsel- oder Maschinenwechsel-Installationsroutine geschrieben...

Sieh Dir mal den Parameter STMFAUT() an, z.B. als STMFAUT(*INDIR).

Alternativ kannst Du einen weiteren Befehl hinterher schicken (Achtung: Sicherheitskonzept!):
CHGAUT OBJ(-LINK-) USER(-USER-)...

Nicht Du musst Dich entschuldigen. Hier ist Deine Personal- oder Geschäftsleitung in der Pflicht!

https://www.midrange-events.de/va/online-workshop-programmiersprache-sql-einfuehrung/

Ein befreundeter IT-Leiter sucht zwei RPG-Entwickler (RPG IV und /free) zur langfristigen Festanstellung.

Bei Interesse bitte Private Message mit Telefonnummer und Wunschuhrzeit für ein kurzes...

Alternative ab V7.4:

https://www.rpgpgm.com/2020/11/reading-file-in-ifs-with-sql.html
https://www.rpgpgm.com/2020/11/writing-to-ifs-file-with-sql.html

Mit etwas Anleitung von Scott Klement ist das kein Problem:

https://www.scottklement.com/rpg/ifs_ebook/ifs_ebook.pdf

Wäre ich der Einzige, der sich mehrere Anweisungen in einer Zeile wünschen würde?

If Test = *On; Wert1 = X; Wert2 = Y; Wert3 = Z; EndIf;

Hallo,

hatte gestern eine Präsentation zum Chameleon Web Development FrameWork.

http://www.hexache.com/merlin/

Ich fand es sehr interessant (free MIT Licence), bin aber noch nicht in die...

REUSEDLT auf Datei EVRWRKP auf *YES?

D NN$DS03 DS INZ
D DS$DS03 Dim(10)
D DS03KEY Overlay(DS$DS03)
D ...

Einfach nur die RLAs durch schickes SQL ersetzen zu wollen ergibt ja auch keinen Sinn.

Die wahren Vorteile kommen schließlich erst zutage wenn man verquaste Logiken, versteckt hinter seitenlangen...

Hallo GUK, der Trick mit den zwei Satzformaten ist (war seinerzeit) gar nicht mal so schlecht, hat man doch die beiden Felder Von und Nach jeweils getauscht "untereinander" ;-)

Und, gerade sehe...

Wozu eigentlich die LF, es verweisen doch beide Satzformate auf die gleiche PF? Alternative wäre ein Zugriff per SQL statt Chain, auf eine View RELATDV1 mit den beiden "Satzformaten" via UNION und...

D Nm C '0123456789'
D Rp C '##########'
...

Jesse Gorzinski (Entwickler ACS) empfiehlt als vorbeugende Maßnahme:

ADDENVVAR ENVVAR(LOG4J_FORMAT_MSG_NO_LOOKUPS) VALUE('true') REPLACE(*YES) LEVEL(*SYS)

Frage an die Kollegen mit 'nem...

Erstellst du das HTML selbst in der i?
Ist das Bild nicht übermäßig groß?

Dann kannst du es auch binär in den html code schreiben, etwa: <img src="data:image/jpeg;base64, ... " alt="">

Wenn Du Glück hast, funktionieret Datenstationsanpassungsobjekt *IBM42071 oder *EPLQ2550

https://www.ibm.com/support/pages/information-printers-genicom-tally-and-tallygenicom

Vor ca. zwanzig Jahren habe ich das mal mit Steuersequenzen (aus dem Kyo-Handbuch) gelöst und diese jeweils am Anfang und Ende eines Spools eingefügt:

!R! RES; UNIT C; FTMD 15; FDIR 1; FONT 06;...

.... Frage falsch verstanden ...

Stichwort Plattenplatz:

Prüfe mal mit WRKOBJ QSYS/QPZA00* *FILE ob es alte Save Files (PTFs) gibt, die raus können...

Das riecht irgendwie nach einem Select * from GeänderteDatei into FestCodierteDS ...

Etwas dünn, so als Vorgabe…

Wie erfolgt die Übermittlung? FTP? HTTPS? MQSeries?
Welche Eingangsschnittstellen bietet das DMS-System?
Wer sagt, wann eine Übertragung Okay ist?
Wie kommt das...

hel400 war schneller...

Nächster Schritt: steht in DSPFD der Parameter MAINT auf *IMMED?

Was sagt der DSPDBR auf Deine Datei?

Wieso eigentlich. Es sind doch die anderen, die nicht zuhören ;- )

...was ich ganz stark anzweifle! Wenn sich da mal ein Tsunami aus versemmelten CCSIDs, unerfahrenen Codern in Verbindung mit unerwarteten Havarien (RDi oder Anwendung) entwickelt, möchte ich nicht in...

Da gebe ich Dir sogar recht! Allerdings muss ich immer den kleinsten gemeinsamen Nenner unter den Kunden wahren (die einen sind noch auf V5.4 oder 6, andere sind nicht sattelfest in CL/CLLE und...

Falls das jemand nachmachen möchte: ich schreibe gar keine CLLE's mehr, mache alles in Free mit QCMDEXC - die Anweisungen Monitor und Commit sind in diesem Kontext unschlagbar!

Nur so'ne Idee, habt Ihr mal die Schreibweise verglichen (Groß-/Kleinschreibung)?

...nur weil der Begriff Bon-Drucker gefallen ist, hier ein Off-Topic: https://www.neobon.de/

Wenn ich mich richtig erinnere gibt es eine Lösung via Weiterleitung in eine zweite OUTQ mit entsprechenden Einstellungen.

Baldur, findest Du das noch in Deinem Gedächtnis? Oder hier im Forum?
...

Sprich mal mit den ERP Leuten. Meist sind das lauschende oder Daten tauschende Verbindungen mit einem eigenen Wiederanlauf.

Falls sich das bestätigt, kannst Du vor Deiner Sicherung einen ENDSBS...

Hallo Klaus,

im Grunde sind die "Formate" immer offen, weil es keine solchen sind. Du hast in Wahrheit eine Programminterne Datenstruktur mit beliebig vielen Zeilen die Du mit jedem Wechsel des...

An alle Kollegen und Leser, die sich mit Zukunft und Strategie befassen...

"Inrupt Solid" von Tim Berners-Lee, dem Erfinder des Internets: https://inrupt.com/

Aktueller Stand:

Proof of...

Das waren noch spannende Zeiten, als der Porsche (Siemens Nixdorf) das Rennen um die Mittlere Datentechnik gegen den Mercedes (IBM) verloren hat...

...und Teil Deiner Strategie werden. Logik aus dem Code in die Datenbank zu legen (kombinierte Views) ist ein anerkennenswerter Ansatz.

Aber Karl...

wir wissen doch, dass die Qualität von Ergebnissen außerhalb der Komfortzone des Entwicklers liegt.

;-)

Klar,

http://newsolutions.de/forum-systemi-as400-i5-iseries/members/449-B-Hauser buchen. Dann gibt's Schulung PLUS performante SQLs on-the-job.

Schau Dir mal diesen Systemwert an: DSPSYSVAL QMAXSGNACN

Falls die User das nicht erinnern, gibt es von irgendwo Aufrufe mit falschem Kennwort (FTP scripts o.ä.)

Ein Tag im Leben des HB-Männchens: https://www.youtube.com/watch?v=5R6384xqWx4

Ideen gibt's immer. Neben SQL, falls es in RPG passieren soll/darf:

a) zwei D-Zeilen Const(x'......') mit %Xlate auf das Feld (oder String)

b) wenn's nicht zuviele Zeichen sind, je Hexwert:
...

Zugegeben ;-) Allerdings gibt es Dinge, ich mit SQL gar nicht erst versuchen würde. Zum Beispiel Office XML mit Variablen oder Textbausteinen mischen, statisches HTML mit Google Charts schreiben…

Mein Trick ist, die Datei nach dem Erstellen gleich zu schliessen und erneut zu öffnen:

Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID;
Mode = S_IRWXU + S_IRWXG + S_IRWXO; ...

https://www.scottklement.com/rpg/ifs_ebook/ifs_ebook.pdf

... mit etwas Glück auch in den Journaleinträgen der Art GO, ZO, CP oder DO via
DSPJRN JRN(QUSRSYS/QAOSDIAJRN) RCVRNG(*CURCHAIN) FROMENT(*FIRST)

Moin,

probier's mal so:

IfsLink =
Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID;
Mode = S_IRWXU + S_IRWXG + S_IRWXO;
Fd =...

Original aus den 80ern: „Wer glaubt, dass Projektleiter Projekte leiten glaubt auch dass Zitronenfalter Zitronen falten.“

D $Letters S 26A INZ('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
D $LrgNbr S 63S 0 Maximum des Systems
D...

If *INU1;
oder
If *IN01 = *On;

http://ibmi.thiez.com/2020/01/17/playing-with-python-on-ibm-i/
https://www.itjungle.com/2010/08/25/fhg082510-story01/
https://www.itjungle.com/2010/11/03/fhg110310-story01/...

yepp, RTVCLSRC ist Dein Freund...

SELECT SYSTEM_TABLE_SCHEMA, SYSTEM_TABLE_NAME, NUMBER_ROWS,
NUMBER_DELETED_ROWS FROM QSYS2/SYSTABLESTAT

D VARTAB S 10A Dim(3)
D VARXXX S 10A
D V S 10I 0
/Free
VARTAB(1) =...

Hallo Michael,

ich habe vor einigen Jahren einen Prototypen bestehend aus HTML2PDF4i (von Aaron Bartell) und
AppServer4RPG (von Dieter Bender und mit dessen Hilfe) zum fliegen gebracht.
...

https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_71/rzasd/sc092508.pdf

DOPNFBK DS
D ODP_TYPE 81 82 * ODP Type
D FILE_NAME 83 92 * File name
D LIBRARY 93 102 * Library name
D SPOOL_FILE...

Von Scott Clement gibt es ein "Base64 Encode/Decode for ILE RPG":
https://www.scottklement.com/base64/

Falls Du ein Beispiel brauchst, müsste ich eins raussuchen...

(nedoisiswuascht ;- )