Acompanhe o vídeo abaixo para ver como instalar o nosso website como uma aplicação web no seu ecrã inicial.
Nota: Esta funcionalidade pode não estar disponível em alguns navegadores.
Eu quando vi o título do tópico (verde e preto) pensei que era um tópico sobre táxis ou coisa do género []
Sim, acho que é muito mais rápido nesse sentido.
Já agora... mexes com que aplicações, como utilizador?
Estou a responder a um anuncio de emprego que pedem conhecimentos de AS400
Precisava que alguém me dissesse se é possivel encontrar este software em alum site para treinar ou em manuais. Já agora peço o mesmo em relação ao SAP.
tenho alguma urgência.
Obrigado
Humm... não, nada a haver []
Um exemplo de código de COBOL, bastante simples:
IDENTIFICATION DIVISION.
PROGRAM-ID. MODULOS10.
AUTHOR. LUÖS SANTOS
INSTALLATION. *********.
DATE-WRITTEN. 29-SET-2003.
*----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CRT STATUS IS TECLADO.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT modulos ASSIGN TO DATABASE-MODL01
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS CODMODC.
*----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
FD modulos.
01 REGMOD.
05 CODMODC PIC X(3).
05 DESCC PIC X(35).
05 PROFC PIC X(35).
WORKING-STORAGE SECTION.
01 FIM PIC X.
01 CODIGO PIC X(3).
01 DESC PIC X(35).
01 PROF PIC X(35).
01 ESTADO PIC X(16).
01 TECLADO.
05 SAIR PIC X(4).
05 FILLER PIC X(2).
*----------------------------------------------------------------
PROCEDURE DIVISION.
PROGRAMA.
MOVE SPACES TO SAIR
MOVE SPACES TO FIM
OPEN I-O MODULOS
PERFORM UNTIL FIM = "S" OR SAIR = "0103"
DISPLAY "Ficha dos M¢dulos" AT 0512
WITH BLANK SCREEN
DISPLAY "C¢digo do M¢dulo: " AT 0812
DISPLAY "Designa‡Æo do M¢dulo: " AT 1012
DISPLAY "Nome do Formador: " AT 1212
MOVE SPACES TO CODIGO
MOVE SPACES TO DESC
MOVE SPACES TO PROF
MOVE SPACES TO ESTADO
ACCEPT CODIGO AT 0835 WITH UNDERLINE AUTO
* Verifica se F3 ‚ pressionado para sair
IF SAIR = "0103" THEN
MOVE "S" TO FIM
* Se nÆo pressionar F3, continua execu‡Æo
ELSE
MOVE CODIGO TO CODMODC
READ MODULOS
* Se nÆo existir, criar novo registo e escrever
INVALID KEY
DISPLAY "Inserir dados de novo M¢dulo" AT 0212
ACCEPT DESC AT 1035 WITH UNDERLINE AUTO
ACCEPT PROF AT 1235 WITH UNDERLINE AUTO
MOVE DESC TO DESCC
MOVE PROF TO PROFC
WRITE REGMOD
END-WRITE
* Se existir, fazer update/delete, etc...
NOT INVALID KEY
DISPLAY "M¢dulo Existente" AT 0512 WITH BLANK SCREEN
* Mostra menu com op‡äes
DISPLAY "1. Para sair" AT 0812
"2. Para alterar" AT 1012
"3. Para apagar" AT 1212
"Digite op‡Æo: " AT 1512
ACCEPT FIM AT 1526 WITH UNDERLINE AUTO
EVALUATE FIM
WHEN 1 MOVE "0103" TO SAIR
WHEN 2 DISPLAY "OLA" AT 0918
* Inserir c¢digo para a edi‡Æo do registo (UPDATE)
END-EVALUATE
MOVE SPACES TO FIM
* MOVE "C¢digo inv lido!" TO ESTADO
* ACCEPT ESTADO AT 1214
* WITH UNDERLINE HIGHLIGHT
END-READ
END-IF
END-PERFORM
CLOSE MODULOS
EXIT PROGRAM
STOP RUN.
Baralhados? Eu ajudo []
Verde e preto são as cores que apresentam os ecrãs de alguns sistemas da IBM (MVS/390, AS/400, iSeries...): letras verdes em fundo preto.
Eu desde que comecei a trabalhar que só mexo nesses ambientes (programação em RPG e COBOL). Queria só saber se há mais malucos por cá []
Eu quando vi o título do tópico (verde e preto) pensei que era um tópico sobre táxis ou coisa do género []
Tanta gente a abandonar o bom e velho AS400 e a ter de lidar com o rato e com o SAP? Bem... este mundo vai de mal a pior []
X2... :sh)
Estou a responder a um anuncio de emprego que pedem conhecimentos de AS400
Precisava que alguém me dissesse se é possivel encontrar este software em alum site para treinar ou em manuais. Já agora peço o mesmo em relação ao SAP.
tenho alguma urgência.
Obrigado
Ok, o exemplo ficou também bastante mal formatado, esta m3rda não copiou a identação como deve ser []
Bom, eu estava mesmo a falar de servidores (midranges e mainframes), e não de PC's e de monitores de fósforo []
Eu trabalho num Core2Duo com 1GB de RAM e 256MB de gráfica, num belo TFT de 17" da HP, ok? []
Só que desenvolvo quase tudo num AS400, que tem estas características meio manhosas, tipo ausência de gráficos e isso []
A chamada "programação pesada".
Originalmente Colocado por Jorge CorreiaOriginalmente Colocado por TILT
Eu quando vi o título do tópico (verde e preto) pensei que era um tópico sobre táxis ou coisa do género []
X2... :sh)
e 3... [8b]