{"id":2035,"date":"2024-07-12T06:21:30","date_gmt":"2024-07-12T06:21:30","guid":{"rendered":"https:\/\/futureschoolead.com.br\/2026\/?page_id=2035"},"modified":"2024-11-18T15:40:34","modified_gmt":"2024-11-18T15:40:34","slug":"exercicio-pratico-da-linguagem-de-programacao-assembly-on-line","status":"publish","type":"page","link":"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/exercicio-pratico-da-linguagem-de-programacao-assembly-on-line\/","title":{"rendered":"Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly (On-line)"},"content":{"rendered":"\t\t<div data-elementor-type=\"wp-page\" data-elementor-id=\"2035\" class=\"elementor elementor-2035\" data-elementor-settings=\"[]\">\n\t\t\t\t\t\t\t<div class=\"elementor-section-wrap\">\n\t\t\t\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-2e3df449 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"2e3df449\" data-element_type=\"section\" data-settings=\"{&quot;background_background&quot;:&quot;classic&quot;,&quot;sticky&quot;:&quot;top&quot;,&quot;sticky_on&quot;:[&quot;desktop&quot;,&quot;tablet&quot;,&quot;mobile&quot;],&quot;sticky_offset&quot;:0,&quot;sticky_effects_offset&quot;:0}\">\n\t\t\t\t\t\t\t<div class=\"elementor-background-overlay\"><\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-inner-column elementor-element elementor-element-1c80f0b3\" data-id=\"1c80f0b3\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-7e67b521 elementor-widget elementor-widget-image\" data-id=\"7e67b521\" data-element_type=\"widget\" data-widget_type=\"image.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-image\">\n\t\t\t\t\t\t\t\t\t\t\t<a href=\"https:\/\/futureschoolead.com.br\/2026\/#inicio\" rel=\"nofollow\">\n\t\t\t\t\t\t\t<img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"199\" src=\"https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-1024x199.png\" class=\"attachment-large size-large\" alt=\"\" srcset=\"https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-1024x199.png 1024w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-600x116.png 600w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-300x58.png 300w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-768x149.png 768w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada.png 1257w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/>\t\t\t\t\t\t\t\t<\/a>\n\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-inner-column elementor-element elementor-element-4b185405\" data-id=\"4b185405\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-46669302 elementor-nav-menu__align-center elementor-nav-menu--indicator-none elementor-nav-menu--dropdown-tablet elementor-nav-menu__text-align-aside elementor-nav-menu--toggle elementor-nav-menu--burger elementor-widget elementor-widget-nav-menu\" data-id=\"46669302\" data-element_type=\"widget\" data-settings=\"{&quot;layout&quot;:&quot;horizontal&quot;,&quot;toggle&quot;:&quot;burger&quot;}\" data-widget_type=\"nav-menu.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t\t<nav role=\"navigation\" class=\"elementor-nav-menu--main elementor-nav-menu__container elementor-nav-menu--layout-horizontal e--pointer-background e--animation-fade\"><ul id=\"menu-1-46669302\" class=\"elementor-nav-menu\"><li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-26\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/sobre\/\" class=\"elementor-item\">SOBRE N\u00d3S<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-354\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#cursos\" class=\"elementor-item elementor-item-anchor\">CURSOS ONLINE<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-3725\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#diploma\" class=\"elementor-item elementor-item-anchor\">DIPLOMA PROFISSIONAL<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-5572\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/author\/admin\/\" class=\"elementor-item\">BLOG<\/a><\/li>\n<li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-27\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/contact\/\" class=\"elementor-item\">CONTATO<\/a><\/li>\n<\/ul><\/nav>\n\t\t\t\t\t<div class=\"elementor-menu-toggle\" role=\"button\" tabindex=\"0\" aria-label=\"Menu Toggle\" aria-expanded=\"false\">\n\t\t\t<i class=\"eicon-menu-bar\" aria-hidden=\"true\"><\/i>\n\t\t\t<span class=\"elementor-screen-only\">Menu<\/span>\n\t\t<\/div>\n\t\t\t<nav class=\"elementor-nav-menu--dropdown elementor-nav-menu__container\" role=\"navigation\" aria-hidden=\"true\"><ul id=\"menu-2-46669302\" class=\"elementor-nav-menu\"><li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-26\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/sobre\/\" class=\"elementor-item\">SOBRE N\u00d3S<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-354\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#cursos\" class=\"elementor-item elementor-item-anchor\">CURSOS ONLINE<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-3725\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#diploma\" class=\"elementor-item elementor-item-anchor\">DIPLOMA PROFISSIONAL<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-5572\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/author\/admin\/\" class=\"elementor-item\">BLOG<\/a><\/li>\n<li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-27\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/contact\/\" class=\"elementor-item\">CONTATO<\/a><\/li>\n<\/ul><\/nav>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-inner-column elementor-element elementor-element-16a07bef\" data-id=\"16a07bef\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-66df83a0 elementor-align-center elementor-widget elementor-widget-button\" data-id=\"66df83a0\" data-element_type=\"widget\" data-widget_type=\"button.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-button-wrapper\">\n\t\t\t<a href=\"https:\/\/futureschoolead.com.br\/2026\/#inscrever\" class=\"elementor-button-link elementor-button elementor-size-sm\" role=\"button\">\n\t\t\t\t\t\t<span class=\"elementor-button-content-wrapper\">\n\t\t\t\t\t\t<span class=\"elementor-button-text\">Inscreva-se<\/span>\n\t\t<\/span>\n\t\t\t\t\t<\/a>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-2b2c909e elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"2b2c909e\" data-element_type=\"section\" data-settings=\"{&quot;background_background&quot;:&quot;classic&quot;}\">\n\t\t\t\t\t\t\t<div class=\"elementor-background-overlay\"><\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-40d23280\" data-id=\"40d23280\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-523af7ba elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"523af7ba\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-2fb051c6\" data-id=\"2fb051c6\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-3c72155a elementor-widget elementor-widget-heading\" data-id=\"3c72155a\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/\">Curso de Assembly>><\/a><\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-7724b3e3\" data-id=\"7724b3e3\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-63bd34b5 elementor-view-default elementor-widget elementor-widget-icon\" data-id=\"63bd34b5\" data-element_type=\"widget\" data-widget_type=\"icon.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-icon-wrapper\">\n\t\t\t<a class=\"elementor-icon\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/\">\n\t\t\t<i aria-hidden=\"true\" class=\"fas fa-history\"><\/i>\t\t\t<\/a>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-241ba4dc elementor-widget elementor-widget-heading\" data-id=\"241ba4dc\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/\">volte<\/a><\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-6359aa27 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"6359aa27\" data-element_type=\"section\" data-settings=\"{&quot;background_background&quot;:&quot;classic&quot;}\">\n\t\t\t\t\t\t\t<div class=\"elementor-background-overlay\"><\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-6416b2e9\" data-id=\"6416b2e9\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-348d1d95 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"348d1d95\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-7cad5ff7\" data-id=\"7cad5ff7\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-22bec5b9 elementor-widget elementor-widget-heading\" data-id=\"22bec5b9\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\">Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly (On-line)<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-52a43700 elementor-widget elementor-widget-heading\" data-id=\"52a43700\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\"> Nesta aula voc\u00ea ter\u00e1 conceitos da linguagem Assembly com a elabora\u00e7\u00e3o de um sistema de cadastro(On-line). <\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-58dc7e4 elementor-widget elementor-widget-code-highlight\" data-id=\"58dc7e4\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  PROGRAMA......: PGMENU1 - LINGUAGEM ASSEMBLY (ON-LINE)        *\r\n*  MAPA..........: MAPASM  - LINGUAGEM ASSEMBLY                  *\r\n*  TRANSACAO.....: MEN1                                          *\r\n*  DATA..........: 02\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  MENU DE OPCOES                               *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\n         PRINT NOGEN\r\nDFHEISTG DSECT\r\n*\r\nR0       EQU   0\r\nR1       EQU   1\r\nR2       EQU   2\r\nR3       EQU   3\r\nR4       EQU   4\r\nR5       EQU   5\r\nR6       EQU   6\r\nR7       EQU   7\r\nR8       EQU   8\r\nR9       EQU   9\r\nR10      EQU   10\r\nR11      EQU   11\r\nR12      EQU   12\r\nR13      EQU   13\r\nR14      EQU   14\r\nR15      EQU   15\r\n*\r\nDOUBLE   DS    D          PARA DESCOMPACTAR EIBTIME\r\n*\r\nWS_OPCAO DS    CL1\r\nMENSA    DS    CL20\r\nTRANS    DS    CL4\r\nAUXCICS  DS    CL8\r\nAUXTIME  DS    PL8\r\nDDMMAAAA DS    CL10\r\nAADDD    DS    CL6\r\nDATAJUL  DS    PL3\r\nAUXHORA  DS    CL8\r\n*\r\nCOMAREA  DS CL1\r\nOPCAO    DS CL1\r\n*\r\n         COPY  DFHBMSCA\r\n         COPY  DFHAID\r\n         COPY  MAPASM\r\n         SPACE\r\n*--------------------------------------\r\n*    INICIO DO PROGRAMA\r\n*--------------------------------------\r\nPGMENU1  DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11\r\nPGMENU1  AMODE 31\r\nPGMENU1  RMODE ANY\r\n*     MAPASMI    MAPASMO\r\nINICIO   EQU   *\r\n         MVC   TRANS,=C'MEN1'\r\n         MVI   OPCAOO,C'0'\r\n         MVC   MENS2O(60),=CL60' '     PREENCHE COM BRANCOS\r\n         MVC   MENSAO(60),=CL60' '\r\n         CLC   EIBCALEN,=H'0'          PRIMEIRA VEZ.\r\n         BNE   RETORNO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETRAN\r\n*\r\n*--------------------------------------\r\n*        ROTINA PARA PEGAR DATA E HORA\r\n*--------------------------------------\r\nPEGDATA  EQU   *\r\n         EXEC  CICS ASKTIME ABSTIME(AUXTIME) NOHANDLE\r\n*\r\n         EXEC  CICS FORMATTIME                                         X\r\n                    ABSTIME (AUXTIME)                                  X\r\n                    DDMMYYYY (DDMMAAAA)                                X\r\n                    NOHANDLE\r\n*\r\n         MVI   DATA1A,X'61'           DFHBMPRF\r\n         MVI   TRANSA,X'61'\r\n         MVI   HORAA,X'61'\r\n         MVI   TERMA,X'61'\r\n         MVI   PROGMA,X'61'\r\n*\r\n         MVC   DATA1O(2),DDMMAAAA\r\n         MVI   DATA1O+2,C'\/'\r\n         MVC   DATA1O+3(2),DDMMAAAA+2\r\n         MVI   DATA1O+5,C'\/'\r\n         MVC   DATA1O+6(4),DDMMAAAA+4\r\n         UNPK  DOUBLE,EIBTIME        HORA\r\n         MVC   HORAO(2),DOUBLE+2\r\n         MVI   HORAO+2,C':'\r\n         MVC   HORAO+3(2),DOUBLE+4\r\n         MVC   PROGMO,=C'PGMENU1 '   CODIGO DO PROGRAMA\r\n         MVC   TRANSO,=C'MEN1'       CODIGO DA TRANSACAO\r\n         MVC   TERMO,EIBTRMID        TERMINAL\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*          ROTINA PARA ENVIAR TELA\r\n*--------------------------------------\r\nENVTELA  EQU   *\r\n         MVC   MENSAO(60),=CL60' '       BRANCOS\r\n         MVC   MENSAO(31),=C'ESCOLHA UMA OPCAO E TECLE ENTER'\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAPASM')                                       X\r\n               MAP    ('MAPASM')                                       X\r\n               FROM (MAPASMO)                                          X\r\n               ERASE\r\n         BR    R7\r\n*--------------------------------------\r\n*        ROTINA DE RETORNO\r\n*--------------------------------------\r\nRETORNO  EQU   *\r\n*\r\n         EXEC  CICS HANDLE AID                                         X\r\n               PF3(RETRAN)                                             X\r\n               CLEAR(RETRAN)\r\n*\r\n*        L     R6,DFHEICAP      CARREGA COMMAREA\r\n*        MVC   COMAREA,0(R6)\r\n*\r\n         BAL   R7,RECTELA\r\n         B     TRATOPC\r\n*\r\n*--------------------------------------\r\n*        ROTINA RECEBE TELA\r\n*--------------------------------------\r\nRECTELA  EQU   *\r\n*\r\n         CLC   EIBAID,DFHCLEAR\r\n         BE    ENCERRA\r\n*\r\n         EXEC  CICS RECEIVE                                            X\r\n               MAP('MAPASM')                                           X\r\n               MAPSET('MAPASM')                                        X\r\n               INTO (MAPASMI)                                          X\r\n               NOHANDLE\r\n*\r\n         BR    R7\r\n*\r\nENCERRA  EQU   *\r\n         MVC   MENSAO(60),=CL60' '\r\n         MVC   MENSAO(20),=C'PROGRAMA ENCERRADO  '\r\n         EXEC  CICS SEND FROM (MENSAO)\r\n\r\n         EXEC  CICS RETURN\r\n*\r\n*--------------------------------------\r\n*        TRATA OPCAO\r\n*--------------------------------------\r\nTRATOPC  EQU   *\r\n         CLC   OPCAOI,C'0'\r\n*        CLI   OPCAOI,X'F0'\r\n         BH    VEROPC\r\n         B     RETRAN\r\n*\r\n*--------------------------------------\r\n*        VEREFICA OPCAO\r\n*--------------------------------------\r\nVEROPC   EQU   *\r\n         MVC   COMAREA,OPCAOI\r\n*\r\n         CLI   OPCAOI,X'F1'       INCLUSAO\r\n         BE    VAIOPC1\r\n         CLI   OPCAOI,X'F2'       ALTERACAO\r\n         BE    VAIOPC2\r\n         CLI   OPCAOI,X'F3'       CONSULTA\r\n         BE    VAIOPC3\r\n         CLI   OPCAOI,X'F4'       EXCLUSAO\r\n         BE    VAIOPC4\r\n         CLI   OPCAOI,X'F5'       RELATORIO TELA\r\n         BE    VAIOPC5\r\n         CLI   OPCAOI,X'F6'       ENCERRA PGM\r\n         BE    VAIOPC6\r\n         BNE   OPCINVL            OPCAO INVALIDA\r\nVAIOPC1  EQU   *\r\n         EXEC  CICS XCTL PROGRAM('PGINCL1')\r\n*\r\nVAIOPC2  EQU   *\r\n         EXEC  CICS XCTL PROGRAM('PGALTE1')\r\n*\r\nVAIOPC3  EQU   *\r\n         EXEC  CICS XCTL PROGRAM('PGCONS1')\r\n*\r\nVAIOPC4  EQU   *\r\n         EXEC  CICS XCTL PROGRAM('PGEXCL1')\r\n*\r\nVAIOPC5  EQU   *\r\n         B     OPCINVL\r\n*        EXEC  CICS XCTL PROGRAM('PGRELA1')\r\n*\r\nVAIOPC6  EQU   *\r\n         MVC   MENSA(20),=CL20'PROGAMA ENCERRADO   '\r\n         EXEC  CICS SEND                                               X\r\n               FROM(MENSA)                                             X\r\n               ERASE\r\n         EXEC  CICS RETURN\r\n*--------------------------------------\r\n*         OPCAO INVALIDA (RETORNA)\r\n*--------------------------------------\r\nOPCINVL  EQU   *\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         MVC   MENS2O(60),=CL60' '\r\n         MVC   MENS2O(14),=C'OPCAO INVALIDA'\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAPASM')                                       X\r\n               MAP    ('MAPASM')                                       X\r\n               FROM (MAPASMO)                                          X\r\n               ERASE\r\n         B     RETRAN\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE RETORNO TRANSACAO\r\n*--------------------------------------\r\nRETRAN   EQU   *\r\n         EXEC  CICS RETURN                                             X\r\n               TRANSID('MEN1')                                         X\r\n               LENGTH (L'COMAREA)                                      X\r\n               COMMAREA(COMAREA) NOHANDLE\r\n*\r\n         END   PGMENU1<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-4cb7430 elementor-widget elementor-widget-code-highlight\" data-id=\"4cb7430\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  MAPA..........: MAPASM  - LINGUAGEM ASSEMBLY                  *\r\n*  DATA..........: 05\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  MENU DE OPCOES                               *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\nMAPASM   DFHMSD TYPE=MAP,                                              X\r\n               TIOAPFX=YES,                                            X\r\n               LANG=ASM,                                               X\r\n               MODE=INOUT,                                             X\r\n               CTRL=(FREEKB,FRSET)\r\nMAPASM   DFHMDI SIZE=(24,80),                                          X\r\n               LINE=1,                                                 X\r\n               COLUMN=1\r\nDATA1    DFHMDF POS=(1,1),                                             X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(1,25),                                            X\r\n               LENGTH=13,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='FUTURE SCHOOL'\r\nHORA     DFHMDF POS=(1,71),                                            X\r\n               LENGTH=8,                                               X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(2,1),                                             X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='TERMINAL:'\r\nTERM     DFHMDF POS=(2,12),                                            X\r\n               LENGTH=4,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='    '\r\n         DFHMDF POS=(2,25),                                            X\r\n               LENGTH=13,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='CURSO DE CICS'\r\n         DFHMDF POS=(2,60),                                            X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='TRANSACAO:'\r\nTRANS    DFHMDF POS=(2,70),                                            X\r\n               LENGTH=4,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='    '\r\n         DFHMDF POS=(03,02),LENGTH=06,ATTRB=PROT,                      X\r\n               INITIAL='CPROG:'\r\nPROGM    DFHMDF POS=(03,08),LENGTH=08,ATTRB=PROT\r\n         DFHMDF POS=(5,25),                                            X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='1-INCLUSAO'\r\n         DFHMDF POS=(6,25),                                            X\r\n               LENGTH=11,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='2-ALTERACAO'\r\n         DFHMDF POS=(7,25),                                            X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='3-CONSULTA'\r\n         DFHMDF POS=(8,25),                                            X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='4-EXCLUSAO'\r\n         DFHMDF POS=(9,25),                                            X\r\n               LENGTH=11,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='5-RELATORIO'\r\n         DFHMDF POS=(10,25),                                           X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='6-FINALIZA'\r\n         DFHMDF POS=(13,25),                                           X\r\n               LENGTH=15,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='QUAL SUA OPCAO:'\r\nOPCAO    DFHMDF POS=(13,42),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=(NUM,UNPROT,IC),                                  X\r\n               INITIAL='0'\r\n         DFHMDF POS=(13,44),                                           X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(23,1),                                            X\r\n               LENGTH=9,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='MENSAGEM:'\r\nMENSA    DFHMDF POS=(23,11),                                           X\r\n               LENGTH=60,                                              X\r\n               ATTRB=PROT\r\nMENS2    DFHMDF POS=(24,11),                                           X\r\n               LENGTH=60,                                              X\r\n               ATTRB=(ASKIP,BRT)\r\n         DFHMSD TYPE=FINAL\r\n         END<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-2d1c37f elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"2d1c37f\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/YlawZ71I5Tw&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-d488199 elementor-widget elementor-widget-code-highlight\" data-id=\"d488199\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  PROGRAMA......: PGINCL1 - LINGUAGEM ASSEMBLY (ON-LINE)        *\r\n*  MAPA..........: MAP3ASM - LINGUAGEM ASSEMBLY                  *\r\n*  TRANSACAO.....: INC1                                          *\r\n*  ARQUIVO...VSAM: CADCONS - COM TAMANHO DE 121 POSICOES         *\r\n*                            CHAVE NAS PRIMEIRAS 5 POSICOES      *\r\n*  DATA..........: 05\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  INCLUSAO DE CODIGOS CADASTRAIS               *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\n         PRINT NOGEN\r\nDFHEISTG DSECT\r\n*\r\nR0       EQU   0\r\nR1       EQU   1\r\nR2       EQU   2\r\nR3       EQU   3\r\nR4       EQU   4\r\nR5       EQU   5\r\nR6       EQU   6\r\nR7       EQU   7\r\nR8       EQU   8\r\nR9       EQU   9\r\nR10      EQU   10\r\nR11      EQU   11\r\nR12      EQU   12\r\nR13      EQU   13\r\nR14      EQU   14\r\nR15      EQU   15\r\n*\r\n*         AREA DE COMUNICACAO (COMAREA)\r\n*\r\nCOMAREA  DS 0CL10\r\nCOM_FASE DS CL5\r\nCOM_CODI DS CL5\r\n*\r\n         SPACE\r\n*\r\nREGISTRO DS CL121\r\nCODIREG  DS CL5\r\nRAZAO    DS CL30\r\nENDER    DS CL50\r\nTELEF    DS CL16\r\nCONTATO  DS CL20\r\n*\r\n*        LAYOUT DO CADASTRO COM 121 POSICOES\r\n*\r\nWKS_CADCONS DS CL121\r\nWKS_CODIGO  DS CL05\r\nWKS_RAZAO   DS CL30\r\nWKS_ENDER   DS CL50\r\nWKS_TELEF   DS CL16\r\nWKS_CONTATO DS CL20\r\n*\r\n*        AREAS AUXILIARES\r\n*\r\nRESPONSE DS    1F\r\nQTRANS   DS    CL8\r\nRESP     DS    XL2\r\nDOUBLE   DS    D\r\nTAMANHO  DS    H\r\nPOSIS    DS    XL2\r\nMENSA    DS    CL20\r\nAUXCICS  DS    CL8\r\nAUXTIME  DS    PL8\r\nDDMMAAAA DS    CL10\r\nAADDD    DS    CL6\r\nDATAJUL  DS    PL3\r\nAUXHORA  DS    CL8\r\nRBA      DS    F\r\n*\r\n         COPY  DFHBMSCA\r\n         COPY  DFHAID\r\n         COPY  MAP3ASM\r\n         SPACE\r\n*\r\n*--------------------------------------\r\n*    INICIO DO PROGRAMA\r\n*--------------------------------------\r\nPGINCL1  DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11\r\nPGINCL1  AMODE 31\r\nPGINCL1  RMODE ANY\r\n*\r\nINICIO   EQU   *\r\n*\r\n         EXEC  CICS ASSIGN  APPLID (AUXCICS) NOHANDLE\r\n         MVC   TPOPERGO(09),=C'INCLUSAO '\r\n         CLC   EIBCALEN,=H'0'          PRIMEIRA VEZ.\r\n         BNE   RETORNO\r\n         XC    MAP3ASMO(MAP3ASMI-MAP3ASMO),MAP3ASMO CLEAR MAP\r\n         BAL   R7,PEGDATA\r\n         MVI   DATAGA,X'61'           DFHBMPRF\r\n         MVC   TRANSGO(4),=C'INC1'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGINCL1 '\r\n         MVI   PROGGA,X'61'\r\n         MVI   CODIGA,X'C1'\r\n         MVC   CODIGO(5),X'F0'\r\n*        MVC   CODIREG(5),CODIGO\r\n         MVI   TPCICGA,X'61'\r\n         MVC   RAZAOGO(30),=CL30' '\r\n         MVC   ENDERGO(50),=CL50' '\r\n         MVI   ENDERGA,X'61'\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   TELEFGO(16),X'F0'\r\n         MVI   TELEFGA,X'61'\r\n         MVC   CONTAGO(20),=CL20' '\r\n         MVI   CONTAGA,X'61'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVI   TPCICGA,X'61'\r\n         MVC   TPOPERGO(9),=C'INCLUSAO '\r\n         MVC   TPOPERGA,X'61'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   OUTROGO(11),=CL11' '\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   COM_FASE(5),=C'FASE1'\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*        ROTINA PARA PEGAR DATA E HORA\r\n*--------------------------------------\r\nPEGDATA  EQU   *\r\n         EXEC  CICS ASKTIME ABSTIME(AUXTIME) NOHANDLE\r\n*\r\n         EXEC  CICS FORMATTIME                                         X\r\n                    ABSTIME (AUXTIME)                                  X\r\n                    DDMMYYYY (DDMMAAAA)                                X\r\n                    NOHANDLE\r\n*\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGINCL1 '\r\n         MVC   TRANSGO(4),=C'INC1'\r\n         MVC   TPOPERGA,X'F8'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVC   DATAGO(2),DDMMAAAA\r\n         MVI   DATAGO+2,C'\/'\r\n         MVC   DATAGO+3(2),DDMMAAAA+2\r\n         MVI   DATAGO+5,C'\/'\r\n         MVC   DATAGO+6(4),DDMMAAAA+4\r\n         UNPK  DOUBLE,EIBTIME\r\n         MVC   HORAGO(2),DOUBLE+2\r\n         MVI   HORAGO+2,C':'\r\n         MVC   HORAGO+3(2),DOUBLE+4\r\n         MVC   TPOPERGO(9),=C'INCLUSAO '\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*          ROTINA PARA ENVIAR TELA\r\n*--------------------------------------\r\nENVTELA  EQU   *\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAP3ASM') NOHANDLE                             X\r\n               MAP    ('MAP3ASM')                                      X\r\n               FROM (MAP3ASMO)                                         X\r\n               ERASE                                                   X\r\n               CURSOR(POSIS)                                           X\r\n               FREEKB\r\n*\r\n         BR    R7\r\n*--------------------------------------\r\n*        ROTINA DE RETORNO\r\n*--------------------------------------\r\nRETORNO  EQU   *\r\n*\r\n         EXEC  CICS HANDLE AID                                         X\r\n               PF3(VAIMENU)                                            X\r\n               CLEAR(VAIMENU)\r\n*\r\n         L     R6,DFHEICAP      CARREGA COMMAREA\r\n         MVC   COMAREA,0(R6)\r\n*\r\n         BAL   R7,RECTELA\r\n         B     TRAFASE\r\n*\r\n*--------------------------------------\r\n*        RECEBE TELA\r\n*--------------------------------------\r\nRECTELA  EQU   *\r\n*\r\n         EXEC  CICS RECEIVE                                            X\r\n               MAP('MAP3ASM')                                          X\r\n               MAPSET('MAP3ASM')                                       X\r\n               INTO (MAP3ASMI)                                         X\r\n               NOHANDLE\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*      ROTINA VOLTA PARA MENU\r\n*--------------------------------------\r\nVAIMENU  EQU   *\r\n*\r\n         EXEC CICS XCTL PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA TRATA FASE\r\n*--------------------------------------\r\nTRAFASE  EQU   *\r\n*\r\n         CLC   COM_FASE,=C'FASE1'\r\n         BE    VECODIGO\r\n         CLC   COM_FASE,=C'FASE2'\r\n         BE    CONSISTE\r\n         CLC   COM_FASE,=C'FASE3'\r\n         BE    GRAVACAO\r\n         CLC   COM_FASE,=C'FASE4'\r\n         BE    CONTPROC\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n* ROTINA QUE VERIFICA SE CODIGO VALIDO\r\n*--------------------------------------\r\nVECODIGO EQU   *\r\n*\r\n         CLC   CODIGI(5),X'F0'     COMPARA COM ZERO\r\n         BE    CDINVAL           CODIGO INVALIDO\r\n         MVC   COM_CODI(5),CODIGI\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         B     LEITURA\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO INVALIDO\r\n*--------------------------------------\r\nCDINVAL  EQU   *\r\n*        MVI   MENSAGA,X'F8'\r\n         MVI   MENSAGA,X'F4'\r\n         MVC   MENSAGO(60),=CL60' '   MOVE BRANCOS\r\n         MVC   MENSAGO(15),=CL15'CODIGO INVALIDO'\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   CODIGA,DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN         RETORNA A TRANSACAO\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE LEITURA\r\n*--------------------------------------\r\nLEITURA  EQU   *\r\n         MVC   WKS_CODIGO(5),CODIGI\r\n         MVC   COM_CODI(5),CODIGI\r\n         MVC   CODIREG(5),CODIGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC  CICS READ                                               X\r\n               DATASET('CADCONS')                                      X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               INTO(WKS_CADCONS)                                       X\r\n               LENGTH (TAMANHO)                                        X\r\n               RESP(RESPONSE)\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   ACEITA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   MENSAGO(31),=C'CODIGO EXISTENTE, TECLE ENTER  '\r\n*\r\n         MVC   CODIGO(05),WKS_CADCONS\r\n         MVC   RAZAOGO(30),WKS_CADCONS+5\r\n         MVC   ENDERGO(50),WKS_CADCONS+35\r\n         MVC   TELEFGO(16),WKS_CADCONS+85\r\n         MVC   CONTAGO(20),WKS_CADCONS+101\r\n*\r\n         MVC   OUTROGO(11),=CL11' '\r\n         MVC   OUTROGO(11),=C'JA EX FASE1'\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO ACEITO\r\n*--------------------------------------\r\nACEITA   EQU   *\r\n         MVC   COM_FASE(5),=C'FASE2'\r\n         MVC   POSIS,=H'0745'   POSICIONA NO PRIMEIRO BYTE DO RAZAO\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMFSE\r\n         MVI   ENDERGA,DFHBMFSE\r\n         MVI   TELEFGA,DFHBMFSE\r\n         MVI   CONTAGA,DFHBMFSE\r\n         MVI   TCONFGA,DFHBMFSE\r\n         MVC   OUTROGO(11),=C'ACEIT FASE2'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*---------------------------------------\r\n*      ROTINA DE CONSISTENCIA DE CAMPOS\r\n*---------------------------------------\r\nCONSISTE EQU   *\r\n*\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMPRF\r\n         MVI   ENDERGA,DFHBMPRF\r\n         MVI   TELEFGA,DFHBMPRF\r\n         MVI   CONTAGA,DFHBMPRF\r\n\r\nVERAZAO  EQU   *\r\n         CLC   RAZAOGI,=CL30' '\r\n         BNE   PROTRAZ\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   MENSAGO(19),=C'NOME RAZAO INVALIDO'\r\n         MVI   RAZAOGA,DFHBMFSE\r\n         MVC   POSIS,=H'0745'   POSICIONA NO PRIMEIRO BYTE DO RAZAO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTRAZ  EQU   *\r\n         MVI   RAZAOGA,DFHBMPRF\r\n*\r\nVEENDER  EQU   *\r\n         CLC   ENDERGI,=CL50' '\r\n         BNE   PROTEND\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'ENDERECO INVALIDO'\r\n         MVI   ENDERGA,DFHBMFSE\r\n         MVC   POSIS,=H'0905'   POSICIONA NO PRIMEIRO BYTE DO ENDER\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\nPROTEND  EQU   *\r\n         MVI   ENDERGA,DFHBMPRF\r\n*\r\nVETELEF  EQU   *\r\n         CLC   TELEFGI,=CL16' '\r\n         BNE   PROTTEL\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'TELEFONE INVALIDO'\r\n         MVC   POSIS,=H'1065'  POSICIONA NO PRIMEIRO BYTE DO FONE\r\n         MVI   TELEFGA,DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTTEL  EQU   *\r\n         MVI   TELEFGA,DFHBMPRF\r\n*\r\nVECONTA  EQU   *\r\n         CLC   CONTAGI,=CL20' '\r\n         BNE   PROTCTA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'CONTATO  INVALIDO'\r\n         MVI   CONTAGA,DFHBMFSE\r\n         MVC   POSIS,=H'1225'   POSICIONA NO PRIMEIRO BYTE DO CONTATO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTCTA  EQU   *\r\n         MVI   CONTAGA,DFHBMPRF\r\n*\r\nVAIFASE3 EQU   *\r\n*\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMPRF\r\n         MVI   ENDERGA,DFHBMPRF\r\n         MVI   TELEFGA,DFHBMPRF\r\n         MVI   CONTAGA,DFHBMPRF\r\n         MVI   TCONFGA,DFHBMFSE\r\n         MVC   POSIS,=H'1696'   POSICIONA NO CONFIRMA\r\n         MVC   TDCONFGO(12),=C'CONFIRMA S\/N'\r\n         MVC   COM_FASE(5),=C'FASE3'\r\n         MVC   OUTROGO(11),=C'ACEIT FASE3'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*---------------------------------------\r\n*       ROTINA CONFIRMA GRAVACAO\r\n*---------------------------------------\r\nGRAVACAO EQU   *\r\n         CLI   TCONFGI,C'S'      CONFIRMA INCLUSAO\r\n         BNE   VOLTMENU\r\n*\r\n         MVC   WKS_CODIGO,COM_CODI\r\n         MVC   WKS_CADCONS(05),CODIGI\r\n         MVC   WKS_CADCONS(05),COM_CODI\r\n         MVC   WKS_CADCONS+5(30),RAZAOGI\r\n         MVC   WKS_CADCONS+35(50),ENDERGI\r\n         MVC   WKS_CADCONS+85(16),TELEFGI\r\n         MVC   WKS_CADCONS+101(20),CONTAGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC CICS WRITE                                               X\r\n              DATASET ('CADCONS')                                      X\r\n              RIDFLD(WKS_CODIGO)                                       X\r\n              FROM (WKS_CADCONS)                                       X\r\n              LENGTH(TAMANHO)                                          X\r\n              RESP(RESPONSE)\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   ERROINCL\r\n         MVC   CODIGA,X'61'     DFHBMPRF\r\n         MVC   RAZAOGA,X'61'\r\n         MVC   ENDERGA,X'61'\r\n         MVC   TELEFGA,X'61'\r\n         MVC   CONTAGA,X'61'\r\n         MVC   TCONFGA,X'C1'    DFHBMFSE\r\n         MVC   TDCONFGO(14),=C'NOVA INCLUSAO:'\r\n         MVC   POSIS,=H'1696'   POSICIONA NO CONFIRMA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(21),=C'INCLUSAO COM SUSCESSO'\r\n         MVC   TCONFGI,C' '\r\n         MVC   COM_FASE(5),=C'FASE4'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nERROINCL EQU   *\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(16),=C'ERRO NA INCLUSAO'\r\n         MVC   COM_FASE(5),=C'     '\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*        EXEC CICS XCTL PROGRAM('PGMENU1')\r\n*\r\n*---------------------------------------------\r\n*       ROTINA PARA CONTINUA PROCESSO INCLUSAO\r\n*---------------------------------------------\r\nCONTPROC EQU   *\r\n         CLI   TCONFGI,C'S'\r\n         BNE   VOLTMENU\r\n         EXEC CICS XCTL  PROGRAM('PGINCL1')\r\nVOLTMENU EQU   *\r\n         MVC   COM_FASE(5),=C'     '\r\n         EXEC CICS XCTL  PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE RETORNO TRANSACAO\r\n*--------------------------------------\r\nRETTRAN  EQU   *\r\n*\r\n         EXEC  CICS RETURN                                             X\r\n               TRANSID('INC1')                                         X\r\n               COMMAREA(COMAREA) NOHANDLE                              X\r\n               LENGTH (L'COMAREA)\r\n*\r\n         END   PGINCL1<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-ff021e2 elementor-widget elementor-widget-code-highlight\" data-id=\"ff021e2\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  MAPA..........: MAP3ASM - LINGUAGEM ASSEMBLY                  *\r\n*  DATA..........: 05\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  DADOS CADASTRAIS                             *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\nMAP3ASM  DFHMSD TYPE=MAP,                                              X\r\n               TIOAPFX=YES,                                            X\r\n               LANG=ASM,                                               X\r\n               MODE=INOUT,                                             X\r\n               CTRL=(FREEKB,FRSET)\r\nMAP3ASM  DFHMDI SIZE=(24,80),                                          X\r\n               LINE=1,                                                 X\r\n               COLUMN=1\r\nDATAG    DFHMDF POS=(1,1),                                             X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='          '\r\n         DFHMDF POS=(1,25),                                            X\r\n               LENGTH=13,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='FUTURE SCHOOL'\r\nHORAG    DFHMDF POS=(1,71),                                            X\r\n               LENGTH=8,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='        '\r\n         DFHMDF POS=(2,1),                                             X\r\n               LENGTH=9,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='TERMINAL:'\r\nTERMG    DFHMDF POS=(2,11),                                            X\r\n               LENGTH=4,                                               X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(2,25),                                            X\r\n               LENGTH=13,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='CURSO DE CICS'\r\n         DFHMDF POS=(2,60),                                            X\r\n               LENGTH=10,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='TRANSACAO:'\r\nTRANSG   DFHMDF POS=(2,70),                                            X\r\n               LENGTH=4,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='0000'\r\n         DFHMDF POS=(03,02),LENGTH=06,ATTRB=PROT,                      X\r\n               INITIAL='CPROG:'\r\nPROGG    DFHMDF POS=(03,08),LENGTH=08,ATTRB=PROT,                      X\r\n               INITIAL='        '\r\n         DFHMDF POS=(03,60),LENGTH=07,ATTRB=PROT,                      X\r\n               INITIAL='SICSG:'\r\nTPCICG   DFHMDF POS=(03,67),LENGTH=08,ATTRB=PROT,                      X\r\n               INITIAL='        '\r\n         DFHMDF POS=(06,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='OPERACAO.....:'\r\nTPOPERG  DFHMDF POS=(06,25),                                           X\r\n               LENGTH=09,                                              X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(08,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='CODIGO.......:'\r\nCODIG    DFHMDF POS=(08,25),                                           X\r\n               LENGTH=05,                                              X\r\n               ATTRB=(UNPROT,NUM,IC),                                  X\r\n               INITIAL='00000'\r\n         DFHMDF POS=(08,31),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(10,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='RAZAO SOCIAL.:'\r\nRAZAOG   DFHMDF POS=(10,25),                                           X\r\n               LENGTH=30,JUSTIFY=(LEFT,BLANK),                         X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='                              '\r\n         DFHMDF POS=(10,56),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(12,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='ENDERECO.....:'\r\nENDERG   DFHMDF POS=(12,25),                                           X\r\n               LENGTH=50,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='                                               X\r\n                 '\r\n         DFHMDF POS=(12,76),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(14,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='TELEFONE.....:'\r\nTELEFG   DFHMDF POS=(14,25),                                           X\r\n               LENGTH=16,                                              X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(14,42),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(16,10),                                           X\r\n               LENGTH=14,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='CONTATO......:'\r\nCONTAG   DFHMDF POS=(16,25),                                           X\r\n               LENGTH=20,                                              X\r\n               ATTRB=PROT\r\n         DFHMDF POS=(16,46),                                           X\r\n               LENGTH=1,                                               X\r\n               ATTRB=ASKIP\r\n         DFHMDF POS=(21,02),                                           X\r\n               LENGTH=20,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='F3 - RETORNA AO MENU'\r\n         DFHMDF POS=(21,28),                                           X\r\n               LENGTH=29,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='DIGITE O CODIGO E TECLE ENTER'\r\nTDCONFG  DFHMDF POS=(22,2),                                            X\r\n               LENGTH=13,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='              '\r\nTCONFG   DFHMDF POS=(22,16),                                           X\r\n               LENGTH=1,                                               X\r\n               INITIAL=' ',                                            X\r\n               ATTRB=(UNPROT,IC)\r\n         DFHMDF POS=(22,18),                                           X\r\n               ATTRB=ASKIP\r\nOUTROG   DFHMDF POS=(22,28),                                           X\r\n               LENGTH=11,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='           '\r\nVERFASE  DFHMDF POS=(23,28),                                           X\r\n               LENGTH=05,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='     '\r\n         DFHMDF POS=(24,1),                                            X\r\n               LENGTH=9,                                               X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='MENSAGEM:'\r\nMENSAG   DFHMDF POS=(24,11),                                           X\r\n               LENGTH=60,                                              X\r\n               ATTRB=PROT,                                             X\r\n               INITIAL='                                               X\r\n                           '\r\n         DFHMSD TYPE=FINAL\r\n         END<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-1e1978f5\" data-id=\"1e1978f5\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-3144c1fb elementor-widget elementor-widget-text-editor\" data-id=\"3144c1fb\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-57c764b5 elementor-widget elementor-widget-text-editor\" data-id=\"57c764b5\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-33d85222 elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"33d85222\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/LdRILEGzaNU&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-4c73792 elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"4c73792\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/L4hYnUCsLMM&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-6650da3 elementor-widget elementor-widget-code-highlight\" data-id=\"6650da3\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  PROGRAMA......: PGALTE1 - LINGUAGEM ASSEMBLY (ON-LINE)        *\r\n*  MAPA..........: MAP3ASM - LINGUAGEM ASSEMBLY                  *\r\n*  TRANSACAO.....: ALT1                                          *\r\n*  ARQUIVO...VSAM: CADCONS - COM TAMANHO DE 121 POSICOES         *\r\n*                            CHAVE NAS PRIMEIRAS 5 POSICOES      *\r\n*  DATA..........: 05\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  ALTERACAO DE DADOS CADASTRAIS                *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n         PRINT NOGEN\r\nDFHEISTG DSECT\r\n*\r\nR0       EQU   0\r\nR1       EQU   1\r\nR2       EQU   2\r\nR3       EQU   3\r\nR4       EQU   4\r\nR5       EQU   5\r\nR6       EQU   6\r\nR7       EQU   7\r\nR8       EQU   8\r\nR9       EQU   9\r\nR10      EQU   10\r\nR11      EQU   11\r\nR12      EQU   12\r\nR13      EQU   13\r\nR14      EQU   14\r\nR15      EQU   15\r\n*\r\n*         AREA DE COMUNICACAO (COMAREA)\r\n*\r\nCOMAREA  DS 0CL10\r\nCOM_FASE DS CL5\r\nCOM_CODI DS CL5\r\n*\r\n         SPACE\r\n*\r\nREGISTRO DS CL121\r\nCODIREG  DS CL5\r\nRAZAO    DS CL30\r\nENDER    DS CL50\r\nTELEF    DS CL16\r\nCONTATO  DS CL20\r\n*\r\n*        LAYOUT DO CADASTRO COM 121 POSICOES\r\n*\r\nWKS_CADCONS DS CL121\r\nWKS_CODIGO  DS CL05\r\nWKS_RAZAO   DS CL30\r\nWKS_ENDER   DS CL50\r\nWKS_TELEF   DS CL16\r\nWKS_CONTATO DS CL20\r\n*\r\n*        AREAS AUXILIARES\r\n*\r\nRESPONSE DS    1F\r\nQTRANS   DS    CL8\r\nRESP     DS    XL2\r\nDOUBLE   DS    D\r\nTAMANHO  DS    H\r\nPOSIS    DS    XL2\r\nMENSA    DS    CL20\r\nAUXCICS  DS    CL8\r\nAUXTIME  DS    PL8\r\nDDMMAAAA DS    CL10\r\nAADDD    DS    CL6\r\nDATAJUL  DS    PL3\r\nAUXHORA  DS    CL8\r\nRBA      DS    F\r\n*\r\n         COPY  DFHBMSCA\r\n         COPY  DFHAID\r\n         COPY  MAP3ASM\r\n         SPACE\r\n*\r\n*--------------------------------------\r\n*    INICIO DO PROGRAMA\r\n*--------------------------------------\r\nPGALTE1  DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11\r\nPGALTE1  AMODE 31\r\nPGALTE1  RMODE ANY\r\n*\r\nINICIO   EQU   *\r\n*\r\n         EXEC  CICS ASSIGN  APPLID (AUXCICS) NOHANDLE\r\n         MVC   TPOPERGO(09),=C'ALTERACAO'\r\n         CLC   EIBCALEN,=H'0'          PRIMEIRA VEZ.\r\n         BNE   RETORNO\r\n         XC    MAP3ASMO(MAP3ASMI-MAP3ASMO),MAP3ASMO CLEAR MAP\r\n         BAL   R7,PEGDATA\r\n         MVI   DATAGA,X'61'           DFHBMPRF\r\n         MVC   TRANSGO(4),=C'ALT1'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGALTE1 '\r\n         MVI   PROGGA,X'61'\r\n         MVI   CODIGA,X'C1'\r\n         MVC   CODIGO(5),X'F0'\r\n         MVC   CODIREG(5),CODIGO\r\n         MVI   TPCICGA,X'61'\r\n         MVC   RAZAOGO(30),=CL30' '\r\n         MVC   ENDERGO(50),=CL50' '\r\n         MVI   ENDERGA,X'61'\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   TELEFGO(16),X'F0'\r\n         MVI   TELEFGA,X'61'\r\n         MVC   CONTAGO(20),=CL20' '\r\n         MVI   CONTAGA,X'61'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVI   TPCICGA,X'61'\r\n         MVC   TPOPERGO(9),=C'ALTERACAO'\r\n         MVC   TPOPERGA,X'61'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   OUTROGO(11),=CL11' '\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   COM_FASE(5),=C'FASE1'\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*        ROTINA PARA PEGAR DATA E HORA\r\n*--------------------------------------\r\nPEGDATA  EQU   *\r\n         EXEC  CICS ASKTIME ABSTIME(AUXTIME) NOHANDLE\r\n*\r\n         EXEC  CICS FORMATTIME                                         X\r\n                    ABSTIME (AUXTIME)                                  X\r\n                    DDMMYYYY (DDMMAAAA)                                X\r\n                    NOHANDLE\r\n*\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGALTE1 '\r\n         MVC   TRANSGO(4),=C'ALT1'\r\n         MVC   TPOPERGA,X'F8'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVC   DATAGO(2),DDMMAAAA\r\n         MVI   DATAGO+2,C'\/'\r\n         MVC   DATAGO+3(2),DDMMAAAA+2\r\n         MVI   DATAGO+5,C'\/'\r\n         MVC   DATAGO+6(4),DDMMAAAA+4\r\n         UNPK  DOUBLE,EIBTIME\r\n         MVC   HORAGO(2),DOUBLE+2\r\n         MVI   HORAGO+2,C':'\r\n         MVC   HORAGO+3(2),DOUBLE+4\r\n         MVC   TPOPERGO(9),=C'ALTERACAO'\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*          ROTINA PARA ENVIAR TELA\r\n*--------------------------------------\r\nENVTELA  EQU   *\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAP3ASM') NOHANDLE                             X\r\n               MAP    ('MAP3ASM')                                      X\r\n               FROM (MAP3ASMO)                                         X\r\n               ERASE                                                   X\r\n               CURSOR(POSIS)                                           X\r\n               FREEKB\r\n*\r\n         BR    R7\r\n*--------------------------------------\r\n*        ROTINA DE RETORNO\r\n*--------------------------------------\r\nRETORNO  EQU   *\r\n*\r\n         EXEC  CICS HANDLE AID                                         X\r\n               PF3(VAIMENU)                                            X\r\n               CLEAR(VAIMENU)\r\n*\r\n         L     R6,DFHEICAP      CARREGA COMMAREA\r\n         MVC   COMAREA,0(R6)\r\n*\r\n         BAL   R7,RECTELA\r\n         B     TRAFASE\r\n*\r\n*--------------------------------------\r\n*        RECEBE TELA\r\n*--------------------------------------\r\nRECTELA  EQU   *\r\n*\r\n         EXEC  CICS RECEIVE                                            X\r\n               MAP('MAP3ASM')                                          X\r\n               MAPSET('MAP3ASM')                                       X\r\n               INTO (MAP3ASMI)                                         X\r\n               NOHANDLE\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*      ROTINA VOLTA PARA MENU\r\n*--------------------------------------\r\nVAIMENU  EQU   *\r\n*\r\n         EXEC CICS XCTL PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA TRATA FASE\r\n*--------------------------------------\r\nTRAFASE  EQU   *\r\n*\r\n         CLC   COM_FASE,=C'FASE1'\r\n         BE    VECODIGO\r\n         CLC   COM_FASE,=C'FASE2'\r\n         BE    CONSISTE\r\n         CLC   COM_FASE,=C'FASE3'\r\n         BE    REGRAVA\r\n         CLC   COM_FASE,=C'FASE4'\r\n         BE    CONTPROC\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n* ROTINA QUE VERIFICA SE CODIGO VALIDO\r\n*--------------------------------------\r\nVECODIGO EQU   *\r\n*\r\n         CLC   CODIGI(5),X'F0'     COMPARA COM ZERO\r\n         BE    CDINVAL           CODIGO INVALIDO\r\n         MVC   COM_CODI(5),CODIGI\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         B     LEITURA\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO INVALIDO\r\n*--------------------------------------\r\nCDINVAL  EQU   *\r\n*        MVI   MENSAGA,X'F8'\r\n         MVI   MENSAGA,X'F4'\r\n         MVC   MENSAGO(60),=CL60' '   MOVE BRANCOS\r\n         MVC   MENSAGO(15),=CL15'CODIGO INVALIDO'\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   CODIGA,DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN         RETORNA A TRANSACAO\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE LEITURA\r\n*--------------------------------------\r\nLEITURA  EQU   *\r\n         MVC   WKS_CODIGO(5),CODIGI\r\n         MVC   COM_CODI(5),CODIGI\r\n         MVC   CODIREG(5),CODIGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC  CICS READ                                               X\r\n               DATASET('CADCONS')                                      X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               INTO(WKS_CADCONS)                                       X\r\n               LENGTH (TAMANHO)                                        X\r\n               RESP(RESPONSE)\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BE    ACEITA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   MENSAGO(31),=C'CODIGO NAO EXISTE, TECLE ENTER '\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN         RETORNA A TRANSACAO\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO ACEITO\r\n*--------------------------------------\r\nACEITA   EQU   *\r\n         MVC   MENSAGO(15),=C'ALTERE OS DADOS'\r\n         MVC   CODIGO(05),WKS_CADCONS\r\n         MVC   RAZAOGO(30),WKS_CADCONS+5\r\n         MVC   ENDERGO(50),WKS_CADCONS+35\r\n         MVC   TELEFGO(16),WKS_CADCONS+85\r\n         MVC   CONTAGO(20),WKS_CADCONS+101\r\n*\r\n         MVC   COM_FASE(5),=C'FASE2'\r\n         MVC   POSIS,=H'0745'   POSICIONA NO PRIMEIRO BYTE DO RAZAO\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMFSE\r\n         MVI   ENDERGA,DFHBMFSE\r\n         MVI   TELEFGA,DFHBMFSE\r\n         MVI   CONTAGA,DFHBMFSE\r\n         MVI   TCONFGA,DFHBMFSE\r\n         MVC   OUTROGO(11),=C'ACEIT FASE2'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*---------------------------------------\r\n*      ROTINA DE CONSISTENCIA DE CAMPOS\r\n*---------------------------------------\r\nCONSISTE EQU   *\r\n         MVC   TPOPERGO(09),=C'ALTERACAO'\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMPRF\r\n         MVI   ENDERGA,DFHBMPRF\r\n         MVI   TELEFGA,DFHBMPRF\r\n         MVI   CONTAGA,DFHBMPRF\r\n\r\nVERAZAO  EQU   *\r\n         CLC   RAZAOGI,=CL30' '\r\n         BNE   PROTRAZ\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   MENSAGO(19),=C'NOME RAZAO INVALIDO'\r\n         MVI   RAZAOGA,DFHBMFSE\r\n         MVC   POSIS,=H'0745'   POSICIONA NO PRIMEIRO BYTE DO RAZAO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTRAZ  EQU   *\r\n         MVI   RAZAOGA,DFHBMPRF\r\n*\r\nVEENDER  EQU   *\r\n         CLC   ENDERGI,=CL50' '\r\n         BNE   PROTEND\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'ENDERECO INVALIDO'\r\n         MVI   ENDERGA,DFHBMFSE\r\n         MVC   POSIS,=H'0905'   POSICIONA NO PRIMEIRO BYTE DO ENDER\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\nPROTEND  EQU   *\r\n         MVI   ENDERGA,DFHBMPRF\r\n*\r\nVETELEF  EQU   *\r\n         CLC   TELEFGI,=CL16' '\r\n         BNE   PROTTEL\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'TELEFONE INVALIDO'\r\n         MVC   POSIS,=H'1065'  POSICIONA NO PRIMEIRO BYTE DO FONE\r\n         MVI   TELEFGA,DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTTEL  EQU   *\r\n         MVI   TELEFGA,DFHBMPRF\r\n*\r\nVECONTA  EQU   *\r\n         CLC   CONTAGI,=CL20' '\r\n         BNE   PROTCTA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'CONTATO  INVALIDO'\r\n         MVI   CONTAGA,DFHBMFSE\r\n         MVC   POSIS,=H'1225'   POSICIONA NO PRIMEIRO BYTE DO CONTATO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nPROTCTA  EQU   *\r\n         MVI   CONTAGA,DFHBMPRF\r\n*\r\nVAIFASE3 EQU   *\r\n*\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMPRF\r\n         MVI   ENDERGA,DFHBMPRF\r\n         MVI   TELEFGA,DFHBMPRF\r\n         MVI   CONTAGA,DFHBMPRF\r\n         MVI   TCONFGA,DFHBMFSE\r\n         MVC   POSIS,=H'1696'   POSICIONA NO CONFIRMA\r\n         MVC   TDCONFGO(12),=C'CONFIRMA S\/N'\r\n         MVC   COM_FASE(5),=C'FASE3'\r\n         MVC   OUTROGO(11),=C'ACEIT FASE3'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*---------------------------------------\r\n*       ROTINA CONFIRMA REGRAVACAO\r\n*---------------------------------------\r\nREGRAVA  EQU   *\r\n         CLI   TCONFGI,C'S'      CONFIRMA INCLUSAO\r\n         BNE   VOLTMENU\r\n*\r\n         MVC   WKS_CODIGO(5),CODIGI\r\n         MVC   WKS_CODIGO(5),COM_CODI\r\n         EXEC  CICS READ FILE('CADCONS')                               X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               INTO(WKS_CADCONS)                                       X\r\n               UPDATE                                                  X\r\n               NOHANDLE\r\n*\r\n         MVC   WKS_CADCONS(05),CODIREG\r\n         MVC   WKS_CADCONS(05),COM_CODI\r\n         MVC   WKS_CADCONS+5(30),RAZAOGI\r\n         MVC   WKS_CADCONS+35(50),ENDERGI\r\n         MVC   WKS_CADCONS+85(16),TELEFGI\r\n         MVC   WKS_CADCONS+101(20),CONTAGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC CICS REWRITE                                             X\r\n              DATASET ('CADCONS')                                      X\r\n              FROM (WKS_CADCONS)                                       X\r\n              LENGTH(TAMANHO)                                          X\r\n              RESP(RESPONSE)\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   ERROALTE\r\n         MVI   CODIGA,DFHBMPRF\r\n         MVI   RAZAOGA,DFHBMPRF\r\n         MVI   ENDERGA,DFHBMPRF\r\n         MVI   TELEFGA,DFHBMPRF\r\n         MVI   CONTAGA,DFHBMPRF\r\n         MVI   TCONFGA,DFHBMFSE\r\n         MVC   TDCONFGO(14),=C'NOVA ALTERACA:'\r\n         MVC   POSIS,=H'1696'   POSICIONA NO CONFIRMA\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(22),=C'ALTERACAO COM SUSCESSO'\r\n         MVC   TCONFGI,C' '\r\n         MVC   COM_FASE(5),=C'FASE4'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nERROALTE EQU   *\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(17),=C'ERRO NA ALTERACAO'\r\n         MVC   MENSAGO+17(7),=C'DUPREC'\r\n         MVC   MENSAGO+27(05),CODIREG\r\n         MVC   COM_FASE(5),=C'     '\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*        EXEC CICS XCTL PROGRAM('PGMENU1')\r\n*\r\n*---------------------------------------------\r\n*       ROTINA PARA CONTINUA PROCESSO ALTERACAO\r\n*---------------------------------------------\r\nCONTPROC EQU   *\r\n         CLI   TCONFGI,C'S'\r\n         BNE   VOLTMENU\r\n         EXEC CICS XCTL  PROGRAM('PGALTE1')\r\n*\r\nVOLTMENU EQU   *\r\n         MVC   COM_FASE(5),=C'     '\r\n         EXEC CICS XCTL  PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE RETORNO TRANSACAO\r\n*--------------------------------------\r\nRETTRAN  EQU   *\r\n*\r\n         EXEC  CICS RETURN                                             X\r\n               TRANSID('ALT1')                                         X\r\n               COMMAREA(COMAREA) NOHANDLE                              X\r\n               LENGTH (L'COMAREA)\r\n*\r\n         END   PGALTE1<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-b66dd75 elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"b66dd75\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/c_F9E45prdI&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-4d1c11c elementor-widget elementor-widget-code-highlight\" data-id=\"4d1c11c\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  PROGRAMA......: PGCONS1 - LINGUAGEM ASSEMBLY (ON-LINE)        *\r\n*  MAPA..........: MAP3ASM - LINGUAGEM ASSEMBLY                  *\r\n*  TRANSACAO.....: CON1                                          *\r\n*  ARQUIVO...VSAM: CADCONS - COM TAMANHO DE 121 POSICOES         *\r\n*                            CHAVE NAS PRIMEIRAS 5 POSICOES      *\r\n*  DATA..........: 04\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  CONSULTA DE CODIGOS CADASTRAIS               *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\n         PRINT NOGEN\r\nDFHEISTG DSECT\r\n*\r\nR0       EQU   0\r\nR1       EQU   1\r\nR2       EQU   2\r\nR3       EQU   3\r\nR4       EQU   4\r\nR5       EQU   5\r\nR6       EQU   6\r\nR7       EQU   7\r\nR8       EQU   8\r\nR9       EQU   9\r\nR10      EQU   10\r\nR11      EQU   11\r\nR12      EQU   12\r\nR13      EQU   13\r\nR14      EQU   14\r\nR15      EQU   15\r\n*\r\n*         AREA DE COMUNICACAO (COMAREA)\r\n*\r\nCOMAREA  DS 0CL126\r\nFASE     DS CL5\r\nREGISTRO DS CL121\r\nCODIREG  DS CL5\r\nRAZAO    DS CL30\r\nENDER    DS CL50\r\nTELEF    DS CL16\r\nCONTATO  DS CL20\r\n         SPACE\r\n*\r\n*        LAYOUT DO CADASTRO COM 121 POSICOES\r\n*\r\nWKS_CADCONS DS CL121\r\nWKS_CODIGO  DS 0CL5\r\nWKS_RAZAO   DS CL30\r\nWKS_ENDER   DS CL50\r\nWKS_TELEF   DS CL16\r\nWKS_CONTATO DS CL20\r\n*\r\n*        AREAS AUXILIARES\r\n*\r\nAUXTIME  DS    PL8\r\nQFASES   DS    CL8\r\nAUXCICS  DS    CL8\r\nDDMMAAAA DS    CL10\r\nAADDD    DS    CL6\r\nDATAJUL  DS    PL3\r\n*\r\nAUXHORA  DS    CL8\r\nRESPONSE DS    1F\r\nRESP     DS    XL2\r\nDOUBLE   DS    D\r\nTAMANHO  DS    H\r\nCURSOR   DS    XL2\r\n*\r\n         COPY  DFHBMSCA\r\n         COPY  DFHAID\r\n         COPY  MAP3ASM\r\n         SPACE\r\n*\r\n*--------------------------------------\r\n*    INICIO DO PROGRAMA\r\n*--------------------------------------\r\nPGCONS1  DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11\r\nPGCONS1  AMODE 31\r\nPGCONS1  RMODE ANY\r\n*\r\nINICIO   EQU   *\r\n*\r\n         EXEC  CICS ASSIGN  APPLID (AUXCICS) NOHANDLE\r\n         MVC   TPOPERGO(09),=C'CONSULTA '\r\n         CLC   EIBCALEN,=H'0'          PRIMEIRA VEZ.\r\n         BNE   RETORNO\r\n         XC    MAP3ASMO(MAP3ASMI-MAP3ASMO),MAP3ASMO CLEAR MAP\r\n         MVC   TPOPERGO(09),=C'CONSULTA '\r\n         MVI   TPOPERGA,X'61'          DFHBMPRF\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVI   TPCICGA,X'61'\r\n*\r\n         BAL   R7,PEGDATA\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVC   TRANSGO(4),=C'CON1'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVI   PROGGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGCONS1 '\r\n         MVI   CODIGA,X'C1'             DFHBMFSE\r\n         MVC   CODIGO(5),X'F0'\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   RAZAOGO(30),=CL30' '\r\n         MVI   ENDERGA,X'61'\r\n         MVC   ENDERGO(50),=CL50' '\r\n         MVC   TELEFGO(16),X'F0'\r\n         MVI   TELEFGA,X'61'\r\n         MVI   CONTAGA,X'61'\r\n         MVC   CONTAGO(20),X'40'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   CURSOR,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   FASE(5),=C'FASE1'\r\n         MVC   CODIREG(5),CODIGO\r\n         MVC   VERFASEO(5),FASE\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*        ROTINA PARA PEGAR DATA E HORA\r\n*--------------------------------------\r\nPEGDATA  EQU   *\r\n         EXEC  CICS ASKTIME ABSTIME(AUXTIME) NOHANDLE\r\n*\r\n         EXEC  CICS FORMATTIME                                         X\r\n                    ABSTIME (AUXTIME)                                  X\r\n                    DDMMYYYY (DDMMAAAA)                                X\r\n                    NOHANDLE\r\n*\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGCONS1 '\r\n         MVC   TRANSGO(4),=C'CON1'\r\n         MVC   TPOPERGA,X'F8'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVC   DATAGO(2),DDMMAAAA\r\n         MVI   DATAGO+2,C'\/'\r\n         MVC   DATAGO+3(2),DDMMAAAA+2\r\n         MVI   DATAGO+5,C'\/'\r\n         MVC   DATAGO+6(4),DDMMAAAA+4\r\n         UNPK  DOUBLE,EIBTIME\r\n         MVC   HORAGO(2),DOUBLE+2\r\n         MVI   HORAGO+2,C':'\r\n         MVC   HORAGO+3(2),DOUBLE+4\r\n         MVC   TPOPERGO(09),=C'CONSULTA '\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*          ROTINA PARA ENVIAR TELA\r\n*--------------------------------------\r\nENVTELA  EQU   *\r\n*\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAP3ASM')                                      X\r\n               MAP    ('MAP3ASM') NOHANDLE                             X\r\n               FROM (MAP3ASMO)                                         X\r\n               CURSOR(CURSOR)                                          X\r\n               FREEKB                                                  X\r\n               ERASE\r\n*\r\n         BR    R7\r\n*--------------------------------------\r\n*        ROTINA DE RETORNO\r\n*--------------------------------------\r\nRETORNO  EQU   *\r\n         L     R6,DFHEICAP      CARREGA COMMAREA\r\n         MVC   COMAREA,0(R6)\r\n*\r\n         BAL   R8,RECTELA\r\n         B     TRAFASE\r\n*\r\n*--------------------------------------\r\n*        RECEBE TELA\r\n*--------------------------------------\r\nRECTELA  EQU   *\r\n*\r\n         CLC   EIBAID,DFHPF3\r\n         BE    VOLTA\r\n         CLC   EIBAID,DFHCLEAR\r\n         BE    VOLTA\r\n*\r\n         EXEC  CICS RECEIVE                                            X\r\n               MAP('MAP3ASM')                                          X\r\n               MAPSET('MAP3ASM')                                       X\r\n               INTO (MAP3ASMI)                                         X\r\n               NOHANDLE\r\n*\r\n         BR    R8\r\n*\r\n*--------------------------------------\r\n*      ROTINA TRATA FASE\r\n*--------------------------------------\r\nTRAFASE  EQU   *\r\n*\r\n         MVC   TPOPERGO(09),=C'CONSULTA '\r\n         MVC   VERFASEO(5),FASE\r\n*\r\n         CLC   FASE,=C'FASE1'\r\n         BE    VECODIGO\r\n         CLC   FASE,=C'FASE2'\r\n         BE    CONTPROC\r\n         B     VOLTMENU\r\n*\r\n*--------------------------------------\r\n* ROTINA QUE VERIFICA SE CODIGO VALIDO\r\n*--------------------------------------\r\nVECODIGO EQU   *\r\n*\r\n         MVC   CODIREG(5),CODIGI\r\n         CLC   CODIREG(5),X'F0'     COMPARA COM ZEROS\r\n         BE    CDINVAL           CODIGO INVALIDO\r\n         MVC   CURSOR,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         B     LEITURA\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO INVALIDO\r\n*--------------------------------------\r\nCDINVAL  EQU   *\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '    BRANCOS\r\n         MVC   MENSAGO(15),=CL15'CODIGO INVALIDO'\r\n         MVC   CURSOR,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   CODIGA,X'C1'            DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN         RETORNA A TRANSACAO\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE LEITURA\r\n*--------------------------------------\r\nLEITURA  EQU   *\r\n         MVC   WKS_CODIGO,CODIGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC  CICS READ                                               X\r\n               FILE('CADCONS')                                         X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               INTO(WKS_CADCONS)                                       X\r\n               LENGTH (TAMANHO)                                        X\r\n               RESP(RESPONSE)                                          X\r\n               NOHANDLE\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   INEXISTE\r\n         BE    ACEITA\r\n         B     VAIERRO\r\n*\r\nINEXISTE EQU   *\r\n*\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '   PREENCHE COM BRANCOS\r\n         MVC   MENSAGO(31),=C'CODIGO INEXISTENTE, TECLE CLEAR'\r\n         MVI   CODIGA,X'61'\r\n         MVC   RAZAOGO(30),X'40'      BRANCOS\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   ENDERGO(50),X'40'\r\n         MVI   ENDERGA,X'61'\r\n         MVC   TELEFGO(16),X'40'\r\n         MVI   TELEFGA,X'61'\r\n         MVC   CONTAGO(20),X'40'\r\n         MVI   CONTAGA,X'61'\r\n         MVI   TCONFGA,X'61'\r\n         MVI   TCONFGL,X'61'\r\n         MVC   VERFASEO(5),FASE\r\n         MVC   CURSOR,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO ACEITO\r\n*--------------------------------------\r\nACEITA   EQU   *\r\n*\r\n         MVC   REGISTRO,WKS_CADCONS\r\n         MVC   CODIGA,X'C1'                  DFHBMFSE\r\n         MVC   RAZAOGA,X'C1'\r\n         MVC   ENDERGA,X'C1'\r\n         MVC   TELEFGA,X'C1'\r\n         MVC   CONTAGA,X'C1'\r\n         MVC   TCONFGA,X'C1'\r\n         MVC   TCONFGL,=C'-1'\r\n*\r\n*        MOVE POR DESLOCAMENTO DA COMAREA\r\n*\r\n         MVC   CODIGO(05),COMAREA+5\r\n         MVC   RAZAOGO(30),COMAREA+10\r\n         MVC   ENDERGO(50),COMAREA+40\r\n         MVC   TELEFGO(16),COMAREA+90\r\n         MVC   CONTAGO(20),COMAREA+106\r\n         MVC   FASE(5),=C'FASE2'\r\n         MVC   VERFASEO(5),FASE\r\n*\r\n         MVC   TDCONFGO(14),=C'NOVA CONSULTA:'\r\n         MVC   CURSOR,=H'1696'   POSICIONA O CURSOR EM S OU N\r\n         MVC   OUTROGO(11),=C'DIGITE  S\/N'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\nVAIERRO  EQU   *\r\n         MVC   MENSAGO,=C'ERRO NA CONSULTA'\r\n         MVC   FASE(5),X'40'                   MOVE BRANCOS\r\n         MVC   CODIGO(5),X'F0'                 MOVE ZEROS\r\n*\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\nSEGUE    EQU   *\r\n         CLC   EIBAID,DFHPF3\r\n         BE    VOLTA\r\n*\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\nVOLTA    EQU   *\r\n         EXEC  CICS XCTL PROGRAM('PGMENU1')\r\n*\r\n*---------------------------------------------\r\n*       ROTINA PARA CONTINUA CONSULTA\r\n*---------------------------------------------\r\nCONTPROC EQU   *\r\n         CLI   TCONFGI,X'E2'      COMPARA COM S\r\n         BNE   VOLTMENU\r\n         EXEC CICS XCTL  PROGRAM('PGCONS1')\r\n*\r\nVOLTMENU EQU   *\r\n         MVC   FASE(5),X'40'      BRANCOS EM FASE\r\n         MVC   CODIGO(5),X'F0'    ZEROS EM CODIGO\r\n         EXEC CICS XCTL  PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE RETORNO TRANSACAO\r\n*--------------------------------------\r\nRETTRAN  EQU   *\r\n*\r\n         EXEC  CICS RETURN                                             X\r\n               TRANSID('CON1')                                         X\r\n               LENGTH (L'COMAREA)                                      X\r\n               COMMAREA(COMAREA)\r\n*\r\n         END   PGCONS1<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-47558c1 elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"47558c1\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/R-_PgD5JjLI&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-f8a4aa3 elementor-widget elementor-widget-code-highlight\" data-id=\"f8a4aa3\" data-element_type=\"widget\" data-widget_type=\"code-highlight.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"prismjs-default copy-to-clipboard \">\n\t\t\t<pre data-line=\"\" class=\"highlight-height language-javascript line-numbers\">\n\t\t\t\t<code readonly=\"true\" class=\"language-javascript\">\n\t\t\t\t\t<xmp>*\r\n*================================================================*\r\n*                   FUTURE SCHOOL                                *\r\n*----------------------------------------------------------------*\r\n*                                                                *\r\n*  PROGRAMA......: PGEXCL1 - LINGUAGEM ASSEMBLY (ON-LINE)        *\r\n*  MAPA..........: MAP3ASM - LINGUAGEM ASSEMBLY                  *\r\n*  TRANSACAO.....: EXC1                                          *\r\n*  ARQUIVO...VSAM: CADCONS - COM TAMANHO DE 121 POSICOES         *\r\n*                            CHAVE NAS PRIMEIRAS 5 POSICOES      *\r\n*  DATA..........: 05\/2023                                       *\r\n*  AUTOR.........: LESSA                                         *\r\n*                                                                *\r\n*     OBJETIVO...:  EXCLUSAO DE CODIGOS CADASTRAIS               *\r\n*                                                                *\r\n*----------------------------------------------------------------*\r\n*\r\n         PRINT NOGEN\r\nDFHEISTG DSECT\r\n*\r\nR0       EQU   0\r\nR1       EQU   1\r\nR2       EQU   2\r\nR3       EQU   3\r\nR4       EQU   4\r\nR5       EQU   5\r\nR6       EQU   6\r\nR7       EQU   7\r\nR8       EQU   8\r\nR9       EQU   9\r\nR10      EQU   10\r\nR11      EQU   11\r\nR12      EQU   12\r\nR13      EQU   13\r\nR14      EQU   14\r\nR15      EQU   15\r\n*\r\n*         AREA DE COMUNICACAO (COMAREA)\r\n*\r\nCOMAREA  DS 0CL5\r\nFASE     DS CL5\r\n*\r\nREGISTRO DS CL121\r\nCODIREG  DS CL5\r\nRAZAO    DS CL30\r\nENDER    DS CL50\r\nTELEF    DS CL16\r\nCONTATO  DS CL20\r\n         SPACE\r\n*\r\n*        LAYOUT DO CADASTRO COM 121 POSICOES\r\n*\r\nWKS_CADCONS DS CL121\r\nWKS_CODIGO  DS 0CL5\r\nWKS_RAZAO   DS CL30\r\nWKS_ENDER   DS CL50\r\nWKS_TELEF   DS CL16\r\nWKS_CONTATO DS CL20\r\n*\r\n*        AREAS AUXILIARES\r\n*\r\nDATASET  DS    CL8\r\nPOSIS    DS    XL2\r\nAUXTIME  DS    PL8\r\nQFASES   DS    CL8\r\nAUXCICS  DS    CL8\r\nDDMMAAAA DS    CL10\r\nAADDD    DS    CL6\r\nDATAJUL  DS    PL3\r\n*\r\nAUXHORA  DS    CL8\r\nRESPONSE DS    1F\r\nRESP     DS    XL2\r\nDOUBLE   DS    D\r\nTAMANHO  DS    H\r\n*\r\n         COPY  DFHBMSCA\r\n         COPY  DFHAID\r\n         COPY  MAP3ASM\r\n         SPACE\r\n*\r\n*--------------------------------------\r\n*    INICIO DO PROGRAMA\r\n*--------------------------------------\r\nPGEXCL1  DFHEIENT CODEREG=R3,DATAREG=R13,EIBREG=R11\r\nPGEXCL1  AMODE 31\r\nPGEXCL1  RMODE ANY\r\n*\r\nINICIO   EQU   *\r\n*\r\n         EXEC  CICS ASSIGN  APPLID (AUXCICS) NOHANDLE\r\n         MVC   TPOPERGO(09),=C'EXCLUSAO '\r\n         CLC   EIBCALEN,=H'0'          PRIMEIRA VEZ.\r\n         BNE   RETORNO\r\n         XC    MAP3ASMO(MAP3ASMI-MAP3ASMO),MAP3ASMO CLEAR MAP\r\n         MVC   TPOPERGO(09),=C'EXCLUSAO '\r\n         MVI   TPOPERGA,X'61'          DFHBMPRF\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVI   TPCICGA,X'61'\r\n*\r\n         BAL   R7,PEGDATA\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVC   TRANSGO(4),=C'EXC1'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVI   PROGGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGEXCL1 '\r\n         MVI   CODIGA,X'C1'             DFHBMFSE\r\n         MVC   CODIGO(5),X'F0'\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   RAZAOGO(30),=CL30' '\r\n         MVI   ENDERGA,X'61'\r\n         MVC   ENDERGO(50),=CL50' '\r\n         MVC   TELEFGO(16),X'F0'\r\n         MVI   TELEFGA,X'61'\r\n         MVI   CONTAGA,X'61'\r\n         MVC   CONTAGO(20),X'40'\r\n         MVC   MENSAGO(60),=CL60' '\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   FASE(5),=C'FASE1'\r\n         MVC   CODIREG(5),CODIGO\r\n         MVC   VERFASEO(5),FASE\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*        ROTINA PARA PEGAR DATA E HORA\r\n*--------------------------------------\r\nPEGDATA  EQU   *\r\n         EXEC  CICS ASKTIME ABSTIME(AUXTIME) NOHANDLE\r\n*\r\n         EXEC  CICS FORMATTIME                                         X\r\n                    ABSTIME (AUXTIME)                                  X\r\n                    DDMMYYYY (DDMMAAAA)                                X\r\n                    NOHANDLE\r\n*\r\n         MVI   DATAGA,X'61'\r\n         MVI   TRANSGA,X'61'\r\n         MVI   HORAGA,X'61'\r\n         MVI   TERMGA,X'61'\r\n         MVC   TERMGO,EIBTRMID\r\n         MVC   PROGGO(8),=C'PGEXCL1 '\r\n         MVC   TRANSGO(4),=C'EXC1'\r\n         MVC   TPOPERGA,X'F8'\r\n         MVC   TPCICGO(8),AUXCICS\r\n         MVC   DATAGO(2),DDMMAAAA\r\n         MVI   DATAGO+2,C'\/'\r\n         MVC   DATAGO+3(2),DDMMAAAA+2\r\n         MVI   DATAGO+5,C'\/'\r\n         MVC   DATAGO+6(4),DDMMAAAA+4\r\n         UNPK  DOUBLE,EIBTIME\r\n         MVC   HORAGO(2),DOUBLE+2\r\n         MVI   HORAGO+2,C':'\r\n         MVC   HORAGO+3(2),DOUBLE+4\r\n         MVC   TPOPERGO(09),=C'EXCLUSAO '\r\n*\r\n         BR    R7\r\n*\r\n*--------------------------------------\r\n*          ROTINA PARA ENVIAR TELA\r\n*--------------------------------------\r\nENVTELA  EQU   *\r\n*\r\n         EXEC  CICS SEND                                               X\r\n               MAPSET ('MAP3ASM')                                      X\r\n               MAP    ('MAP3ASM') NOHANDLE                             X\r\n               FROM (MAP3ASMO)                                         X\r\n               CURSOR(POSIS)                                           X\r\n               FREEKB                                                  X\r\n               ERASE\r\n*\r\n         BR    R7\r\n*--------------------------------------\r\n*        ROTINA DE RETORNO\r\n*--------------------------------------\r\nRETORNO  EQU   *\r\n*\r\n         EXEC  CICS HANDLE AID                                         X\r\n               PF3(VOLTMENU)                                           X\r\n               CLEAR(VOLTMENU)\r\n*\r\n         L     R6,DFHEICAP      CARREGA COMMAREA\r\n         MVC   COMAREA,0(R6)\r\n*\r\n         BAL   R8,RECTELA\r\n         B     TRAFASE\r\n*\r\n*--------------------------------------\r\n*        RECEBE TELA\r\n*--------------------------------------\r\nRECTELA  EQU   *\r\n*\r\n         CLI   EIBAID,DFHPF3\r\n         BE    VOLTMENU\r\n         CLI   EIBAID,DFHCLEAR\r\n         BE    VOLTMENU\r\n*\r\n         EXEC  CICS RECEIVE                                            X\r\n               MAP('MAP3ASM')                                          X\r\n               MAPSET('MAP3ASM')                                       X\r\n               INTO (MAP3ASMI)                                         X\r\n               NOHANDLE\r\n*\r\n         BR    R8\r\n*\r\n*--------------------------------------\r\n*      ROTINA TRATA FASE\r\n*--------------------------------------\r\nTRAFASE  EQU   *\r\n*\r\n         MVC   TPOPERGO(09),=C'EXCLUSAO '\r\n         MVC   VERFASEO(5),FASE\r\n*\r\n         CLC   FASE,=C'FASE1'\r\n         BE    VECODIGO\r\n         CLC   FASE,=C'FASE2'\r\n         BE    EXCLUSAO\r\n         CLC   FASE,=C'FASE3'\r\n         BE    CONTPROC\r\n         B     VOLTMENU\r\n*\r\n*--------------------------------------\r\n* ROTINA QUE VERIFICA SE CODIGO VALIDO\r\n*--------------------------------------\r\nVECODIGO EQU   *\r\n*\r\n         MVC   CODIREG(5),CODIGI\r\n         CLC   CODIREG(5),X'F0'     COMPARA COM ZEROS\r\n         BE    CDINVAL              CODIGO INVALIDO\r\n         MVC   POSIS,=H'0585'    POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         B     LEITURA\r\n*\r\n*--------------------------------------\r\n*      ROTINA CODIGO INVALIDO\r\n*--------------------------------------\r\nCDINVAL  EQU   *\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '    BRANCOS\r\n         MVC   MENSAGO(15),=CL15'CODIGO INVALIDO'\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         MVC   CODIGA,X'C1'            DFHBMFSE\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN         RETORNA A TRANSACAO\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE LEITURA\r\n*--------------------------------------\r\nLEITURA  EQU   *\r\n         MVC   WKS_CODIGO(5),CODIGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC  CICS READ DATASET ('CADCONS')                           X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               INTO(WKS_CADCONS)                                       X\r\n               LENGTH (TAMANHO)                                        X\r\n               RESP(RESPONSE)                                          X\r\n               NOHANDLE\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   INEXISTE\r\n         BE    ACEITA\r\n         B     VAIERRO\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE CODIGO INEXISTENTE\r\n*--------------------------------------\r\nINEXISTE EQU   *\r\n*\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   MENSAGO(60),=CL60' '   PREENCHE COM BRANCOS\r\n         MVC   MENSAGO(31),=C'CODIGO INEXISTENTE, TECLE CLEAR'\r\n         MVI   CODIGA,X'61'           DFHBMPRF\r\n         MVC   RAZAOGO(30),X'40'      BRANCOS\r\n         MVI   RAZAOGA,X'61'\r\n         MVC   ENDERGO(50),X'40'\r\n         MVI   ENDERGA,X'61'\r\n         MVC   TELEFGO(16),X'40'\r\n         MVI   TELEFGA,X'61'\r\n         MVC   CONTAGO(20),X'40'\r\n         MVI   CONTAGA,X'61'\r\n         MVI   TCONFGA,X'61'\r\n         MVI   TCONFGL,X'61'\r\n         MVC   VERFASEO(5),FASE\r\n         MVC   POSIS,=H'0585'   POSICIONA NO PRIMEIRO BYTE DO CODIGO\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*    ROTINA CODIGO ACEITO (ENCONTRADO)\r\n*--------------------------------------\r\nACEITA   EQU   *\r\n*\r\n         MVC   MENSAGO(60),=CL60' '   PREENCHE COM BRANCOS\r\n         MVC   MENSAGO(17),=C'CODIGO ENCONTRATO'\r\n         MVC   CODIGO(05),WKS_CADCONS\r\n         MVC   RAZAOGO(30),WKS_CADCONS+5\r\n         MVC   ENDERGO(50),WKS_CADCONS+35\r\n         MVC   TELEFGO(16),WKS_CADCONS+85\r\n         MVC   CONTAGO(20),WKS_CADCONS+101\r\n*\r\n         MVI   CODIGA,X'F9'       PROTEGE  CAMPO CODIGO\r\n         MVC   RAZAOGA,X'61'\r\n         MVC   ENDERGA,X'61'\r\n         MVC   TELEFGA,X'61'                 DFHBMPRF\r\n         MVC   CONTAGA,X'61'\r\n         MVC   TCONFGA,X'C1'                 DFHBMFSE\r\n         MVC   TCONFGL,=C'-1'\r\n         MVC   FASE(5),=C'FASE2'\r\n         MVC   TDCONFGO(14),=C'EXCLUIR (S\/N)?'\r\n         MVC   POSIS,=H'1696'   POSICIONA NO CONFIRMA\r\n         MVC   VERFASEO(5),FASE\r\n*\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*       ROTINA CONFIRMA EXCLUSAO\r\n*--------------------------------------\r\nEXCLUSAO EQU   *\r\n*\r\n         CLI   TCONFGI,C'S'     CONFIRMA EXCLUSAO\r\n         BNE   VOLTMENU\r\n*\r\n         MVC   WKS_CODIGO(5),CODIGI\r\n         MVC   TAMANHO,=H'121'\r\n         EXEC  CICS DELETE                                             X\r\n               DATASET('CADCONS')                                      X\r\n               RIDFLD(WKS_CODIGO)                                      X\r\n               KEYLENGTH(+05)                                          X\r\n               RESP(RESPONSE)                                          X\r\n               NOHANDLE\r\n*\r\n         MVC   CODIGA,X'61'                  DFHBMPRF\r\n         MVC   RAZAOGA,X'61'\r\n         MVC   ENDERGA,X'61'\r\n         MVC   TELEFGA,X'61'\r\n         MVC   CONTAGA,X'61'\r\n         MVC   TCONFGA,X'C1'                 DFHBMFSE\r\n         MVC   TCONFGL,=C'-1'\r\n*\r\n         CLC   RESPONSE,DFHRESP(NORMAL)\r\n         BNE   ERROEXCL\r\n         MVI   TCONFGI,C' '\r\n         MVC   TDCONFGO(14),=C'NOVA EXCLUSAO:'\r\n         MVC   POSIS,=H'1696'   POSICIONA EM NOVA EXCLUSAO\r\n         MVC   MENSAGO(60),=CL60' '   PREENCHE COM BRANCOS\r\n         MVC   MENSAGO(20),=C'EXCLUSAO COM SUCESSO'\r\n         MVC   FASE(5),=C'FASE3'\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*       ROTINA ERRO DE EXCLUSAO\r\n*--------------------------------------\r\n*\r\nERROEXCL EQU   *\r\n         MVI   MENSAGA,X'F8'\r\n         MVC   FASE(5),=C'     '      BRANCOS EM FASE\r\n         MVC   MENSAGO(60),=CL60' '   PREENCHE COM BRANCOS\r\n         MVC   MENSAGO(16),=C'ERRO NA EXCLUSAO'\r\n         MVC   CODIGO(5),X'F0'                 MOVE ZEROS\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*--------------------------------------\r\n*       ERRO DA ROTINA DE LEITURA\r\n*--------------------------------------\r\n*\r\nVAIERRO  EQU   *\r\n         MVC   MENSAGO,=C'ERRO NA LEITURA'\r\n         MVC   FASE(5),X'40'                   MOVE BRANCOS\r\n         MVC   CODIGO(5),X'F0'                 MOVE ZEROS\r\n*\r\n         BAL   R7,PEGDATA\r\n         BAL   R7,ENVTELA\r\n         B     RETTRAN\r\n*\r\n*---------------------------------------------\r\n*       ROTINA PARA CONTINUA EXCLUSAO\r\n*---------------------------------------------\r\nCONTPROC EQU   *\r\n         CLI   TCONFGI,C'S'     CONFIRMA EXCLUSAO\r\n         BNE   VOLTMENU\r\n         MVC   CODIGO(5),X'F0'    ZEROS EM CODIGO\r\n         EXEC CICS XCTL  PROGRAM('PGEXCL1')\r\n*\r\n*---------------------------------------------\r\n*       ROTINA PARA VOLTA AO MENU\r\n*---------------------------------------------\r\nVOLTMENU EQU   *\r\n         MVC   FASE(5),X'40'      BRANCOS EM FASE\r\n         MVC   CODIGO(5),X'F0'    ZEROS EM CODIGO\r\n         EXEC CICS XCTL  PROGRAM('PGMENU1')\r\n*\r\n*--------------------------------------\r\n*      ROTINA DE RETORNO TRANSACAO\r\n*--------------------------------------\r\nRETTRAN  EQU   *\r\n*\r\n         EXEC  CICS RETURN                                             X\r\n               TRANSID('EXC1')                                         X\r\n               LENGTH (L'COMAREA)                                      X\r\n               COMMAREA(COMAREA)\r\n*\r\n         END   PGEXCL1<\/xmp>\n\t\t\t\t<\/code>\n\t\t\t<\/pre>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-f53e834 elementor-aspect-ratio-169 elementor-widget elementor-widget-video\" data-id=\"f53e834\" data-element_type=\"widget\" data-settings=\"{&quot;youtube_url&quot;:&quot;https:\\\/\\\/youtu.be\\\/R-_PgD5JjLI&quot;,&quot;video_type&quot;:&quot;youtube&quot;,&quot;controls&quot;:&quot;yes&quot;,&quot;aspect_ratio&quot;:&quot;169&quot;}\" data-widget_type=\"video.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-wrapper elementor-fit-aspect-ratio elementor-open-inline\">\n\t\t\t<div class=\"elementor-video\"><\/div>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-69478938 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"69478938\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-ecf5357\" data-id=\"ecf5357\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-6ecc2212 elementor-widget elementor-widget-heading\" data-id=\"6ecc2212\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h3 class=\"elementor-heading-title elementor-size-large\">Ainda tem d\u00favidas?  <\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-63910425 elementor-widget elementor-widget-text-editor\" data-id=\"63910425\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: left;\">Entre em contato conosco para mais informa\u00e7\u00f5es via whatsapp abaixo.<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-6125f4eb elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"6125f4eb\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-inner-column elementor-element elementor-element-482a9cba\" data-id=\"482a9cba\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-235c518 elementor-widget elementor-widget-text-editor\" data-id=\"235c518\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><!DOCTYPE html>\n<html lang=\"pt-br\">\n<head>\n    <meta charset=\"UTF-8\">\n    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n    <title>Formul\u00e1rio para WhatsApp<\/title>\n    <style>\n        body {\n            font-family: Arial, sans-serif;\n        }\n        .container {\n            max-width: 500px;\n            margin: auto;\n            padding: 20px;\n            border: 1px solid #ccc;\n            border-radius: 5px;\n            box-shadow: 0 0 10px rgba(0,0,0,0.1);\n        }\n        .container h1 {\n            text-align: center;\n        }\n        .container label {\n            display: block;\n            margin-bottom: 10px;\n            font-weight: bold;\n        }\n        .container textarea {\n            width: 100%;\n            padding: 10px;\n            margin-bottom: 20px;\n            border: 1px solid #ccc;\n            border-radius: 5px;\n        }\n        .send-button {\n            background-color: #6B8E23; \/* Verde Oliva *\/\n            color: white;\n            border: none;\n            padding: 10px 20px;\n            text-align: center;\n            text-decoration: none;\n            display: inline-block;\n            font-size: 16px;\n            cursor: pointer;\n            border-radius: 5px;\n            width: 100%;\n        }\n        .send-button:hover {\n            background-color: #556B2F;\n        }\n    <\/style>\n<\/head>\n<body>\n    <div class=\"container\">\n        <h1><span style=\"color: #ffffff;\">Envie suas d\u00favidas sobre o Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly (On-line), via whatsapp aqui&#8230;<\/span><\/h1>\n        <form id=\"whatsappForm\">\n            <label for=\"message\"><span style=\"color: #ffffff;\">Digite sua mensagem:<\/span><\/label>\n            <textarea id=\"message\" name=\"message\" rows=\"4\"><\/textarea>\n            <input type=\"button\" value=\"Enviar\" class=\"send-button\" onclick=\"sendMessage()\">\n        <\/form>\n    <\/div>\n\n    <script>\n        function sendMessage() {\n            const message = document.getElementById('message').value;\n            const pageName = \"Estou no Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly (On-line), estou em d\u00favida a cerca de... \";\n            const fullMessage = pageName + \" \" + message;\n            const phoneNumber = \"5511983422503\";\n            const whatsappURL = `https:\/\/api.whatsapp.com\/send?phone=${phoneNumber}&text=${encodeURIComponent(fullMessage)}`;\n\n            window.open(whatsappURL, '_blank');\n        }\n    <\/script>\n<\/body>\n<\/html>\n<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-57d0225\" data-id=\"57d0225\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-1668645c elementor-widget elementor-widget-heading\" data-id=\"1668645c\" data-element_type=\"widget\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h3 class=\"elementor-heading-title elementor-size-large\">Participe!<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-186a310 elementor-widget elementor-widget-spacer\" data-id=\"186a310\" data-element_type=\"widget\" data-widget_type=\"spacer.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-spacer\">\n\t\t\t<div class=\"elementor-spacer-inner\"><\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-639b89ca elementor-widget elementor-widget-text-editor\" data-id=\"639b89ca\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p>\u00a0Doar para a &#8220;Future School EAD&#8221; \u00e9 essencial para manter e expandir o acesso \u00e0 educa\u00e7\u00e3o gratuita em inform\u00e1tica. Esta escola oferece cursos de alta qualidade sem custo, capacitando jovens e adultos com habilidades essenciais para o mercado de trabalho atual.<\/p><p>Sua contribui\u00e7\u00e3o permite que mais pessoas transformem suas vidas por meio do aprendizado digital, reduzindo desigualdades sociais e promovendo a inclus\u00e3o digital. Apoiar a Future School EAD \u00e9 investir em um futuro mais justo e tecnol\u00f3gico para todos.<\/p><p>\u00a0<\/p><p>Participe do grupo do WhatsAapp (11-98342.2503) no plant\u00e3o de d\u00favidas (S\u00e1bados).<\/p><p>Voc\u00ea quer ajudar a manter este site?<\/p><p>PIX \u00e9 celular (11-98342.2503) Favorecido: Jorge Gilberto.<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-65931bff elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"65931bff\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-top-column elementor-element elementor-element-5e358f57\" data-id=\"5e358f57\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-2e8c87b6 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"2e8c87b6\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-67358a38\" data-id=\"67358a38\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-1aea68f0 elementor-widget elementor-widget-image\" data-id=\"1aea68f0\" data-element_type=\"widget\" data-widget_type=\"image.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-image\">\n\t\t\t\t\t\t\t\t\t\t<img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"199\" src=\"https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-1024x199.png\" class=\"attachment-large size-large\" alt=\"\" srcset=\"https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-1024x199.png 1024w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-600x116.png 600w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-300x58.png 300w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada-768x149.png 768w, https:\/\/futureschoolead.com.br\/2026\/wp-content\/uploads\/2024\/07\/logo-grande-nova-nova-vazada.png 1257w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/>\t\t\t\t\t\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-5c7484ab\" data-id=\"5c7484ab\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap\">\n\t\t\t\t\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<div class=\"elementor-element elementor-element-3e58fd69 elementor-widget elementor-widget-text-editor\" data-id=\"3e58fd69\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: left;\">Descubra uma ampla variedade de cursos online para expandir seus conhecimentos e impulsionar sua carreira.<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-top-column elementor-element elementor-element-4fa8649b\" data-id=\"4fa8649b\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap\">\n\t\t\t\t\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-33 elementor-top-column elementor-element elementor-element-3409e096\" data-id=\"3409e096\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-6f78215f elementor-widget elementor-widget-text-editor\" data-id=\"6f78215f\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: center;\">Nossas redes sociais<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-505a8a17 elementor-grid-mobile-3 e-grid-align-right elementor-shape-rounded elementor-grid-0 e-grid-align-center elementor-widget elementor-widget-social-icons\" data-id=\"505a8a17\" data-element_type=\"widget\" data-widget_type=\"social-icons.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-social-icons-wrapper elementor-grid\">\n\t\t\t\t\t\t\t<div class=\"elementor-grid-item\">\n\t\t\t\t\t<a class=\"elementor-icon elementor-social-icon elementor-social-icon-facebook elementor-repeater-item-07c63b0\" href=\"https:\/\/www.facebook.com\/Gutinhospersonalizados\" target=\"_blank\">\n\t\t\t\t\t\t<span class=\"elementor-screen-only\">Facebook<\/span>\n\t\t\t\t\t\t<i class=\"fab fa-facebook\"><\/i>\t\t\t\t\t<\/a>\n\t\t\t\t<\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-grid-item\">\n\t\t\t\t\t<a class=\"elementor-icon elementor-social-icon elementor-social-icon-instagram elementor-repeater-item-62167c1\" target=\"_blank\">\n\t\t\t\t\t\t<span class=\"elementor-screen-only\">Instagram<\/span>\n\t\t\t\t\t\t<i class=\"fab fa-instagram\"><\/i>\t\t\t\t\t<\/a>\n\t\t\t\t<\/div>\n\t\t\t\t\t\t\t<div class=\"elementor-grid-item\">\n\t\t\t\t\t<a class=\"elementor-icon elementor-social-icon elementor-social-icon-youtube elementor-repeater-item-a91f959\" href=\"https:\/\/www.youtube.com\/@FutureSchoolEAD\" target=\"_blank\">\n\t\t\t\t\t\t<span class=\"elementor-screen-only\">Youtube<\/span>\n\t\t\t\t\t\t<i class=\"fab fa-youtube\"><\/i>\t\t\t\t\t<\/a>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-18cdd0d elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"18cdd0d\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-2cec799a\" data-id=\"2cec799a\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-7a8cb43 elementor-widget-divider--view-line elementor-widget elementor-widget-divider\" data-id=\"7a8cb43\" data-element_type=\"widget\" data-widget_type=\"divider.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-divider\">\n\t\t\t<span class=\"elementor-divider-separator\">\n\t\t\t\t\t\t<\/span>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-56af94bd elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"56af94bd\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-7ccaffe4\" data-id=\"7ccaffe4\" data-element_type=\"column\" data-settings=\"{&quot;background_background&quot;:&quot;classic&quot;}\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-5148b1 elementor-nav-menu__align-center elementor-nav-menu--indicator-none elementor-nav-menu--dropdown-none elementor-hidden-phone elementor-widget elementor-widget-nav-menu\" data-id=\"5148b1\" data-element_type=\"widget\" data-settings=\"{&quot;layout&quot;:&quot;horizontal&quot;}\" data-widget_type=\"nav-menu.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t\t<nav role=\"navigation\" class=\"elementor-nav-menu--main elementor-nav-menu__container elementor-nav-menu--layout-horizontal e--pointer-none\"><ul id=\"menu-1-5148b1\" class=\"elementor-nav-menu\"><li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-26\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/sobre\/\" class=\"elementor-item\">SOBRE N\u00d3S<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-354\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#cursos\" class=\"elementor-item elementor-item-anchor\">CURSOS ONLINE<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-3725\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#diploma\" class=\"elementor-item elementor-item-anchor\">DIPLOMA PROFISSIONAL<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-5572\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/author\/admin\/\" class=\"elementor-item\">BLOG<\/a><\/li>\n<li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-27\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/contact\/\" class=\"elementor-item\">CONTATO<\/a><\/li>\n<\/ul><\/nav>\n\t\t\t\t\t<div class=\"elementor-menu-toggle\" role=\"button\" tabindex=\"0\" aria-label=\"Menu Toggle\" aria-expanded=\"false\">\n\t\t\t<i class=\"eicon-menu-bar\" aria-hidden=\"true\"><\/i>\n\t\t\t<span class=\"elementor-screen-only\">Menu<\/span>\n\t\t<\/div>\n\t\t\t<nav class=\"elementor-nav-menu--dropdown elementor-nav-menu__container\" role=\"navigation\" aria-hidden=\"true\"><ul id=\"menu-2-5148b1\" class=\"elementor-nav-menu\"><li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-26\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/sobre\/\" class=\"elementor-item\">SOBRE N\u00d3S<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-354\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#cursos\" class=\"elementor-item elementor-item-anchor\">CURSOS ONLINE<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-3725\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/#diploma\" class=\"elementor-item elementor-item-anchor\">DIPLOMA PROFISSIONAL<\/a><\/li>\n<li class=\"menu-item menu-item-type-custom menu-item-object-custom menu-item-5572\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/author\/admin\/\" class=\"elementor-item\">BLOG<\/a><\/li>\n<li class=\"menu-item menu-item-type-post_type menu-item-object-page menu-item-27\"><a href=\"https:\/\/futureschoolead.com.br\/2026\/contact\/\" class=\"elementor-item\">CONTATO<\/a><\/li>\n<\/ul><\/nav>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-5c116f49 elementor-tabs-view-vertical elementor-widget elementor-widget-global elementor-global-4485 elementor-widget-tabs\" data-id=\"5c116f49\" data-element_type=\"widget\" data-widget_type=\"tabs.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-tabs\">\n\t\t\t<div class=\"elementor-tabs-wrapper\" role=\"tablist\" >\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1541\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"true\" data-tab=\"1\" role=\"tab\" tabindex=\"0\" aria-controls=\"elementor-tab-content-1541\">Banco de Dados em<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1542\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"2\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1542\">Cloud<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1543\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"3\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1543\">Www<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1544\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"4\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1544\">Java<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1545\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"5\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1545\">Curso de L\u00f3gica<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1546\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"6\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1546\">Mainframe <\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1547\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"7\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1547\">Pynton<\/div>\n\t\t\t\t\t\t\t\t\t<div id=\"elementor-tab-title-1548\" class=\"elementor-tab-title elementor-tab-desktop-title\" aria-selected=\"false\" data-tab=\"8\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1548\">Tecnologias<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t\t<div class=\"elementor-tabs-content-wrapper\" role=\"tablist\" aria-orientation=\"vertical\">\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"true\" data-tab=\"1\" role=\"tab\" tabindex=\"0\" aria-controls=\"elementor-tab-content-1541\">Banco de Dados em<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1541\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"1\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1541\" tabindex=\"0\" hidden=\"false\"><p><span style=\"color: #ffffff;\"><a class=\"elementor-accordion-title\" style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/\">Banco de Dados Relacional<\/a><\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/normalizacao-de-banco-de-dados-db2\/\">Normaliza\u00e7\u00e3o de Banco de Dados DB2<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/banco-de-dados-db2\/\">Banco de Dados DB2<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/banco-de-dados-mysql\/\">Banco de Dados MYSQL<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/\">Banco de Dados NOSQL<\/a><\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/primeira-aula-de-nosql\/\">Primeira aula de NOSQL<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/\">Sistema Gerenciador de Banco de Dados SQLite<\/a><\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/banco-de-dados\/sistema-gerenciador-de-banco-de-dados-sqlite\/\">Sistema gerenciador de Banco de Dados SQLite<\/a><\/span><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"2\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1542\">Cloud<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1542\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"2\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1542\" tabindex=\"0\" hidden=\"hidden\"><p><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/\">Cloud<\/a><\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/curso-de-cloud\/\">Curso de Cloud<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/curso-de-docker\/\">Curso de Docker<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/curso-de-linux\/\">Curso de Linux<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/curso-de-cientista-de-dados\/\">Curso de Cientista de dados<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/powerbi-service-o-que-e\/\">PowerBI Service, o que \u00e9.<\/a><\/span><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"3\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1543\">Www<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1543\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"3\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1543\" tabindex=\"0\" hidden=\"hidden\"><p><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/\">WWW<\/a><\/span><\/p><ul><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/aula-de-introducao-ao-html\/\"><span style=\"color: #ffffff;\">Aula de introdu\u00e7\u00e3o ao HTMLCurso de html<\/span><\/a><\/li><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/segunda-aula-de-html-como-utilizar-mysql\/\"><span style=\"color: #ffffff;\">Segunda aula de HTML, como utilizar MySql<\/span><\/a><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/cloud\/curso-de-linux\/\">Primeira aula de JavaScript<\/a><\/span><\/li><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/segunda-aula-de-javascript\/\"><span style=\"color: #ffffff;\">Segunda aula de JavaScript<\/span><\/a><\/li><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/primeira-aula-de-node-js\/\"><span style=\"color: #ffffff;\">Primeira aula de Node.js<\/span><\/a><\/li><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/curso-de-wordpress\/\" target=\"_blank\" rel=\"noopener\"><span style=\"color: #ffffff;\">Curso de WordPress<\/span><\/a><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/git-e-github-introducao-a-ferramenta\/\">GIT e GITHUB, Introdu\u00e7\u00e3o a ferramenta<\/a><\/span><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"4\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1544\">Java<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1544\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"4\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1544\" tabindex=\"0\" hidden=\"hidden\"><p><span style=\"color: #ffffff;\">Curso de Java<\/span><\/p><ul><li style=\"list-style-type: none;\"><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-01-nesta-aula-voce-aprendera-sobre-orientacao-a-objetos\/\">Aula 01<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-02-nesta-aula-iniciaremos-um-projeto-em-java\/\">Aula 02<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-03-nesta-aula-iniciaremos-um-projeto-em-java\/\">Aula 03<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-04\/\">Aula 04<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-05\/\">Aula 05<\/a>\u00a0<\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-06\/\">Aula 06<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/aula-07\/\">Aula 07<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/download-dos-projetos-em-java\/\">Download dos Projetos em JAVA, Aqui voc\u00ea poder\u00e1 baixar os projetos em JAVA.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/java\/java-no-vscode\/\" target=\"_blank\" rel=\"noopener\">JAVA no VSCODE \u2013 Future School EAD<\/a><\/span><\/li><\/ul><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"5\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1545\">Curso de L\u00f3gica<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1545\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"5\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1545\" tabindex=\"0\" hidden=\"hidden\"><p><span style=\"color: #ffffff;\">Curso de L\u00f3gica<\/span><\/p><ul><li style=\"list-style-type: none;\"><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/curso-de-logica\/introducao-a-logica-de-programacao\/\">Nesta aula voc\u00ea ter\u00e1 conceitos de L\u00f3gica de programa\u00e7\u00e3o.<\/a><\/span><\/li><\/ul><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"6\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1546\">Mainframe <\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1546\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"6\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1546\" tabindex=\"0\" hidden=\"hidden\"><p><span style=\"color: #ffffff;\">Curso de TSO<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-tso\/01-aula-nesta-aula-voce-aprendera-na-pratica-os-principais-comandos-do-tso\/\">01 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) os principais comandos do TSO.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-tso\/02-aula-nesta-aula-voce-aprendera-na-pratica-a-criar-bibliotecas-e-membros\/\">02 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) a criar bibliotecas e membros.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-tso\/03-aula-nesta-aula-voce-aprendera-na-pratica-a-como-mudar-a-forma-de-pagimar-transferir-arquivos-para-o-computador-trabalhar-com-mais-de-uma-janela-e-compilar-programas\/\">03 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) a como mudar a forma de pagimar, transferir arquivos para o computador, trabalhar com mais de uma janela e compilar programas.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-tso\/04-aula-nesta-aula-voce-aprendera-na-pratica-alguns-comandos-especiais\/\">04 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) alguns comandos especiais.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de JCL<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-jcl\/01-aula-nesta-aula-voce-aprendera-na-pratica-os-principais-comandos-de-jcl\/\">01 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) os principais comandos de JCL:<\/a><\/span><br \/><span style=\"color: #ffffff;\">JOB, EXEC, DD, Account, Region, Class, Cond, Region, Joblib e mais.<\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-jcl\/02-aula-nesta-aula-voce-aprendera-na-pratica-a-criar-bibliotecas-e-membros\/\">02 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) alguns utilit\u00e1rios do JCL.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-jcl\/03-aula-nesta-aula-voce-aprendera-na-pratica-alguns-utilitarios-do-jcl\/\">03 Aula- Nesta aula voc\u00ea aprender\u00e1 (na pr\u00e1tica) alguns utilit\u00e1rios do JCL.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-jcl\/04-aula-nesta-aula-voce-vera-o-utilitario-dsort\/\">04 Aula- Nesta aula voc\u00ea ver\u00e1 o utilit\u00e1rio DSORT.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de Control_M<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-control_m\/01-aula-introducao-ao-control-m\/\">Aula 01- Nesta aula voc\u00ea ter\u00e1 conceitos da ferramenta Control-M, o que \u00e9 para que sere e principais comandos.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-control_m\/aula-02-introducao-ao-control-m\/\">Aula 02- Nesta aula voc\u00ea ver\u00e1 conceitos sobre calend\u00e1rio, schedule e execu\u00e7\u00e3o de JOB\u00b4s<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-control_m\/aula-03-nesta-aula-voce-tera-conceitos-sobre-odate-status-de-job-e-a-familia-control-m\/\">Aula 03- Nesta aula voc\u00ea ter\u00e1 conceitos sobre ODATE, Status de JOB e a fam\u00edlia Control-M.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de COBOL<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cobol\/introducao-a-logica-de-programacao\/\">Introdu\u00e7\u00e3o a L\u00f3gica de programa\u00e7\u00e3o<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cobol\/introducao-a-linguagem-de-programacao-cobol\/\">Introdu\u00e7\u00e3o a linguagem de programa\u00e7\u00e3o COBOL<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cobol\/exercicios-de-cobol\/\">Exercicios de COBOL<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cobol\/sistema-de-contas-correntes\/\">Sistema de contas correntes.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cobol\/cobol-no-mainframe-utilizando-sysin-perform-until-evaluate-add-multipy-divide-e-arquivos\/\">COBOL no Mainframe utilizando SYSIN, PERFORM UNTIL, EVALUATE, ADD, MULTIPY, DIVIDE e ARQUIVOS.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de CICS<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cics\/primeira-etapa-do-curso-de-cics\/\">Primeira etapa do curso de CICS<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-cics\/revisao-geral-do-curso-de-cics\/\">Revis\u00e3o geral do curso de CICS<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de QMF<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/qmf-no-mainframe-introducao-a-ferramenta\/\">QMF no Mainframe, introdu\u00e7\u00e3o a ferramenta.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de ROSCOE<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/roscoe-no-mainframe-introducao-a-ferramenta\/\"><br \/>ROSCOE no Mainframe, introdu\u00e7\u00e3o a ferramenta.<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de DB2<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-db2\/primeira-aula-de-comandos-db2\/\">Primeira aula de Comandos DB2<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-db2\/aulas-de-db2\/\">Aulas de DB2<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de Assembly<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/introducao-ao-sistema-numeral-binario-e-hexadecimal-2\/\">Introdu\u00e7\u00e3o ao sistema numeral, Bin\u00e1rio e Hexadecimal<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/introducao-ao-assembly-registradores\/\">Introdu\u00e7\u00e3o ao Assembly, registradores<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/introducao-a-linguagem-de-programacao-assemblybatch\/\">Introdu\u00e7\u00e3o a linguagem de programa\u00e7\u00e3o Assembly(Batch)<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/exercicio-pratico-da-linguagem-de-programacao-assembly-batch\/\">Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly(Batch)<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/curso-de-assembly\/exercicio-pratico-da-linguagem-de-programacao-assembly-on-line\/\">Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly(On-line)<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Curso de REXX<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/rexx-no-mainframe-sua-ponte-para-a-automacao-inteligente\/\">Aula 01 \u2013 Introdu\u00e7\u00e3o ao REXX<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/aula-02-ambiente-e-estrutura-basica\/\">Aula 02 \u2013 Ambiente e Estrutura B\u00e1sica<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/aula-03-variaveis-operadores-e-say-pull\/\">Aula 03 \u2013 Vari\u00e1veis, Operadores e SAY\/PULL<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/aula-04-controle-de-fluxo\/\">Aula 04 \u2013 Controle de Fluxo<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/aula-05-loops-em-rexx\/\">Aula 05 \u2013 Loops em REXX<\/a><\/span><\/li><li><span style=\"color: #ffffff;\">\u00a0<a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/aula-06-funcoes-nativas-strings\/\">Aula 06 \u2013 Fun\u00e7\u00f5es Nativas &amp; Strings<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/exercicio_01_praticando_a_base\/\">EXERC\u00cdCIO 01: Praticando a Base<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/2026\/02\/09\/exercicio-02-controle-de-fluxo-e-loops\/\">EXERC\u00cdCIO 02: Controle de Fluxo e Loops<\/a><\/span><\/li><\/ul><p><span style=\"color: #ffffff;\">Conte\u00fado Extra<\/span><\/p><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/mainframe-comandos-xmit-xdc-srchfor-find-p-hi-on-e-performance-em-campo-compactado\/\"> Mainframe, comandos XMIT, XDC, SRCHFOR, FIND P, HI ON e Performance em campo compactado<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/conteudo-extra\/#iso\">ISO8583 O que \u00e9 isso e como funciona<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/conteudo-extra\/#cnpj\">CNPJ Alfa, em COBOL, JAVA e PYTHON<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/mainframe\/changeman-no-mainframe-corrigido-guia-pratico\/\">Changeman no Mainframe Corrigido | Guia Pr\u00e1tico<\/a><\/span><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"7\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1547\">Pynton<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1547\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"7\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1547\" tabindex=\"0\" hidden=\"hidden\"><ul><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/curso-de-python\/01-aula-nesta-aula-voce-vera-alguns-comandos-da-linguagem-python\/\"><span style=\"color: #ffffff;\">01 Aula- Nesta aula voc\u00ea ver\u00e1 alguns comandos da linguagem Python.<\/span><\/a><\/li><li><a href=\"https:\/\/futureschoolead.com.br\/2026\/service\/curso-de-python\/02-aula-nesta-aula-voce-vera-como-utilizar-o-pacote-pandas-e-planilhas-excel\/\"><span style=\"color: #ffffff;\">02 Aula- Nesta aula voc\u00ea ver\u00e1 como utilizar o pacote pandas e planilhas excel.<\/span><\/a><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t\t\t<div class=\"elementor-tab-title elementor-tab-mobile-title\" aria-selected=\"false\" data-tab=\"8\" role=\"tab\" tabindex=\"-1\" aria-controls=\"elementor-tab-content-1548\">Tecnologias<\/div>\n\t\t\t\t\t<div id=\"elementor-tab-content-1548\" class=\"elementor-tab-content elementor-clearfix\" data-tab=\"8\" role=\"tabpanel\" aria-labelledby=\"elementor-tab-title-1548\" tabindex=\"0\" hidden=\"hidden\"><ul><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/as-novas-tecnologias-do-mundo-atual\/\">As novas tecnologias do mundo atual \u2013 Future School EAD<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/curso-de-metodologia-agil\/\">Curso de Metodologia\u00a0 \u00c1gil.<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/curso-de-chatgpt\/\">Curso de ChatGPT<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/curso-de-inteligencia-artificial\/\">Curso de Intelig\u00eancia Artificial<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/www\/design-thinking-o-que-e-como-funciona\/\" target=\"_blank\" rel=\"noopener\">Design Thinking, o que \u00e9 como funciona<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/curso-de-ux-e-ui\/\">Curso de UX e UI<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/maching-learning-introducao\/\">Machine Learning<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/deep-learnind-introducao\/\">DEEP Learnind, introdu\u00e7\u00e3o<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/service\/tecnologia\/devops-a-cultura-que-esta-transformando-o-futuro-do-desenvolvimento-de-software\/\" target=\"_blank\" rel=\"noopener\">DEVOPS, O que \u00e9 essa cultura?<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/guia-para-iniciantes-em-computacao-quantica\/\" target=\"_blank\" rel=\"noopener\">Computa\u00e7\u00e3o Qu\u00e2ntica introdu\u00e7\u00e3o, quando teremos uma IA Qu\u00e2ntica. Parte 1<\/a><\/span><\/li><li><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/guia-para-iniciantes-em-computacao-quantica\/\" target=\"_blank\" rel=\"noopener\">Guia para iniciantes em computa\u00e7\u00e3o qu\u00e2ntica<\/a><\/span><\/li><\/ul><\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<section class=\"elementor-section elementor-inner-section elementor-element elementor-element-34423f2f elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"34423f2f\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-706604f6\" data-id=\"706604f6\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap\">\n\t\t\t\t\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-inner-column elementor-element elementor-element-5c0bdd14\" data-id=\"5c0bdd14\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap\">\n\t\t\t\t\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<div class=\"elementor-element elementor-element-62f5575 elementor-widget elementor-widget-text-editor\" data-id=\"62f5575\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: center;\"><span style=\"color: #ffffff;\"><a style=\"color: #ffffff;\" href=\"https:\/\/futureschoolead.com.br\/2026\/privacy-policy\/\" target=\"_blank\" rel=\"noopener\">Pol\u00edtica de Privacidade<\/a><\/span><\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t<div class=\"elementor-column elementor-col-50 elementor-top-column elementor-element elementor-element-30c3e4c3\" data-id=\"30c3e4c3\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-768be328 elementor-widget elementor-widget-text-editor\" data-id=\"768be328\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: center;\">Inscrever<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-2472e23f elementor-widget elementor-widget-text-editor\" data-id=\"2472e23f\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: left;\">Tire suas d\u00favidas acerca desse curso al\u00e9m\u00a0 de receber nossas novidades e atualiza\u00e7\u00f5es por e-mail.<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-3794fdce elementor-button-align-stretch elementor-widget elementor-widget-global elementor-global-420 elementor-widget-form\" data-id=\"3794fdce\" data-element_type=\"widget\" data-settings=\"{&quot;step_next_label&quot;:&quot;Next&quot;,&quot;step_previous_label&quot;:&quot;Previous&quot;,&quot;button_width&quot;:&quot;100&quot;,&quot;step_type&quot;:&quot;number_text&quot;,&quot;step_icon_shape&quot;:&quot;circle&quot;}\" data-widget_type=\"form.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<form class=\"elementor-form\" method=\"post\" name=\"Inscrevase \">\n\t\t\t<input type=\"hidden\" name=\"post_id\" value=\"2035\"\/>\n\t\t\t<input type=\"hidden\" name=\"form_id\" value=\"3794fdce\"\/>\n\n\t\t\t\n\t\t\t<div class=\"elementor-form-fields-wrapper elementor-labels-above\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-field-type-text elementor-field-group elementor-column elementor-field-group-name elementor-col-100\">\n\t\t\t\t\t<label for=\"form-field-name\" class=\"elementor-field-label\">Nome<\/label><input size=\"1\" type=\"text\" name=\"form_fields[name]\" id=\"form-field-name\" class=\"elementor-field elementor-size-sm  elementor-field-textual\" placeholder=\"Escreva seu nome aqui\">\t\t\t\t<\/div>\n\t\t\t\t\t\t\t\t<div class=\"elementor-field-type-email elementor-field-group elementor-column elementor-field-group-email elementor-col-100 elementor-field-required\">\n\t\t\t\t\t<label for=\"form-field-email\" class=\"elementor-field-label\">E-mail<\/label><input size=\"1\" type=\"email\" name=\"form_fields[email]\" id=\"form-field-email\" class=\"elementor-field elementor-size-sm  elementor-field-textual\" placeholder=\"Escreva seu e-mail aqui\" required=\"required\" aria-required=\"true\">\t\t\t\t<\/div>\n\t\t\t\t\t\t\t\t<div class=\"elementor-field-type-tel elementor-field-group elementor-column elementor-field-group-field_e49f67a elementor-col-100\">\n\t\t\t\t\t<label for=\"form-field-field_e49f67a\" class=\"elementor-field-label\">Whatasapp<\/label><input size=\"1\" type=\"tel\" name=\"form_fields[field_e49f67a]\" id=\"form-field-field_e49f67a\" class=\"elementor-field elementor-size-sm  elementor-field-textual\" placeholder=\"Escreva aqui seu whatsapp\" pattern=\"[0-9()#&amp;+*-=.]+\" title=\"Only numbers and phone characters (#, -, *, etc) are accepted.\">\t\t\t\t<\/div>\n\t\t\t\t\t\t\t\t<div class=\"elementor-field-type-textarea elementor-field-group elementor-column elementor-field-group-field_9e751f2 elementor-col-100\">\n\t\t\t\t\t<label for=\"form-field-field_9e751f2\" class=\"elementor-field-label\">Mensagem<\/label><textarea class=\"elementor-field-textual elementor-field  elementor-size-sm\" name=\"form_fields[field_9e751f2]\" id=\"form-field-field_9e751f2\" rows=\"4\" placeholder=\"Escreva aqui seu mensagem\"><\/textarea>\t\t\t\t<\/div>\n\t\t\t\t\t\t\t\t<div class=\"elementor-field-group elementor-column elementor-field-type-submit elementor-col-100 e-form__buttons\">\n\t\t\t\t\t<button type=\"submit\" class=\"elementor-button elementor-size-sm\">\n\t\t\t\t\t\t<span >\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<span class=\" elementor-button-icon\">\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<\/span>\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<span class=\"elementor-button-text\">Enviar<\/span>\n\t\t\t\t\t\t\t\t\t\t\t\t\t<\/span>\n\t\t\t\t\t<\/button>\n\t\t\t\t<\/div>\n\t\t\t<\/div>\n\t\t<\/form>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-7ae29c7c elementor-widget elementor-widget-text-editor\" data-id=\"7ae29c7c\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: left;\">Ao se inscrever, voc\u00ea concorda com nossa <br>Pol\u00edtica de Privacidade e autoriza o recebimento de atualiza\u00e7\u00f5es da nossa empresa.&nbsp;<\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-3953555f elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"3953555f\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-2e9b5bf5\" data-id=\"2e9b5bf5\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t\t\t<div class=\"elementor-element elementor-element-70bd9dbe elementor-widget-divider--view-line elementor-widget elementor-widget-divider\" data-id=\"70bd9dbe\" data-element_type=\"widget\" data-widget_type=\"divider.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-divider\">\n\t\t\t<span class=\"elementor-divider-separator\">\n\t\t\t\t\t\t<\/span>\n\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-3517a7ac elementor-widget elementor-widget-text-editor\" data-id=\"3517a7ac\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t<div class=\"elementor-text-editor elementor-clearfix\"><p style=\"text-align: center;\">\u00a9 2017\/2024 Future School EAD. Todos os direitos reservados | Desenvolvido por<span style=\"color: #ccffff;\"> <a style=\"color: #ccffff;\" href=\"https:\/\/poetaalbertolima.com\/\" target=\"_blank\" rel=\"noopener\">Poeta Alberto Lima Solu\u00e7\u00f5es Digitais<\/a>.<\/span><\/p><\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"<p>Inscreva-se Curso de Assembly>> volte Exerc\u00edcio pr\u00e1tico da linguagem de programa\u00e7\u00e3o Assembly (On-line) Nesta aula voc\u00ea ter\u00e1 conceitos da linguagem Assembly com a elabora\u00e7\u00e3o de um sistema de cadastro(On-line). * *================================================================* * FUTURE SCHOOL * *&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-* * * * PROGRAMA&#8230;&#8230;: PGMENU1 &#8211; LINGUAGEM ASSEMBLY (ON-LINE) * * MAPA&#8230;&#8230;&#8230;.: MAPASM &#8211; LINGUAGEM ASSEMBLY * * TRANSACAO&#8230;..: [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":1330,"parent":1945,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"elementor_canvas","meta":{"footnotes":""},"class_list":["post-2035","page","type-page","status-publish","has-post-thumbnail","hentry"],"_links":{"self":[{"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/pages\/2035","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/comments?post=2035"}],"version-history":[{"count":37,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/pages\/2035\/revisions"}],"predecessor-version":[{"id":5070,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/pages\/2035\/revisions\/5070"}],"up":[{"embeddable":true,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/pages\/1945"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/media\/1330"}],"wp:attachment":[{"href":"https:\/\/futureschoolead.com.br\/2026\/wp-json\/wp\/v2\/media?parent=2035"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}