WikiUp

Programma di test della £LIN

OBIETTIVO

Inizializzare le schiere interne ai programmi definite a tempo di compilazione nella lingua assunta specificata nella tabella B£2.

FLUSSO

Ogni programma contenente schiere interne, nella routine £INIZI richiama una routine denominata per questioni di "convenzione standard" £INIZL, la quale per ogni schiera definita richiama la routine £LIN passandogli contenuto, nome, tipologia della schiera, viene tradotta, inserita nel database delle traduzioni in lingua se mancante, ed infine restituito il contenuto tradotto e quindi reso disponibile al programma per l'utilizzo.

PREREQUISITI

D/COPY QILEGEN,£LINE

Parametri in input

- £LINFU - funzione: se blanks assunta TRA - £LINME - metodo: blanks - £LINNC - nome rpg della schiera (10) - £LINTC - tipo schiera (V2-T$SVK) (opzionale ) se non fornito assunto TXT (15) - £LINSC - contenuto della schiera (80 x 300 el.) - riga 1 di schiera da tradurre (obbligatoria) - riga 2 di schiera da tradurre - riga 3 di schiera da tradurre - £LINLD - lingua in cui tradurre: (opzionale) se blanks dedotta dalla tabella B£1. Il parametro viene pulito ad ogni richiamo

Parametri output_n_

- £LINSC - contenuto della schiera tradotto - riga 1 di schiera tradotta - riga 2 di schiera tradotta - riga 3 di schiera tradotta - £LINLU - lunghezza delle costanti (quello che viene effettivamente tradotto)

NOTA 1: la lunghezza delle schiere in input è limitata a 70 caratteri NOTA 2: la £LIN riceve in ingresso una schiera di max 300 elementi lunghi 80. Qui viene simulata una schiera di 3

ESEMPIO DI CHIAMATA

(da inserire in £inizi)

C £INIZI BEGSR

  • Inizializzazione schiere interne in lingua
C ££B£2I IFNE *BLANKS C EXSR £INIZL C ENDIF C ENDSR

  • inizializzazione schiere interne in lingua

C £INIZL BEGSR C MOVEL<nome sch>£LINNC P C MOVEL<tipo sch>£LINTC P C CLEAR£LINSC C MOVEL<schiera> £LINSC C EXSR £LIN C MOVEL£LINSC <schiera> C ENDSR C/COPY QILEGEN,£LIN

Add new attachment

Only authorized users are allowed to upload new attachments.
«