|
|
Domande in corso
-
Inserito il 20.05.2013 -
Buongiorno a tutti,
avrei bisogno di sapere come fare per cambiare l'ordinamneto dei file visualizzati nello spool tramite comando WRKSPLF in quanto non riesco ad esempio a visualizzare lo spool di un lavoro con il relativo QPJOBLOG di seguito.
Grazie
Alessandro
-
Inserito il 11.05.2013 -
Salve,
in questo periodo mi sto avvicinando alla programmazione COBOL su AS/400. Ho ripreso in mano il linguaggio in una giornata (lo avevo studiato all'università), ma mi sono bloccato sulla gestione dei file.
Ho un account gratuito sul sever pub1.rzkh.de ed ho scritto un programma in cobol/400 rispettando lo standard ANSI COBOL 74.
Un primo problema è che la documentazione disponibile non corrisponde alla sintassi accettata da SEU.
Per esempio nella clausola ENVIRONMENT DIVISION / INPUT-OUTPUT CONTROL / SELECT / ASSIGN i nomi dei device non corrispondono a quanto scritto nel manuale ibm COBOL/400 reference:
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c0918130.pdf
DISK diventa DISK-NAMES e DATABASE diventa DATABASE-NAMES.
Inoltre non so come scrivere il nome del file fisico in DATA DIVISION / FILE SECTION / FD / FILE-ID.
Immagino sia necessario inserire il nome della libreria seguito da quello del file fisico: "MYLIB/AGENDA"
Ho creato un file fisico ed ho inserito un record tramite DFU. Ecco i sorgenti:
AGENDA.DDS:
A R AGDREC
A AGDNOME 20A
A AGDTEL 20A
A AGDIND 20A
AGENDA.CBL:
IDENTIFICATION DIVISION.
PROGRAM-ID. AGENDA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
SELECT AGD-FILE ASSIGN TO DISK-NAMES
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS AGD-STATO.
DATA DIVISION.
FILE SECTION.
FD AGD-FILE VALUE OF FILE-ID IS "AGENDA".
01 AGD-REC.
02 AGD-NOME PIC X(20).
02 AGD-IND PIC X(20).
02 AGD-TEL PIC X(20).
WORKING-STORAGE SECTION.
01 AGD-STATO PIC XX.
PROCEDURE DIVISION.
OPEN INPUT AGD-FILE.
IF AGD-STATO IS NOT EQUAL TO 00 THEN
DISPLAY "ERRORE: ", AGD-STATO
ELSE
READ AGD-FILE,
CLOSE AGD-FILE.
STOP RUN.
Grazie in anticipo per l'aiuto.
Guido.
-
Inserito il 10.05.2013 -
Come posso fare ad avere da rpgle o clp la data/ora della prossima accensione del sistema? perchè utilizzando il comando RTVPWRSCDE con *ONTIME, di default prende quello del giorno, ma io ho bisogno che se il job gira alle 23:00 di sera recuperi l'ora di accensione del giorno dopo e invece se il job gira all'una di notte (perchè magari il sistema si spegne alle 02:00), devo recuperare l'ora dello stesso giorno perchè sono già nel nuovo giorno. Grazie
-
Inserito il 07.05.2013 -
Salve chiedo aiuto per unn problema in uno script che deve eseguire un update sql su un file testo in as400:
Riporto il clp BCAI3 che ho inserito:
****************** Inizio dati ************************************
PGM
RUNQRY QRY(LIB/BCAIT1) RCDSLT(*NO)
RUNSQLSTM SRCFILE(LIB/SRCCLP) SRCMBR(BCAI3SQL) +
COMMIT(*NONE) OUTPUT(*NONE)
ENDPGM
******************** Fine dati ************************************
la query fa solo una copia del file su cui agire;
sotto l' update sql inserito nel file BCAI3SQL che intendo fare:
****************** Inizio dati ****************************************
UPDATE LIB/FILE SET FNAS=
SUBSTR(FNAS, 1, 251)!!' '!!SUBSTR(FNAS, 264, 537)
WHERE SUBSTR(FNAS, 59, 3)='001'
******************** Fine dati ****************************************
eseguendo il tutto viene segnalato
Messaggio . . . : SQL9010 ricevuto da BCAI3 nel 300. (C D I R)
Causa. . . . . : Il programma in linguaggio di controllo (CL) BCAI3 nella
libreria UAMCLI ha rilevato un errore alla specifica numero 300. Testo
messaggio per SQL9010 è: Comando RUNSQLSTM non riuscito.
Correzione . . . : E' possibile evitare tale messaggio di interrogazione
modificando il programma. Controllare l'errore (comando MONMSG) ed eseguire
la correzione dell'errore all'interno del programma. Per continuare,
scegliere una risposta.
Chiedo è un problema di apici in sql ???
Ringrazio e saluto
nic
-
Inserito il 24.04.2013 -
VISTO LA DISMISSIONE DELEL ACG V3.3 CHE ABBIAMO INSTALLATO, VOLEVO SAPERE I PREREQUISITI COME LIVELLO SISTEMA OPERATIVO AS400 ED EVENTUALI ALTRE CARATTERISTICHE (SPAZIO SU DISCO,RAM, EVENTUALE SERVER WINDOWS...).
GRAZIE
-
Inserito il 08.04.2013 -
Buongiorno, quali sono le differenze tra la ver 3.3 e la ver 3.8 delle ACG?
-
Inserito il 03.04.2013 -
Salve a tutti,
vorrei sapere un'emulatore as400 gratuito adatto per il Palmare D6000 Dolphin ScanPhone....
vi ringrazio Giuseppe
-
Inserito il 29.03.2013 -
Buonasera, vorrei sapere come cancellare un record in rpg free, utilizzando SQL utilizzando RRN del record
Grazie
Pxmago
Domande ancora senza risposta
- Sorgenti Galileo V6
Inserito il 21.05.2013 -
Sono alla ricerca dei sorgenti Galileo V6, disponibile ad acquistare.
Rey
- Cerco Sorgenti Galileo V6
Inserito il 20.05.2013 -
Sono alla ricerca dei sorgenti Galileo V6 , disponibile anche ad acquistarli.
grazie
Rey
- retrieve data/ora di accensione
Inserito il 10.05.2013 -
Come posso fare ad avere da rpgle o clp la data/ora della prossima accensione del sistema? perchè utilizzando il comando RTVPWRSCDE con *ONTIME, di default prende quello del giorno, ma io ho bisogno che se il job gira alle 23:00 di sera recuperi l'ora di accensione del giorno dopo e invece se il job gira all'una di notte (perchè magari il sistema si spegne alle 02:00), devo recuperare l'ora dello stesso giorno perchè sono già nel nuovo giorno. Grazie
- operation navigator
Inserito il 19.04.2013 -
Ho riavviato il mio iseries 5.4, dopo l'apertura dell'operation navigator da pc con Windows è diventata molto lenta (alcuni minuti), prima del riavvio si apriva in pochi secondi, da cosa potrebbe dipendere?
Grazie
- ODBC criteri di gruppo
Inserito il 28.03.2013 -
Ciao a tutti, ho creato una connessione ODBC ( per la lettura di file su as400 ) che viene gestita tramite criteri di gruppo su windows server 2008. Il mio problema è che la connessione sui client windows 7 viene inserita regolarmente mentre sui client windows xp non viene caricata, qualche suggerimento ?
- Numero Lavoro
Inserito il 27.03.2013 -
Buongiorno,
tramite trigger su file viene lanciato un CL che produce un stampa. Vedo che glia attributi della stampa Lavoro/utente/numero sono sempre uguali e di conseguenza l'attributo nr. file ad ogni spool viene incrementato. Vorrei che l'attributo nr.file dello spool raggiunto un valore (9999) riprenda da 1. Il motivo è un problema con la suite grafica SpoolOffice .
Oppure visto che l'incremento dell' attributo nr. file penso sia dovuto allo stesso job come poter cambiare job ad ogni scatto del trigger.
Grazie
- battery cache pack 9406-820
Inserito il 22.03.2013 -
Ciao a tutti, ho un problema sul mio 9406-820, ho la segnalazione che le battery cache si stanno esaurendo (mancano 80 giorni) quindi devo sostituirle.Il problema non sono le batterie che si trovano anche su Amazon o Ebay ma dove sono situate nella macchina. dai manuali non sono riuscito a capirlo, c'è qualcuno che mi può aiutare? grazie Serginho
- ridefinire campo alfa in numero con DDS
Inserito il 21.03.2013 -
in un file logico dovrei ridefinire un campo alfanumerico di 3 caratteri, contenente solo numeri, in un campo numerico di 3 cifre con zero decimali.
il campo alfanumerico è stato ricavato tramite un substring da un altro campo alfanumerico.
è possibile effettuare questa ridefinizione all'interno della stessa dds usata per generare il file logico e come si può fare?
grazie
Isidoro
Ultimi annunci inseriti
|
|
|
