Novinky

PŘEVOD DAT z DB2 UDB/iSeries (AS/400)

Nabízíme převod datové základny na jiné platformy do databází (ORACLE, MS SQL Server, DB2...)

Hledáme vývojáře JAVA, vývojáře COBOL/iSeries

Podrobnější popis požadavků na JOB.ASSIST.CZ

Workshopy

K většině kurzů z naší nabídky nebo podle Vašich požadavků.

Kurzy na míru

Nabízíme Vám možnost složit si kurz podle Vašich požadavků.

Volná kapacita

Volná programátorská kapacita - zkušení programátoři systému AS/400

Informace a tipy pro vývojáře

Novinky v COBOLu pro V5R4 - konverze do XML

Příkaz XML GENERATE

• uložení do proměnné
• uložení do IFS souboru

Příspěvky našich spolupracovníků

Ing. Vladimír Župka - zajímavé články a informace pro vývojáře

Testování znalostí   

Pointry v CL/400

Verze V5R4 přinesla do Control Language možnost pracovat přímo s pointry podobným způsobem, jak je to zvykem ve vyšších programovacích jazycích. Hlavním přínosem je snadnejší práce se systémovými API.

Nasledujici priklad demonstruje praci s promennymi za pouziti pointru.

0001.00         PGM PARM(&STRING)                                                            081030
0002.00 /* parametr je znakova promenna  v delce 40 - 4 pole po 10-TI*/                      081030
0003.00         DCL &STRING        *CHAR 40                                                  081030
0004.00 /* vystupni retezec znaku z funkce  */                                               081030
0005.00         DCL &STRINGOUT     *CHAR 40                                                  081030
0006.00         DCL &POINTR        *PTR                                                      081030
0007.00 /* lokalni kopie parametru */                                                        081030
0008.00         DCL &ARRAY         *CHAR  40                                                 081030
0009.00 /* ukazatel na polozky retezce */                                                    081030
0010.00         DCL &UKAZATEL      *PTR ADDRESS(&ARRAY)                                      081030
0011.00 /* polozka pole bazovana ukazatelem */                                               081030
0012.00         DCL &POLOZKA       *CHAR  STG(*BASED) LEN(10) BASPTR(&UKAZATEL)              081030
0013.00 /* relativni adresa odpovidajici ukazateli  */                                       081030
0014.00         DCL &RELADR        *UINT                                                     081030
0015.00 /* relativni adresa konce pole  */                                                   081030
0016.00         DCL &KONEC         *UINT                                                     081030
0017.00         DCL &POSDEC        *DEC 5 0                                                  081030
0018.00         CHGVAR &POSDEC 1                                                             081030
0019.00 /* kopie parametru do pracovni promenne protoze parametr je jiz */                   081030
0020.00 /* bazovan systemovym ukazatelem                                */                   081030
0021.00         CHGVAR &ARRAY &STRING                                                        081030
0022.00 /* dosazeni adresy promenne ARRAY do UKAZATELE                  */                   081030
0023.00         CHGVAR &UKAZATEL VALUE(%ADDRESS(&ARRAY))                                     081030
0024.00 /* z UKAZATELE vyjmu relativni adresu promenne ARRAY            */                   081030
0025.00         CHGVAR &RELADR (%OFFSET(&UKAZATEL))                                          081030
0026.00 /* urcim relativni adresu ukazujici na konec ARRAY              */                   081030
0027.00         CHGVAR &KONEC (&RELADR + 40)                                                 081030
0028.00 /* cyklus pro ukladani POLOZEK  */                                                   081030
0029.00         DOWHILE (&RELADR *LT &KONEC)                                                 081030
0030.00         CHGVAR (%SST(&STRINGOUT &POSDEC 10)) &POLOZKA                                081030
0031.00         CHGVAR &POSDEC (&POSDEC + 10)                                                081030
0032.00 /* zvyseni UKAZATELE o delku POLOZKY                            */                   081030
0033.00         CHGVAR (%OFFSET(&UKAZATEL)) +                                                081030
0034.00                (%OFFSET(&UKAZATEL) +10)                                              081030
0035.00 /* ulozim novou relativni adresu na novou polozku               */                   081030
0036.00         CHGVAR &RELADR (%OFFSET(&UKAZATEL))                                          081030
0037.00         ENDDO                                                                        081030
0038.00         DMPCLPGM                                                                     081028
0039.00         ENDPGM                                                                       081028

Informace

Další tipy a novinky pro vývojáře budou průbežně doplňovány.

Zákaznický servis:
Tel.:   +420 281 868 750
Fax:   +420 281 868 751
E-mail:   assist@assist.cz