View Attach Info

Add new attachment

Only authorized users are allowed to upload new attachments.

This page (revision-1) was last changed on 22-Jan-2013 14:19 by UnknownAuthor

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version and

At line 1 added 84 lines
%%(display:none)
{{{
WikiUp
}}}
/%
Di seguito un esempio di utilizzo in un programma RPG della /COPY £IQR.
%%quote
| H/COPY QILEGEN,£INIZH
| V*===============================================================
| V* MODIFICHE Ril. T Au Descrizione
| V* gg/mm/aa nn.mm i xx Breve descrizione
| V*===============================================================
| V* OBIETTIVO
| V*
| *===============================================================
| /COPY QILEGEN,£IQ2_PD1
| /COPY QILEGEN,£IQ3_PD1
| /COPY QILEGEN,£IQ2DS
| /COPY QILEGEN,£IQ3DS
| /COPY QILEGEN,£IQRDS
| /COPY QILEGEN,£TABB£1DS
| /COPY QILEGEN,£PDS
| *
| C EVAL £IQROG='CNCLI'
| C CLEAR £IQR2I
| C CLEAR £IQR3I
| * imposto schema libero
| C EVAL £IQRSC='**'
| C EVAL £IQR2I(1)='I/01'
| C EVAL £IQR2I(2)='I/03'
| * imposto filtro libero
| C EVAL £IQRFL='**'
| * solo attivi U/G02
| C CLEAR £IQ3C
| C EVAL £IQR3I(1)='U/G02'
| C EVAL £IQ3CCD='U/G02'
| C EVAL £IQ3COP='EQ'
| C EVAL £IQ3CFU='OAV'
| C EVAL £IQ3CPA='I/02,U/G02'
| C EVAL £IQR3D(1)=£IQ3C
| * inizializzo
| C EVAL £IQRFU='INZ'
| C EVAL £IQRME=*BLANKS
| C EVAL £IQRQR='*FIL'
| C EXSR £IQR
| * valorizzo filtro
| C EVAL £IQR3V(1)='1'
| * seleziono
| C EVAL £IQRFU='SLC'
| C EXSR £IQR
| * scandisco
|1 C DO *HIVAL
| C EVAL £IQRFU='NXT'
| C EXSR £IQR
|2 C IF £IQR35=*ON
| C LEAVE
|2e C ENDIF
| *
| C EVAL $$CODI=£IQROK
| C EVAL $$RAGS=P_£IQ2_EXT_VAL('I/01')
| C EVAL $$INDI=P_£IQ2_EXT_VAL('I/03')
| *
|1e C ENDDO
| *
| C G9MAIN TAG
| C SETON LR
| *---------------------------------------------------------------------
| /COPY QILEGEN,£INZSR
| *---------------------------------------------------------------------
| RD* Routine iniziale
| *---------------------------------------------------------------------
| C £INIZI BEGSR
| *
| C MOVEL *BLANKS $$CODI 15
| C MOVEL *BLANKS $$RAGS 35
| C MOVEL *BLANKS $$INDI 35
| *
| C ENDSR
| /COPY QILEGEN,£IQR
| /COPY QILEGEN,£IQ2_PC1
| /COPY QILEGEN,£IQ3_PC1
/%
----
This page has only one version
«