Skip to content

Instantly share code, notes, and snippets.

Avatar

Fábio Emilio Costa fabiocosta0305

View GitHub Profile
View 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>
View 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:
@fabiocosta0305
fabiocosta0305 / cloudSettings
Last active November 20, 2021 22:12
Extensions Sync
View cloudSettings
{"lastUpload":"2021-11-20T22:12:25.020Z","extensionVersion":"v3.4.3"}
View cloudSettings
{"lastUpload":"2020-09-18T13:08:05.379Z","extensionVersion":"v3.4.3"}
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
View 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
View 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
View 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()