1
DISPLAY "HELLO WORLD";

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                                 
      *========================                                                 
       PROGRAM-ID.    IDEONEIX.                                                 
       AUTHOR.        ELGUERA MARIGORDA ALONSO.                       
       INSTALLATION.  TELEFONICA.                                               
       DATE-WRITTEN.  21/09/2011.                                               
       DATE-COMPILED.                                                           
      *                                                                         
       ENVIRONMENT DIVISION.                                                    
 ...

1
2
3
4
5
6
7
8
9
       Identification Division.
       Program-ID. Calmed.
       Author. RSR.
       Date-Written. 13/02/2012.
 
       Environment Division.
       Configuration Section.
       Special-Names.
           Decimal-Point is comma.
 ...

1
2
3
4
5
 
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

1
2
3
 
          DISPLAY 'Hello, world'.
          STOP RUN.

1
2
3
4
5
IDENTIFICATION DIVISION.
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

1
2
3
4
5
6
7
8
9
 
DSN SYSTEM(DB0W)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB71) - 
LIB('TSGS.DSN710.DBDW.RUNLIB.LOAD') PARMS('SQL')
END
//SYSIN DD * 
SELECT
   AR_ID
,  DECIMAL(SUM(CASE WHEN CHRG_TYPE_ID = 'SCHRG' THEN CHRG_AMNT ELSE 0 END),17,2) S_CHRG
 ...

1
2
3
4
5
6
7
8
9
//SELAR JOB BDWP,'',MSGCLASS=H,CLASS=9,MSGLEVEL=(1,1),
//* TYPRUN=SCAN,
// REGION=4M, NOTIFY=DWEXTD1, TIME=1440
//*
// STEP010 EXEC PGM =IKJEFT01, REGION=5M, COND=(4,LT)
//* ouput will have only be available in the spool.
//SYSREC00 DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB0W)
 ...

1
// Selar JOB BDWP,'',MSGCLASS=H, CLASS=9,MSGLEVEL=(1,1),//*   TYPRUN=SCAN,

1
2
3
4
5
IDENTIFICATION DIVISION.
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

1
2
3
4
5
6
7
8
9
 IDENTIFICATION DIVISION.
 PROGRAM-ID. PROG02.
 AUTHOR. BRUNO.
*DEFINICAO DO PATH ARQUIVO DE ENTRADA
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SPECIAL-NAMES. 
     DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG02.
AUTHOR. BRUNO.
 
*DEFINICAO DO PATH ARQUIVO DE ENTRADA
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c 
        int a,b,c =  (a+b > c) + (a+c > b)  + (b+c >a);
   switch(a,b,c) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c 
        int a,b,c =  (a+b > c) + (a+c > b)  + (b+c >a);
   switch(a,b,c) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(a,b,c) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(a,b,c) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(a,b,c) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
   int a,b,c;
   cout << " Ingrese tres numeros. ";
   cin >>a>>b>>c = (a+b > c) + (a+c > b)  + (b+c >a);
   
   switch(num) {
 ...

1
2
3
4
5
6
7
8
9
      ***************************************************************** 
      *                                                               * 
      * PROGRAMA        : PROGON01                                    * 
      *                                                               * 
      * PROJETO         :                                             * 
      *                                                               * 
      * OBJETIVO        : BATE CFAP COM A PSPA                        * 
      *                                                               * 
      * ARQUIVOS        :                                             * 
 ...