Fábio Emilio Costa fabiocosta0305

## irpf.pseudo
PROGRAMA irpf
VAR:
   dependentes: inteiro
   salario, aliquota, contribuicaoINSS, baseCalculo, impostoDevido: racional
   salarioRodar, piso, descontoDependente, aliquotaIRPF: racional
   # O sinal de <> indica uma estrutura mais complexa com varios elementos de vários tipos
   tabelaContrib: lista<valor: racional, aliquota: racional>
   contribINSS: <valor: racional, aliquota: racional>
   tabelaIRPF: lista<base: racional, aliquota: racional, parcelaIRPF: racional>
   faixaIRPF: <base: racional, aliquota: racional, parcelaIRPF: racional>

## irpf.pseudo
PROGRAMA irpf
VAR:
   dependentes: inteiro
   salario, aliquota, contribuicaoINSS, baseCalculo, impostoDevido: racional
   salarioRodar, piso, descontoDependente, aliquotaIRPF: racional
   tabelaContrib: lista<valor: racional, aliquota: racional>
   contribINSS: <valor: racional, aliquota: racional>
   tabelaIRPF: lista<base: racional, aliquota: racional, parcelaIRPF: racional>
   faixaIRPF: <base: racional, aliquota: racional, parcelaIRPF: racional>
COMEÇAR:

## cloudSettings
{"lastUpload":"2021-11-20T22:12:25.020Z","extensionVersion":"v3.4.3"}

## cloudSettings
{"lastUpload":"2020-09-18T13:08:05.379Z","extensionVersion":"v3.4.3"}

## ConfigSyncAtom
a

## ConfigSyncVSCodium
a

## gist:8e5a510db0311873d04c8f6671253e15

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                fabiocosta0305
                / gist:8e5a510db0311873d04c8f6671253e15
            
            
              Last active
              March 26, 2020 18:48
            
          
      View gist:8e5a510db0311873d04c8f6671253e15
  
      
    Helen Hemingway
Aspectos


Tipo
Aspecto


Conceito
Socialite Filantropa Portadora da Fada Madrinha


Dificuldade
Pobre Menina Rica


Abdução
De um Castelo de Fadas para outro Castelo de Fadas


Retorno
Pericles precisa tomar cuidado com o Monstro dentro dele


## SDSF ST REXX Wrong Output
 Jobname  Z51417 (ID  JNUM.1 )  was ran @  DATEE.1 TIMEE.1  with MAXCC
 Jobname  Z51417 (ID  JNUM.2 )  was ran @  DATEE.2 TIMEE.2  with MAXCC

## SDSF ST REXX
/* REXX */
say "Give the user key whose jobs will be listed"
say "---"
say "Warning: this will not list PURGEd jobs."
say ""
say "User key: "
pull key
key=strip(key)
rc=isfcalls('ON')
isfowner=key

## TSOLIST
  /* REXX */
  rc=isfcalls('ON')
  totalout=1
  mycmd.0=1
  mycmd.1="D ts,a"
  ifsprefix='Z*'
  "allocate dataset(ch15.output(tsolist)) file(msgout) shr reuse"
  "execio 0 diskw msgout (stem msgstr. open"
  u = userid()
  d = date()
	PROGRAMA irpf
	VAR:
	dependentes: inteiro
	salario, aliquota, contribuicaoINSS, baseCalculo, impostoDevido: racional
	salarioRodar, piso, descontoDependente, aliquotaIRPF: racional
	# O sinal de <> indica uma estrutura mais complexa com varios elementos de vários tipos
	tabelaContrib: lista<valor: racional, aliquota: racional>
	contribINSS: <valor: racional, aliquota: racional>
	tabelaIRPF: lista<base: racional, aliquota: racional, parcelaIRPF: racional>
	faixaIRPF: <base: racional, aliquota: racional, parcelaIRPF: racional>
Tipo	Aspecto
Conceito	Socialite Filantropa Portadora da Fada Madrinha
Dificuldade	Pobre Menina Rica
Abdução	De um Castelo de Fadas para outro Castelo de Fadas
Retorno	Pericles precisa tomar cuidado com o Monstro dentro dele
	Jobname Z51417 (ID JNUM.1 ) was ran @ DATEE.1 TIMEE.1 with MAXCC
	Jobname Z51417 (ID JNUM.2 ) was ran @ DATEE.2 TIMEE.2 with MAXCC
	/* REXX */
	say "Give the user key whose jobs will be listed"
	say "---"
	say "Warning: this will not list PURGEd jobs."
	say ""
	say "User key: "
	pull key
	key=strip(key)
	rc=isfcalls('ON')
	isfowner=key
	/* REXX */
	rc=isfcalls('ON')
	totalout=1
	mycmd.0=1
	mycmd.1="D ts,a"
	ifsprefix='Z*'
	"allocate dataset(ch15.output(tsolist)) file(msgout) shr reuse"
	"execio 0 diskw msgout (stem msgstr. open"
	u = userid()
	d = date()