supraman
New member
- Joined:
- May 16, 2010
- Posts:
- 8,024
- Liked Posts:
- 196
- Location:
- St.Pete, FL
Whats with all the nerd shit going on in here?
Shut up and go back to drinking.
Whats with all the nerd shit going on in here?
You know what cars need, a simple way to indicate when lights burn out, especially brake lights.
Many new models have light indicators for when bulbs are out.
No stay up and party like it is 1989 and do some blow with me and Grimson
Surprisingly enough, I don't do any drugs. Well booze... that's technically a drug.
Surprisingly enough, I don't do any drugs. Well booze... that's technically a drug.
Use Camel Case and underscores in naming things? Check
Use field/table/procedure names that are like 8 words long? Check
Do NOT abbreviate ANY of the words in field/table/procedure names? Check
Use views of tables that are simply "select * from table"? Check
Use synonyms of tables or procedures that have reasonable names? Check
Leave error time bombs in your own code so when I run it in production it fucking tells me "This code cannot be run past 12/31/2014" EVEN THOUGH ITS STILL 12/31/2014 RIGHT FUCKING NOW? Check
http://img.pandawhale.com/49010-****-everything-Dalek-gif-Mkgo.gif
EDIT:
Exec strings of SQL that are not dynamic? DOUBLE FUCKING CHECK
Manually open and commit transactions like this is still SQL Server 2000 and cause hung transactions to block shit all the time when I don't remember to manually commit a failed transaction? TRIPLE FUCKING CHECK
1900-UPDATE-EMFAXAD.
MOVE SRT-CNTCT-KEY TO CNTCT-KEY.
PERFORM 0112-START-EMFAXAD-FILE THRU 0112-EXIT
IF WS-EMFAXAD-OK
PERFORM 0113-READNEXT-EMFAXAD-REC THRU 0113-EXIT
IF WS-EMFAXAD-OK
IF CNTCT-KEY = SRT-CNTCT-KEY
IF SRT-CNTCT-VENDOR-INV
PERFORM WITH TEST BEFORE
VARYING WS-CNTCT-I FROM 1 BY 1
UNTIL WS-CNTCT-I > 8
IF (CNTCT-PRIME-FLAG(WS-CNTCT-I) =
'D' OR 'W' OR 'M' OR 'Y')
AND (CNTCT-USE-FAX-OR-E-MAIL(WS-CNTCT-I) =
'E' OR 'F')
IF (CNTCT-USE-FAX(WS-CNTCT-I) AND
CNTCT-FAX-PHONE(WS-CNTCT-I) > SPACES)
OR (CNTCT-USE-E-MAIL(WS-CNTCT-I) AND
CNTCT-E-MAIL(WS-CNTCT-I) > SPACES)
SET WS-CONTACTS-FOUND-YES TO TRUE
END-IF
END-IF
END-PERFORM
IF WS-CONTACTS-FOUND-YES
SET WS-CONTACTS-FOUND-NO TO TRUE
END-IF
END-IF
END-IF
END-IF
END-IF.
1900-EXIT.
EXIT.
Don't know how well this will format but this is some of the code I had to deal with.
He has this 7 level nested IF with a PERFORM VARYING in the middle, all to set a flag to YES, and then he just sets it back to NO afterwards.
:snoop:IWC.... sometimes.... you just wanna be like:
And then: