cobol

0Hitze

1Antwort

Stoppen Sie den Effekt des Aufrufs eines Eintrags

Ich versuche, einen internen Eintrag in Cobol aufzurufen. Der Aufruf ist OK, aber das Problem, dass es einige Absätze nach dem Eintrag gibt, die auch falsch ausgeführt werden. Hier ist mein Programm:

-1Hitze

1Antwort

Wenn FIELD-A PIC 9V99 hat

Wenn FIELD-A PIC 9V99 hat, würde ich FIELD-A in ein bearbeitetes Feld mit der Art der PIC-Klausel verschieben, um den Dezimalpunkt zu drucken? Ich bin ein Anfänger und nicht sicher, wo ich anfangen so

0Hitze

1Antwort

Re: XML-API - GXL1PRS

Ich versuche XML-API-Aufruf von z/OS XML-System-Services Parser-Prozess in unserer Umgebung zu implementieren. Dazu nahm ich das Beispielprogramm XMLPRS1, das in redbook enthalten ist http://www.redbo

2Hitze

4Antwort

Ausgang ein doppeltes

ausführen Ist-es möglich, eine doppelte durchführen zu verlassen: PERFORM VARYING J FROM 1 BY 1 UNTIL J>10 PERFORM VARYING K FROM 1 BY 1 UNTIL K>3 IF J=2 and K=2 EXIT P

1Hitze

2Antwort

EXIT ein Absatz aus einem gerufenen Absatz

i einen Absatz aus einem gerufenen Absatz zu beenden versuchen Dies ist mein Code: PROCEDURE DIVISION. display "PGM LEAV9POW: DEBUT" display "PGM LEAV9POW: DEBUT PROCEDURE NOM_PROC1" PE

0Hitze

1Antwort

goback und geht über zu Punkt

Gibt es eine Möglichkeit, die lassen kann mir die Wirkung eines „TO GO“ Abbrechen: PERFORM PROCEDURE1 THRU E--PROCEDURE1 display "PERFORM PROCEDURE2 THRU E--PROCEDURE2" PERFORM PROCEDURE2

0Hitze

1Antwort

Decimal Overflow in DB2

Ich mache die folgende SQL in DB2V10. select SUM (ORD_QTY * IFNULL(SELL_AMT,0) * IFNULL(WGT_QTY,0)) INTO :WS-VAR FROM TABA with ur; ORD_QTY => INTEGER SELL_AMT => DECIMAL(13,4) WGT_QTY =

1Hitze

1Antwort

Wie kann man einen numerischen Wert aus vsam-Datei für gepackte PIC-cobol-Klausel ermitteln, ohne ein cobol-Programm zu schreiben?

Ich habe ein Dienstprogramm-Paket (vsmr) verwendet, um die Werte für eine VSAM-Datei zu lesen, und ich habe den Copybook-Quellcode für mich verfügbar. Wenn ich Definitionen haben wie unten (entschuldi

0Hitze

2Antwort

Decodieren einer binär codierten Dezimalzahl

Ich habe ein Feldbild X (03) mit einem Datum darin als X'160101 'Format yymmdd. Ich würde gerne wissen, wie man es in Bild x (06) konvertieren. Bisher habe ich versucht, es zurück zu einer 9 (03) comp

1Hitze

1Antwort

Öffnen Sie eine Cobol index-sequentielle Datei mit dem Dateinamen in einer Variablen

Ich benutze Microfocus Net Express 5.1 (Cobol). Wenn ich einen Index-sequentielle Datei öffnen, möchte ich schreiben open input xyzfile Meine Frage ist: Gibt es irgendwie eine Möglichkeit, einen Sch